export PDF เรียงตามที่ต้องการ

[March201711]

ต้องการ export file PDF ตามที่เรียง อยากให้หน้า sheet "self_monitor" แสดงหน้า PDF เป็นหน้าสุดท้าย
ซึ่งตอนทำการเลือก sheet จะเลือก sheet "หนี้สิน", "หนี้สิน_2", "สรุป", "1_1","1_2", "2_1", "3", "4", self_monitor
เป็น sheet แรกที่แสดง และเลือก sheet "self_monitor" เป้นชีทสุดท้าย แต่พอ export file มา sheet

ฉะนั้น อยากให้ sheet self_monior แสดงเป็นหน้าสุดท้ายค่ะ

Code: Select all

Sub PDF()
   Sheets(Array("หนี้สิน", "หนี้สิน_2", "สรุป", "1_1", "1_2", "3", _
        "4", "Self_Monitor")).Select

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\D\" & Format(Range("T1").Value2, "ddmmyyyy") & "(End).pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True       
End Sub 

[snasui]

ได้ลองเรียงชีตตามที่ต้องการให้ Export แล้วยังครับ หากยังให้เรียงเสียก่อนจะเรียงด้วยมือหรือด้วย Code ก็แล้วแต่สะดวก

โดยปกติการ Export หรือ Print หลายชีตพร้อมกัน โปรแกรมจะ Print หรือ Export ตามการจัดเรียงครับ