สั่งให้พิมพ์เป็น PDF

[yodpao.b]

ตอนทำงานที่บ้านใช้คำสั่ง พิมพ์เป็น PDF ไม่มีปัญหา แต่พอมาทำที่ทำงาน กลับ eeror
Codeด้านล่าง จะใช้กับที่บ้าน

Code: Select all

    Application.ActivePrinter = "PDFCreator on Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator on Ne00:"",,TRUE,,FALSE)"

ลองใช้มาโครกับเครื่องที่ทำงานแก้ไข พบจุดที่ต่างกันครับ ดังโคดด้านล่าง

Code: Select all

    Application.ActivePrinter = "PDFCreator บน Ne06:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator บน Ne06:"",,TRUE,,FALSE)"

จุดที่ต่างกัน "PDFCreator บน Ne06:"

คำถามจะแก้ไขอย่างไรให้ทำงานได้ทุกเครื่องครับ

[snasui]

ลองใช้การดัก Error เข้ามาช่วยครับ เช่น

Code: Select all

on error resume next
Application.ActivePrinter = "PDFCreator on Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator on Ne00:"",,TRUE,,FALSE)"
if err <> 0 then
Application.ActivePrinter = "PDFCreator บน Ne06:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator บน Ne06:"",,TRUE,,FALSE)"
end if 

[yodpao.b]

ขอบคุณครับ