Print one line per page

  • Thread starter Thread starter Eric
  • Start date Start date
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.
 
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
 
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
 
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
Click to expand...
 
Back
Top