I have been trying to use a form as a invoice but when I go and Print it out it does not print the full page. I have try many of a different way's. I have try changing the screen resolution and the lates was given to me by Jaocim


Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Public Const SRCCOPY = &HCC0020
Public Sub PrintFrm(frm As Form, lngWidth As Long, lngHeight As Long)
'Printer.Print 'Importent! The printer object may not have an hDC if it hasn't been used.
Call StretchBlt(Printer.hdc, 0, 0, lngWidth, lngHeight, _
frm.hdc, 0&, 0&, frm.ScaleWidth, frm.ScaleHeight, SRCCOPY)
Printer.Print
Printer.EndDoc
End Sub

Private Sub Command1_Click()
PrintFrm Form1, 8, 11

End Sub
Can you help me