Impresion con Generic / Text en una OKI Microline 320

[juantux]

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...