Dots, dots, dots...

Sub PrintAll()
With Sheets("CoverSheet")
For i = 1 To .Range("D48")
.Range("N1").Value = i
.PrintOut Copies:=1, Collate:=True
Next i
End With
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"access user"
wrote in message
Hi
My print macro works if I run it from the sheet that I want to print, but if
I am on another sheet, it appears to do nothing. I actually want a button on
another sheet and want to print the sheet in question, without having to
select that sheet first. My macro is below:

Sub PrintAll()
With Sheets("CoverSheet")
For i = 1 To Range("D48")

Range("N1").Value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next i
End With
End Sub

Any ideas?
tia
James