Salto de pagina en macro excel

Hola Expertos buen dia:

Agradezco a quien pueda brindarme su colaboración con el siguiente tema:

Tengo un formato para impresión de cheques al que le he incluido una macro para lograr que la impresión sea mucho mas rápida, pero tengo inconvenientes con el salto de pagina, esto debido a que el formato del cheque es mas corto que una hoja tamaño carta que tiene 11 pulgadas de largo, el formato del cheque solo tiene 7 pulgadas de largo, estoy imprimiendo en una impresora epson LX-300+II, lo que necesito es lograr que el salto de pagina se haga a las 7 pulgadas y no a las 11 como viene predeterminada la impresora.

Este el el código que estoy utilizando

Sub imprimir_cheques()
Dim r As Long
Dim n As Long
n = Application.WorksheetFunction.CountA(Sheets("DATOS").Range("A:A"))
If n = 0 Then Exit Sub
For r = 5 To (n + 4) Step 1
Sheets("Formato").Range("K2") = Sheets("DATOS").Range("A" & r)
Range("A2:I31").PrintOut
DoEvents
Next
MsgBox "Impresión finalizada", vbInformation
End Sub

Nuevamente muchas gracias a quien pueda colaborarme con el tema.