Application.ActivePrinter = _
        "Auto HP Deskjet 6500 Series on HOMEDELLTOWER on Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,3,""Auto HP Deskjet 6500 Series on HOMEDELLTOWER on Ne02:"",,TRUE,,FALSE)"