esposit513
New Member
- Joined
- Nov 9, 2011
- Messages
- 5
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 a size larger than the regular 8.5x11, which i need it to be.
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
, 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 a size larger than the regular 8.5x11, which i need it to be.
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
