Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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