MrKowz
Well-known Member
- Joined
- Jun 30, 2008
- Messages
- 6,653
- Office Version
- 365
- 2016
- Platform
- Windows
Is there a way to print individual sheets in VBA and send to the printer as a single printjob? In my office, approx 30 people use the same printer, and it gets quite annoying when my print job of 6 sheets has pages from other employees mixed in the middle (especially when someone decides to run 300-400 pages of SAP data)
Here is the code I'm currently using to print:
Here is the code I'm currently using to print:
Code:
With Sheets("Checklist")
.PageSetup.LeftFooter = Sheets("Client Information").Range("C2").Value
.PrintOut
End With
If Year(DOE) <= 2002 Then
With Sheets("Manual Calculations")
.PageSetup.LeftFooter = Sheets("Client Information").Range("C2").Value
.PrintOut
End With
With Sheets("PROI Lookup")
.PageSetup.LeftFooter = Sheets("Client Information").Range("C2").Value
.PrintOut
End With
End If
With Sheets("calculation")
.PageSetup.LeftFooter = Sheets("Client Information").Range("C2").Value
.PrintOut
End With
With Sheets("Benefits Calculation Form")
.PageSetup.LeftFooter = Sheets("Client Information").Range("C2").Value
.PrintOut
End With