ActiveSheet.PageSetup.PrintArea = "$B$1:$G$16" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\data.pdf", Quality:=xlQualityStandard, IncludeDocProperties _ :=False, IgnorePrintAreas:=False, OpenAfterPublish:=True