Page 1 of 1
Save เป็น File PDFไม่ได้
Posted: Thu Nov 07, 2019 5:48 pm
by March201711
ทำไมเลือกหลายชีทใน excel แล้ว จะ Save File เป็น PDF ใส่ password แล้ว ไม่ได้
เช่น เลือก sheet AAA, BBB, YYY, DDD แล้ว save PDF แต่กลับไป Save ที่ Sheet1 แทน ต้องปรับ code อย่างไรคะ
Sub Save_PDF_all_ManySheet()
Sheets(Array("AAA", "BBB", "DDD", "YYY")).Select
Sheets("Sheet1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OOO\Desktop\Test_11.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("D24").Select
Sheets("Sheet1").Select
Range("E5").Select
End Sub
Re: Save เป็น File PDFไม่ได้
Posted: Thu Nov 07, 2019 7:52 pm
by puriwutpokin
March201711 wrote: Thu Nov 07, 2019 5:48 pm
ทำไมเลือกหลายชีทใน excel แล้ว จะ Save File เป็น PDF ใส่ password แล้ว ไม่ได้
เช่น เลือก sheet AAA, BBB, YYY, DDD แล้ว save PDF แต่กลับไป Save ที่ Sheet1 แทน ต้องปรับ code อย่างไรคะ
Sub Save_PDF_all_ManySheet()
Sheets(Array("AAA", "BBB", "DDD", "YYY")).Select
Sheets("Sheet1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OOO\Desktop\Test_11.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("D24").Select
Sheets("Sheet1").Select
Range("E5").Select
End Sub
ควรดูวิธีแนบ โค้ดให้ถูกด้วยนะครับครั้งต่อไปครับ
ตัวอย่างปรับตรงนี้ออกครับ
Code: Select all
Sheets(Array("AAA", "BBB", "DDD", "YYY")).Select
'Sheets("Sheet1").Activate <<< ตรงนี้ไม่ตรงใช้ครับ
Re: Save เป็น File PDFไม่ได้
Posted: Thu Nov 07, 2019 10:29 pm
by March201711
แล้วใส่ password ทำไงคะ
Re: Save เป็น File PDFไม่ได้
Posted: Thu Nov 07, 2019 10:46 pm
by snasui
Excel ไม่มี Option ให้ Save เป็น PDF พร้อม Password ป้องกันครับ
หากต้องการจะป้องกันต้องใช้ Program อื่นมาจัดการอีกทีครับ
Re: Save เป็น File PDFไม่ได้
Posted: Sun Nov 10, 2019 8:07 pm
by March201711
แล้วถ้าเราจะกำหนดพิมพ์แบบ auto portrait/landscape ต้อง เขียน code อย่างไรคะ เพราะบางหน้าแนวนอน บางหน้าแนวตั้งค่ะ
Re: Save เป็น File PDFไม่ได้
Posted: Sun Nov 10, 2019 8:50 pm
by snasui
น่าจะต้อง Loop เข้าไปช่วยตรวจสอบว่าจำนวนคอลัมน์ของ Page Setup มีกี่คอลัมน์ หากมากกว่าจำนวนใด ๆ ที่กำหนดให้พิมพ์เป็นแนวนอน ไม่เช่นนั้นให้พิมพ์เป็นแนวตั้งครับ
ตัวอย่างการกำหนดค่าหน้ากระดาษเป็นแนวตั้ง แนวนอน
https://docs.microsoft.com/en-us/office ... rientation ลองประยุกต์ใช้ดูครับ