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
Creo que para imprimir el trabajo actual de impresión has de llamar al método EndDoc. Por otro lado, ¿por qué no usas el Common dialog control, que es más fácil de usar para el programador y para el usuario?
