Estimados, lo que intento hacer es imprimir un listado pero con saltos de pagina en la linea numero 50 (Calculo manual de lineas), con papel continuo tamaño carta y el controlador generic / Text, lo que he intentado es esto:
Código HTML:
Do While Not rsClases.EOF
v1 = rsClases(0): If IsNull(v1) Then v1 = ""
v2 = rsClases(1): If IsNull(v2) Then v2 = ""
v3 = rsClases(2): If IsNull(v3) Then v3 = ""
v4 = rsClases(3): If IsNull(v4) Then v4 = ""
v5 = rsClases(4): If IsNull(v5) Then v5 = ""
v6 = rsClases(5): If IsNull(v6) Then v6 = ""
v7 = rsClases(6): If IsNull(v7) Then v7 = ""
v8 = rsClases(7): If IsNull(v8) Then v8 = ""
v9 = rsClases(8): If IsNull(v9) Then v9 = ""
v10 = rsClases(9): If IsNull(v10) Then v10 = ""
v11 = rsClases(10): If IsNull(v11) Then v11 = ""
v12 = rsClases(11): If IsNull(v12) Then v12 = ""
v13 = rsClases(12): If IsNull(v13) Then v13 = ""
v14 = rsClases(13): If IsNull(v14) Then v14 = ""
'Printer.Print "Hora Teacher Curso Descripcion Sala M T W T F S Profesores Horarios Fec. Termino"
'Printer.Print Mid(v1, 1, 5) & Space(1) & Mid(v2, 1, 8) & Space(1) & Mid(v3, 1, 9) & Space(1)
Printer.Print Mid(v1, 1, 5) & String(6 - Len(Mid(v1, 1, 5)), " ") & Mid(v2, 1, 8) & String(9 - Len(Mid(v2, 1, 8)), " ") & Mid(v3, 1, 10) & String(11 - Len(Mid(v3, 1, 10)), " ") & Mid(v4, 1, 25) & String(26 - Len(Mid(v4, 1, 25)), " ") & Mid(v5, 1, 3) & String(5 - Len(Mid(v5, 1, 3)), " ") & Mid(v6, 1, 1) & String(2 - Len(Mid(v6, 1, 1)), " ") & Mid(v7, 1, 1) & String(2 - Len(Mid(v7, 1, 1)), " ") & Mid(v8, 1, 1) & String(2 - Len(Mid(v8, 1, 1)), " ") & Mid(v9, 1, 1) & String(2 - Len(Mid(f9, 1, 1)), " ") & Mid(v10, 1, 1) & String(2 - Len(Mid(v10, 1, 1)), " ") & Mid(v11, 1, 1) & String(3 - Len(Mid(v11, 1, 1)), " ") & Mid(v12, 1, 20) & String(21 - Len(Mid(v12, 1, 20)), " ") & Mid(v13, 1, 20) & String(22 - Len(Mid(v13, 1, 20)), " ") & String(10 - Len(Mid(v14, 1, 10)), " ") & Mid(v14, 1, 10)
lineas = lineas + 1
If lineas >= 50 Then
Printer.NewPage 'Salto de pagina
lineas = 0
End If
rsClases.MoveNext
Loop
Printer.EndDoc 'Mandar los datos a la impresora
Lamentablemente no me hace el salto de pagina cuando yo le indico.. y lo asume automatico... ojala puedan darme una mano, gracias...