Bonjour à tous
Dans le userform, je veux créer un If avec l'aide d'un checkbox.
Par défaut c'est noir et blanc donc "\\se0411\QA01-9544403 sur Ne04:"
Par contre, je veux pouvoir cocher Couleur et à ce moment c'est
"\\se0411\QA01-9544404 sur Ne04:" qu'il doit être sélectionné
Voici mon code (seulement avec l'imprimante noire et blanc)
merci
Dans le userform, je veux créer un If avec l'aide d'un checkbox.
Par défaut c'est noir et blanc donc "\\se0411\QA01-9544403 sur Ne04:"
Par contre, je veux pouvoir cocher Couleur et à ce moment c'est
"\\se0411\QA01-9544404 sur Ne04:" qu'il doit être sélectionné
Voici mon code (seulement avec l'imprimante noire et blanc)
HTML:
Sub Page1()
Sheets("Page1").Select
Range("A1:BR53").Select
Range("BR53").Activate
Application.ActivePrinter = "\\se0411\QA01-9544403 sur Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\se0411\QA01-9544403 sur Ne04:", Collate:=True
Sub Page2()
Sheets("Page2").Select
Range("A1:BR53").Select
Range("BR53").Activate
Application.ActivePrinter = "\\se0411\QA01-9544403 sur Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\se0411\QA01-9544403 sur Ne04:", Collate:=True
Sub Page3()
Sheets("Page3").Select
Range("A1:BR53").Select
Range("BR53").Activate
Application.ActivePrinter = "\\se0411\QA01-9544403 sur Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\se0411\QA01-9544403 sur Ne04:", Collate:=True
merci