Print a SSTab

[Melanie]

Hello,

I have a SSTab on a form and in this SSTab I have tabs. I want to print (not the form) but the 2 tabs. The first one and after the second tab. Is it possible?? How can I do this?! I don't want to use the printForm, cause it prints all the form and I don't need that.

Thanks

[jim mcnamara]

You can do it using graphics methods. I don't remember if SSTabs have an hDC property, I doubt it. So use the form's hDC and then BitBlt the SSTab to the printer.hDC

Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _ 
           ByVal hDestDC As Long, _ 
           ByVal x As Long, _ 
           ByVal y As Long, _ 
           ByVal nWidth As Long, _ 
           ByVal nHeight As Long, _ 
           ByVal hSrcDC As Long, _ 
           ByVal xSrc As Long, _ 
           ByVal ySrc As Long, _ 
           ByVal dwRop As Long _ 
) As Long 

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long 
 
Dim LeftPrinterMargin as long

LeftPrinterMargin = 1200  ' margin from left side...
' 7500 twips is about halway up the printer page

' one-to-one rendering in the middle of the page, not centered
'VbSrcCopy is a VB constant for a staright copy

Call BitBlt(Printer.hDC, LeftPrinterMargin,  7500, Tab1.Width, _
          Tab1.Height, GetDC(Form1.hWnd), Tab1.Left,Tab1.Top, _
          VbSrcCopy)

Printer.EndDoc