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.
Prueba con esto : Private Sub cmdImprimir_Click() Dim i As Integer Dim ImpLinea As Integer For i = 0 To List1.ListCount - 1 Printer.Print List1.List(i) ImpLinea = ImpLinea + 1 If ImpLinea = 30 Then Printer.NewPage ImpLinea = 0 End If Next i Printer.EndDoc End Sub