Visual Basic - encabezado al imprimir

Actualmente estas son mis lineas de código para la impresión

On Error GoTo Cancelo
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter

Printer.ScaleMode = vbCharacters
Printer.TrackDefault = True

For I = 1 To 6 ''''' AQUI COMIENZA EL ENCABEZADO
Printer.Print ""
Next

Printer.Print ""
Printer.FontName = "Arial"
Printer.FontSize = 12

Printer.Print Tab(77); liquidacion.Text2.Text
Printer.Print ""

Printer.Print Tab(17); liquidacion.Label1.Caption
Printer.Print Tab(17); liquidacion.Label3.Caption; Tab(23); liquidacion.Label4.Caption; Tab(26); liquidacion.Label5.Caption; Tab(77); liquidacion.Label14.Caption; Tab(82); liquidacion.Label15.Caption

Printer.Print ""

Printer.Print Tab(46); liquidacion.Label6.Caption '''' AQUI FINALIZA EL ENCABEZADO

For I = 1 To 2
Printer.Print ""
Next

Printer.Print Tab(17); liquidacion.Label7.Caption

For I = 0 To 14
liquidacion.Label10(I).Alignment = "1"
If Trim$(liquidacion.Label8(I).Caption) <> "" Then Printer.Print Tab(17); liquidacion.Label8(I).Caption; Tab(60); liquidacion.Label9(I).Caption; Tab(86); (liquidacion.Label10(I).Caption)
Next

For I = 1 To 3
Printer.Print ""
Next

Printer.Print Tab(46); liquidacion.Label11.Caption; Tab(85); liquidacion.Label12.Caption

''''''''''''''''''''''''''''''''

Printer.Print ""

For I = 0 To 18
If Trim$(liqui.Combo1(I).Text) <> "" Then Printer.Print Tab(17); liqui.Combo1(I).Text; Tab(22); liqui.Label2(I).Caption; Tab(25); liqui.Text1(I).Text; Tab(66); dectab; liqui.Text2(I).Text; Tab(86); liqui.Text3(I).Text
Next

''''''''''''''''''''''''''''''

For I = 0 To 18
If Trim$(liq.Combo1(I).Text) <> "" Then Printer.Print Tab(17); liq.Combo1(I).Text; Tab(22); liq.Label2(I).Caption; Tab(25); liq.Text1(I).Text; Tab(66); liqui.Text2(I).Text; Tab(86); liq.Text3(I).Text

Next

''''''''''''''''''''''''''''''''

Printer.Print ""
Printer.Print Tab(39); Label3.Caption; Tab(66); Label4.Caption; Tab(86); Label1.Caption
Printer.Print ""
Printer.Print ""
Printer.Print Tab(46); Label5.Caption; Tab(86); Label6.Caption
Printer.Print ""
Printer.Print ""

Printer.Print Tab(17); Label7.Caption; Tab(76); Label10.Caption

For I = 1 To 4
Printer.Print ""
Next

Printer.Print Tab(17); Label8.Caption; Tab(76); Label11.Caption
Printer.Print ""
Printer.Print Tab(17); Label9.Caption

Exit Sub
Cancelo:

Necesito saber cuando la impresión pase a una segunda hoja y si es asi imprimir el encabezado y continuar con el resto! trabajo con matrizes para no complicarme la vida con un código tan largo! pero no se si en este caso es válido! Muchas Gracias por la ayuda que me puedan proporcionar!