Bonjour le forum,
Dans des feuilles, j'ai des boutons "Imprimer" qui me sortent le nombre de copies souhaité quand le nombre est rentré en dur.
Dans un autre cas, le nombre est variable et voici mon code
mais là il ne se passe rien. QUelqu'un voit-il pourquoi?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Imprimer_Eval() ' ' Imprimer les évaluations ' Touche de raccourci du clavier: Ctrl+i Nb = Sheets("Dossiers").Range("FC1") 'nombre de copies à imprimer Range("A1:AP42").Select Application.ActivePrinter = "Brother HL-1430 series sur Ne06:" ExecuteExcel4Macro _ "PRINT(1,,,Nb,,,,,,,,1,""Brother HL-1430 series sur Ne06:"",,TRUE,,FALSE)" 'Nb de copies au milieu (Nb) End Sub
Partager