Imprimir un Recordset
Quiero imprimir un recordset utilizando el objeto Printer.
Para que envíe los datos a la impresora ¡Debo salir del sistema! ¿Cómo puedo hacer para que comience a imprimir ni bien se clikee el botón de comando que contiene el código correspondiente?
El código es:
Private Sub ComdImprimir_Click()
'Imprimir listado de libros
Set libros = base.OpenRecordset("libros")
libros.MoveFirst
Do Until libros.EOF
With libros
Printer.Print .Fields("codlib") & " " & .Fields("titulo")
End With
libros.MoveNext
Loop
End Sub
Desde ya muchas gracias por tu ayuda.
Un beso,
SARA
Para que envíe los datos a la impresora ¡Debo salir del sistema! ¿Cómo puedo hacer para que comience a imprimir ni bien se clikee el botón de comando que contiene el código correspondiente?
El código es:
Private Sub ComdImprimir_Click()
'Imprimir listado de libros
Set libros = base.OpenRecordset("libros")
libros.MoveFirst
Do Until libros.EOF
With libros
Printer.Print .Fields("codlib") & " " & .Fields("titulo")
End With
libros.MoveNext
Loop
End Sub
Desde ya muchas gracias por tu ayuda.
Un beso,
SARA
1 respuesta
Respuesta de moscareto
1