Print one line per page

E

Eric

In Excel 2003, I have a table, where each line represents one date. I'd like
to print each line (each date) on a separate page (because the hardcopy will
go into separate documentation files). Each page will also include the page
header and footer, and the header rows from the table.

Obviously I could insert page breaks manually at every row, but the table
contains dozens of rows and that seems like an unnecessary chore. Can anyone
suggest an easier way?

Thanks.
 
O

Otto Moehrbach

Eric
This little macro will print each row as a separate print job. That
will print each row on a separate page. HTH Otto
Sub PrintEachRow()
Dim rColA As Range
Dim i As Range
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In rColA
i.Resize(, 5).PrintOut
Next i
End Sub
 
S

Sheeloo

Adapted from http://excel.tips.net/Pages/T002792_Conditional_Page_Breaks.html
=============================================================================

The following macro will do the trick:

Sub PageBreak()
Dim CellRange As Range
Dim TestCell As Range
Set CellRange = Selection
For Each TestCell In CellRange
ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakNone
ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual
Next TestCell
End Sub

To use the macro, simply
 
E

Eric

Sheeloo said:
Adapted from http://excel.tips.net/Pages/T002792_Conditional_Page_Breaks.html
=============================================================================

The following macro will do the trick:

Sub PageBreak()
Dim CellRange As Range
Dim TestCell As Range
Set CellRange = Selection
For Each TestCell In CellRange
ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakNone
ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual
Next TestCell
End Sub

To use the macro, simply
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top