Excel Forum

Code: Select all

Sub Macro7()
    Sheets("print P.1").Select
    Range("A1:L489").Select
    Sheets("print P.2").Select
    Range("A1:Q122").Select
    Sheets("P.3 Risk Register").Select
    Range("A1:H22").Select
    Sheets("print p.4").Select
    Range("A1:J780").Select
    Sheets("P5 กราฟ + ความคิดเห็น").Select
    Range("A1:M24").Select
    Sheets(Array("print P.1", "print P.2", "P.3 Risk Register", "print p.4", _
        "P5 กราฟ + ความคิดเห็น")).Select
    Sheets("print P.1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Win10x64\Desktop\EX1.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub