Hola,

Gente necesito si alguien sabe o me da una idea de como imprimir el mismo forms varias veces en el misma hoja. Ya que este es un "recibo" y no quiero que salga uno por hoja.

Gracias

hola una idea

Código:

Option Explicit
Private Declare Function BitBlt Lib "gdi32" (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
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Command1_Click()
Dim i As Integer

Printer.Print "A"
For i = 0 To 4
 BitBlt Printer.hDC, 0, (Me.ScaleHeight / 15) * i, Me.ScaleWidth / 15, Me.ScaleHeight / 15, GetDC(Me.hWnd), 0, 0, vbSrcCopy
Next

Printer.EndDoc

End Sub