Page Breaks/Printing

jlove5683

New Member
Joined
Jul 23, 2010
Messages
10
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?
 

Some videos you may like

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
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
 

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
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.
 

Watch MrExcel Video

Forum statistics

Threads
1,109,504
Messages
5,529,260
Members
409,859
Latest member
emperorgenghiskhan
Top