Save เป็น File PDFไม่ได้

[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

[puriwutpokin]

ทำไมเลือกหลายชีทใน 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 <<< ตรงนี้ไม่ตรงใช้ครับ

[March201711]

แล้วใส่ password ทำไงคะ

[snasui]

Excel ไม่มี Option ให้ Save เป็น PDF พร้อม Password ป้องกันครับ

หากต้องการจะป้องกันต้องใช้ Program อื่นมาจัดการอีกทีครับ

[March201711]

แล้วถ้าเราจะกำหนดพิมพ์แบบ auto portrait/landscape ต้อง เขียน code อย่างไรคะ เพราะบางหน้าแนวนอน บางหน้าแนวตั้งค่ะ

[snasui]

น่าจะต้อง Loop เข้าไปช่วยตรวจสอบว่าจำนวนคอลัมน์ของ Page Setup มีกี่คอลัมน์ หากมากกว่าจำนวนใด ๆ ที่กำหนดให้พิมพ์เป็นแนวนอน ไม่เช่นนั้นให้พิมพ์เป็นแนวตั้งครับ

ตัวอย่างการกำหนดค่าหน้ากระดาษเป็นแนวตั้ง แนวนอน https://docs.microsoft.com/en-us/office ... rientation ลองประยุกต์ใช้ดูครับ