Printing by row

D

David

Hi!

Is there anyway that i can print every row in my worksheet in different pages?
(one row one printout/page)? I got about 200 rows which i wanted to print on
200 pages and don't want to use page break to do this. Is there any quicker
way?

Thks!
 
J

Jim Cone

David,

This short piece of code will print each row
in the selection. It will skip any blank rows.

'----------------------------
Sub PrintEachRow()
Dim rngPrint As Excel.Range
Dim rngRow As Excel.Range
Set rngPrint = Application.Intersect(Selection, ActiveSheet.UsedRange)

If Not rngPrint Is Nothing Then
For Each rngRow In rngPrint.Rows
If Application.CountA(rngRow) > 0 Then
rngRow.PrintOut copies:=1
End If
Next
End If
Set rngPrint = Nothing
Set rngRow = Nothing
End Sub

'----------------------------

Jim Cone
San Francisco, USA



Hi!

Is there anyway that i can print every row in my worksheet in different pages?
(one row one printout/page)? I got about 200 rows which i wanted to print on
200 pages and don't want to use page break to do this. Is there any quicker
way?

Thks!
 
Top