S
sunilpatel
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
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