I need to save all sheets in a workbook using my pdf printer (Foxit PhantomPDF Printer on Ne04) using the sheet name as the filename. I believe i need to use my pdf printer vs the Save as PDF function (see below)
I was using the code below, but it seems to save the sheets in landscape and in a size larger than the regular 8.5x11, which i need it to be. I have checked the default settings for Microsoft Print to PDf and they are set to Portrait, Letter size. Those are the only options under the printing preferences
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
nm = ws.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="\\Server4\c$\Soft\Reporting Center" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next ws
Bookmarks