Sub PRINTPDF_()
'
 ' PRINT_ Macro
 ActiveWorkbook.Sheets.Select


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "Monthly Progress Report.pdf", Quality:=xlQualityStandard,
 IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, OpenAfterPublish:=True
'Application.PrintCommunication = True
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'IgnorePrintAreas:=False
 End Sub