Hi all,

What i need to do is to Print a certain area of the work sheet and then
check if it has vanished from the print spooler
(think thats what you call the place where documents sit until successfully
printed.).

Can anyone help, i have this so far. The important thing is to monitor if
area printed, as the requirement is that a particular area can only be
printed once.

Sub setprintarea()
Dim myrange As String
STRow% = 12
myrange = Cells(Rows.Count, 1).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$A$" & STRow & ":" & myrange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks

Did you ever get this to work?
I need the same capability.
If so, could you please post the code?
Thanks

"sunilpatel" wrote:

Hi all,

What i need to do is to Print a certain area of the work sheet and then
check if it has vanished from the print spooler
(think thats what you call the place where documents sit until successfully
printed.).

Can anyone help, i have this so far. The important thing is to monitor if
area printed, as the requirement is that a particular area can only be
printed once.

Sub setprintarea()
Dim myrange As String
STRow% = 12
myrange = Cells(Rows.Count, 1).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$A$" & STRow & ":" & myrange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks