Snasui Excel Forum

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)"

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