vba code to name a file when printing

[Excelpromax123]

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

 

[SpillerBD]

Use a different Method.
Record the procedure for File/Export/Create Adobe Pdf.
You'll get a single "line" of code such as....

Sub Macro1()
'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        "C:\Location\FileName.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub