Print one line per page

[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.

 

[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

 

[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

 

[Eric]

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