holas a todos... necesito ayuda (harta) en este tema...
necesito imprimir un conjunto de registros de una consulta de una base de datos, pero quiero que cada registro se imprima automaticamente... nada de datareport o algo asi, solo con codigo definir el tamaño de la hoja (130 mm x 130 mm), el fin de la hoja y todo lo demas... busque en internet y sale algo como esto...
Private Sub cmdimprimir_Click()
Printer.PrintQuality = -4
Dim i As Integer
Dim R As Integer
Dim IncreaseY As Integer
'
Printer.ScaleMode = 6
'
Printer.CurrentX = 10
Printer.CurrentY = 10
grid.Col = 0
grid.Row = 0
Printer.Print grid.Text
'Printer.Line (9, 10)-(9, 15 + 9 * 5)
'
grid.Col = 1
Printer.CurrentX = 20
Printer.CurrentY = 10
Printer.Print grid.Text
'Printer.Line (19, 10)-(19, 15 + 9 * 5)
printer.enddoc
End Sub
(pero esto es de un grid) ahora ¿como hago para que sean los datos de la consulta los que vayan ahi?
, son como 450 registros los que hay que imprimir..
, de una sola vez..., y para complicarlo un poco mas... ¿como detecto la cola de impresion de tal modo que yo sepa si un registro se imprimio y pueda cambiar el estado de ese registro? (indicar que el registro ya se imprimio en la base de datos)
,
bueno, iremos probando...
si puedes ayudarme, gracias...
