Aca te va un ejemplo
Private Sub Cmd_Imp_List_Cli_Click(Index As Integer)
If Index = 0 Then ´Imprimir listado
Pagina = 1
Dialogo_Cli.CancelError = True
On Error GoTo Fallo
Dialogo_Cli.ShowPrinter
Call Imp_Datos_Cli
Set Tbcli = DBD.OpenRecordset("Cli", dbOpenTable)
Tbcli.Index = "Indcli"
Dim renglony
renglony = 40
´ X = ---------------------------
Do While Not Tbcli.EOF
Printer.CurrentX = 10
Printer.CurrentY = renglony
Printer.Print Tbcli!Nomcli
Printer.CurrentY = renglony
Printer.CurrentX = 80
Printer.Print Tbcli!Dircli
Printer.CurrentY = renglony
Printer.CurrentX = 165
Printer.Print Tbcli!Telcli
renglony = renglony + 5
Tbcli.MoveNext
If Printer.CurrentY >= Printer.ScaleHeight - 15 Then
Printer.NewPage
Call Imp_Datos_Cli
Printer.CurrentX = 10
renglony = 40
End If
Loop
Printer.EndDoc
Unload Me
End If
If Index = 1 Then ´Salir
Unload Me
End If
Fallo:
Exit Sub
End Sub
Public Sub Imp_Datos_Cli()
Pagina = Pagina + 1
Printer.CurrentY = 10
Printer.CurrentX = 10
Printer.FontName = "Arial"
Printer.FontBold = True ´Negrita
Printer.FontSize = 10
Printer.ScaleMode = 6
Printer.Print "Titulo de la aplicación lo lo que se te antoje página "; Printer.Page
Printer.CurrentX = 10