export PDF เรียงตามที่ต้องการ
Posted: Thu May 14, 2020 5:23 pm
ต้องการ 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 แสดงเป็นหน้าสุดท้ายค่ะ
ซึ่งตอนทำการเลือก 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 
ได้ลองเรียงชีตตามที่ต้องการให้ Export แล้วยังครับ หากยังให้เรียงเสียก่อนจะเรียงด้วยมือหรือด้วย Code ก็แล้วแต่สะดวก