Macro: print each sheet to pdf using ExportAsFixedFormat
Posted on 2016-10-05
I got this macro which save the active sheet of a workbook as pdf. I want to add the following function : do it for every sheets of the workbook and at the beginning of the macro i want to add a value with a dialog box which will be added at the beginning of the filename. Exemple : sheet name : 036, 037. Filename : Dialogboxinput-036, Dialogboxinput-037.
pdfName = ActiveSheet.Name
ChDir ActiveWorkbook.Path & "\"
fileSaveName = ActiveSheet.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
MsgBox "File Saved " & " " & fileSaveName