Visual Basic - imprimir

como hago para imprimir con el printer?
creo que es algo así:

Private Sub CMDPRIN1_Click()
cp = 0
Printer.Orientation = 1
Printer.FontSize = 12
Do While Not Data1.Recordset.EOF
If cp = 0 Then
Printer.FontSize = 14
Printer.Line (100, 500)-(1000, 500)
Printer.Print "NUMERO FECHAPAGO BANCO"
Printer.Line (100, 700)-(1000, 700)
End If

Printer.Print Data1.Recordset(0); Tab(15)
Printer.Print Data1.Recordset(1); Tab(30)
Printer.Print Data1.Recordset(2); Tab(45)

Data1.Recordset.MoveNext
Loop
End Sub

pero no me imprime y no me hace nada.
si algien fuera tan amable de responderme???

te falta al final o
PRINTER.NEWPAGE
PRINTER-.ENDOC
para que la impresión pase a la impresora