Hola:
Diseñe un algortimo para resolver lo que deseas. Si tienes una duda no dudes en contactarme. Para eso debes tener el data ligado a cajas de texto o etiquetas para llamarles del modo Printer.Print
'Primero debe configurar la impresora
Printer.FontSize = 8
Printer.FontName = "Arial"
'Aqui declaro e inicializo la variable contador para llevar la cuenta de los renglones
Dim contador As Integer
contador = 0
'Mover el Data al primer registro
Data1.Recordset.MoveFirst
'Inciar un ciclo
Do While Datos.Recordset.EOF = False
'Dentro del ciclo vamos a colocar lo que se quiera imprimir Por ejemplo:
Printer.Print Tab(3); "Máquina: "; txtMaquina.Text;
'Avanzamos un registro
Datos.Recordset.MoveNext
'Actualizamos contador
contador = contador + 1
'Si el contador vale 50, o sea si llego al final de la hoja con ese tipo de letra y tamaño
If contador = 50 Then
'Imprimir lo que sigue en una pagina nueva
Printer.NewPage
End If
'Se cierra el ciclo
Loop
'Indicamos el final del docto para que se imprima
Printer.EndDoc
Espero haber sido util
Carlos
