problem with excel to pdf macro

[darbykate]

Good Afternoon!
I'm having some issues with a macro that I built to select certain sheets of my excel file to export as a PDF. It's saving with the correct name and in the correct place, but the sheets only show the footer and maybe one line.

Below is what i have.
Sub Print_To_PDF()
' Print_to_PDF Macro

' Set Path to Save
fPath = "C:\Users\dkdougl1\Documents\"
'Set File Name


fName = Sheets("Notes and Warnings").Range("A33")

'Select sheets to Print to PDF
Sheets(Array("Calibration Sheet", "Weighing Dry", "Weighing Wet", "Final Weigh", "Base Mix Sheet", "Final Mix Sheet", "Weigh Up Operations", "Base Start Up Operations", "Base Mixing Operations", _
"Base Mill Operations", "Final Start Up", "Final Mix Operations", _
"Final Mill Operations")).Select

'Print Selected Sheets to PDF
Selection.ExportAsFixedFormat Type:=x1TypePDF, FileName:=fPath & fName, OpenAfterPublish:=True

End Sub


Thanks!

[NoSparks]

Have you tried

'Print Selected Sheets to PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

[Pecoflyer]

You might also find some help at http://www.rondebruin.nl/win/section1.htm

[darbykate]

Originally Posted by NoSparks

Have you tried

'Print Selected Sheets to PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Wouldn't that only export the one sheet I'm on?

[darbykate]

Originally Posted by darbykate

Wouldn't that only export the one sheet I'm on?

I should've tried it before I posted. That worked, thank you!