Hi
I need to print out all of the worksheets in a active workbook,but only the ranges ex ("M1:R8")
Is there someone out there who knows anyting about this please help me
Thanks
Hi
I need to print out all of the worksheets in a active workbook,but only the ranges ex ("M1:R8")
Is there someone out there who knows anyting about this please help me
Thanks
[vba]
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
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Originally Posted by u25103