1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Sub Macro2()
'
' Macro2 Macro
'
'
Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne00:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Microsoft XPS Document Writer sur Ne00:"",,TRUE,,FALSE)"
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
Application.ActivePrinter = "Bullzip PDF Printer sur Ne02:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Bullzip PDF Printer sur Ne02:"",,TRUE,,FALSE)"
End Sub
Sub Macro4()
'
' Macro4 Macro
'
'
Application.ActivePrinter = "Fax sur Ne01:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Fax sur Ne01:"",,,,FALSE)"
End Sub |
Partager