Stampe - Stampare con Printer.print

Private Sub Command1_Click()
On Error GoTo Errore
Printer.CurrentX = 0
Printer.CurrentY = 0
Dim X, Y
Dim C As Long

Do
Printer.Print "Vaffanculo Y = " & Printer.CurrentY & " X = " & Printer.CurrentX
C = C + 1

If C >= 10 Then
Exit Do
End If
Loop
C = 0
Do
Printer.Print "Vaffanculo 2Y = " & Printer.CurrentY & " 2X = " & Printer.CurrentX
C = C + 1

If C >= 10 Then
Exit Do
End If
Loop
C = 0
'riporta la scrittura a linea 0

Printer.CurrentY = 0
Do
' scrive a colonna (19)

Printer.CurrentX = Printer.TextWidth(Replicate("M", 19))

Printer.Print "Vaffanculo Y = " & Printer.CurrentY & " X = " & Printer.CurrentX
C = C + 1

If C >= 10 Then
Exit Do
End If
Loop
C = 0
Do

Printer.CurrentX = Printer.TextWidth(Replicate("M", 19))
Printer.Print "Vaffanculo 2Y = " & Printer.CurrentY & " 2X = " & Printer.CurrentX
C = C + 1

If C >= 10 Then
Exit Do
End If
Loop



Printer.FontName = "Courier"
Printer.FontSize = 18
Printer.FontBold = True
Printer.Print ""
Printer.Print ""
C = Printer.CurrentY
Printer.CurrentX = 0
Printer.Print "NOMINATIVO " & "Paolo puglisi"

Printer.CurrentY = C
Printer.CurrentX = Printer.TextWidth("NOMINATIVO " & "Paolo puglisi") + 10
Printer.Print " INDIRIZZO " & "VIA CONCA D'ORO"





Printer.EndDoc
Errore:

End Sub