Excelpromax123
Board Regular
- Joined
- Sep 2, 2021
- Messages
- 167
- Office Version
- 2010
- Platform
- Windows
Hi guys. I need a code to name the file before printing (I often print as PDF files), Thank you very much
Sub testprint()
On Error Resume Next
Application.ActivePrinter = Range("A1").Value
ActiveWorkbook.Sheets("Sheet1").PrintOut Copies:=1, ActivePrinter:=Range("A1").Value, Collate:=True
End Sub
Sub testprint()
On Error Resume Next
Application.ActivePrinter = Range("A1").Value
ActiveWorkbook.Sheets("Sheet1").PrintOut Copies:=1, ActivePrinter:=Range("A1").Value, Collate:=True
End Sub