J
James Cornthwaite
I have (with help) written the following macro.
It essentially prints the first page of every worksheet in a workbook
with the exception the "import" and "client details worksheets".
My problem is this macro code causes each page to be sent to the printer as
a seperate job.
This wouldn't be a problem but i'm in a busy office (and though quick) other
printouts will sneak in between the pages.
Is there any coding variation which would lead to only one job being sent to
the printer.
Many thanks in anctipation.
James
Sub PrintFullAccounts()
Dim theSheet As Worksheet
For Each theSheet In ActiveWorkbook.Worksheets
If theSheet.Name = "import" Or theSheet.Name = "client details" Then
'do nothing
Else
'print first page
theSheet.PrintOut From:=1, To:=1, Copies:=1
End If
Next theSheet
End Sub
It essentially prints the first page of every worksheet in a workbook
with the exception the "import" and "client details worksheets".
My problem is this macro code causes each page to be sent to the printer as
a seperate job.
This wouldn't be a problem but i'm in a busy office (and though quick) other
printouts will sneak in between the pages.
Is there any coding variation which would lead to only one job being sent to
the printer.
Many thanks in anctipation.
James
Sub PrintFullAccounts()
Dim theSheet As Worksheet
For Each theSheet In ActiveWorkbook.Worksheets
If theSheet.Name = "import" Or theSheet.Name = "client details" Then
'do nothing
Else
'print first page
theSheet.PrintOut From:=1, To:=1, Copies:=1
End If
Next theSheet
End Sub