PDA

View Full Version : Solved: Print ranges in workheets



u25103
09-04-2008, 02:28 AM
Hi
I need to print out all of the worksheets in a active workbook,but only the ranges ex ("M1:R8"):dunno

Is there someone out there who knows anyting about this please help me:bow:
Thanks

Bob Phillips
09-04-2008, 02:55 AM
Sub PrintAll()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets

sh.PageSetup.PrintArea = "$M$1:$R$8"
sh.PrintOut
Next sh
End Sub

u25103
09-04-2008, 06:25 AM
Hi
I need to print out all of the worksheets in a active workbook,but only the ranges ex ("M1:R8"):dunno

Is there someone out there who knows anyting about this please help me:bow:
Thanks