Printing by row

[Guest]

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!

 

[Anne Troy]

Probably a quicker way would be to use mail merge from Word.
Either that, or set your top and bottom page margins so you only allow the
height of one row...
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com

 

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