Sub RegularPrint()
ActiveSheet.PrintOut
End Sub
Sub PDF_Print()
Dim fPath As String, fName As String
'Where do we want to save the PDF?
fPath = "C:\My Documents\"
'What do we name the PDF?
fName = "My file.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName
End Sub