Page Breaks/Printing

[jlove5683]

Is there a way to either enter a page break after each row within a 620 row excel spreadsheet or to print each row on a seperate page without having to do this manually?

 

[VoG]

Try

Sub prt()
Dim I As Long, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To LR
    Rows(I).PrintOut
Next I
End Sub

 

[jlove5683]

Peter -

I can't run code. I have no clue where I would put that code.

 

[VoG]

Press ALT + F11. From the Insert menu select Module. Copy the code and paste it into the white space on the right.

Press ALT + Q to close the code window, Tools > Macro > Macros, click on prt then click the Run button.

 

[jlove5683]

Great THANK YOU! Going to try it now.