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