Choix de l'imprimante par userform [Résolu]

[Vincent32]

Bonjour,

Je suis en train de réaliser un userform qui me permet de sélectionner les feuilles que je souhaite imprimer ainsi que le choix de l'imprimante.

Pour ce faire j'ai disposé 3 OptionButton dans mon userform qui correspondent aux trois imprimantes disponibles.

Je réalise une boucle "si bouton 1 activé alors imprimer la feuille avec l'imprimante 1, si si bouton 2 activé alors imprimer la feuille avec l'imprimante 2, si si bouton 3 activé alors imprimer la feuille avec l'imprimante 3"

Cependant je ne trouve pas le code pour sélectionner telle ou telle imprimante dans ma macro

Code :

1
2
3
4
5
6
7
8
9
10
11
If CheckBox1 = True Then
    If OptionButton1 = True Then
        Worksheets("Expérience").PrintOut 'comment lui dire imprimante n°1 ?
    End If
    If OptionButton2 = True Then
        Worksheets("Expérience").PrintOut 'comment lui dire imprimante n°2 ?
    End If
    If OptionButton3 = True Then
        Worksheets("Expérience").PrintOut 'comment lui dire imprimante n°1 ?
    End If
End If

Merci pour votre aide

[kiki29]

Salut, via l'enregistreur de macros tu devrais récupérer leur nom respectif
pour pouvoir ensuite les intégrer dans ta macro

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim ActivePrinter As String
Dim PrinterDefault As String
 
	PrinterDefault = Application.ActivePrinter
 
	' ta macro avec 
	Application.ActivePrinter= "loulou1"
	'	.....
	Application.ActivePrinter= "loulou2"
	' 	.....
	Application.ActivePrinter= "loulou3"
	'	.....
 
	' Rétablir l'imprimante par défaut en fin de macro
	Application.ActivePrinter = PrinterDefault

il se peut également qur tu récupères qqch comme

Code :

           Loulou1 sur NeXX:

avec xx variable du style 03 ou autre, si c'est le cas et que ta macro doit fonctionner sur d'autres PC cet incrément peut être différent et dépend de l'ordre d'installation des pilotes sur le PC concerné

Pour obtenir sur un PC donné la liste des imprimantes ( à adapter )

Code :

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
28
29
30
31
32
33
34
35
36
Option Explicit
 
Private Declare Function EnumPrintersA Lib "Winspool.drv" _
                                       (ByVal flags As Long, ByVal Name As String, ByVal Level As Long, _
                                        pPrinterEnum As Long, ByVal cdBuf As Long, _
                                        pcbNeeded As Long, pcReturned As Long) As Long
 
Private Declare Function lstrlenA Lib "Kernel32" _
                                  (ByVal lpString As Any) As Long
 
Private Declare Function lstrcpyA Lib "Kernel32" _
                                  (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
 
Private Function Imprimantes()
Dim PrinterEnum() As Long, Impr() As String
Dim Needed As Long, Returned As Long, I As Integer
    EnumPrintersA 2, vbNullString, 5, 0, 0, Needed, 0
 
    If Needed = 0 Then Exit Function
    ReDim PrinterEnum(Needed / 4)
    EnumPrintersA 2, vbNullString, 5, PrinterEnum(0), _
                  Needed, Needed, Returned
    ReDim Impr(1 To Returned)
    For I = 1 To Returned
        Impr(I) = Space$(lstrlenA(PrinterEnum(I * 5 - 5)))
        lstrcpyA Impr(I), PrinterEnum(I * 5 - 5)
    Next I
    Imprimantes = Impr
End Function
 
Sub ListeImprimante()
Dim Impr
    For Each Impr In Imprimantes
        Debug.Print Impr
    Next Impr
End Sub

[Vincent32]

Bonjour ai je faux dans ma syntaxe car lorsque j'exécute il m'indique :
si uniquement la checkbox2 est sélectionné j'ai le message d'erreur suivant et la ligne checkbox2 est surligné en bleu
"l'indice n'appartient pas à la sélection"
Pour info la feuille est en fait un graphique

Code :

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
28
29
30
31
32
33
34
If OptionButton1 = True Then 'impression sur ISIMP116
        Application.ActivePrinter = "\\isnts37\ISIMP116 sur Ne03:"
        If CheckBox1 = True Then
            Worksheets("Expérience").PrintOut 'impression de la feuille Expérience
        End If
        If CheckBox2 = True Then
            Worksheets("Données brutes").PrintOut 'impression de la feuille Données brutes
        End If
        If CheckBox3 = True Then
            Worksheets("Soustraction").PrintOut 'impression de la feuille Soustraction
        End If
        If CheckBox4 = True Then
            Worksheets("Correction ligne de base").PrintOut 'impression de la feuille Correction ligne de base
        End If
        If CheckBox5 = True Then
            Worksheets("N-(N-1)").PrintOut 'impression de la feuille N-(N-1)
        End If
        If CheckBox6 = True Then
            Worksheets("Dérivée première").PrintOut 'impression de la feuille Dérivée première
        End If
        If CheckBox7 = True Then
            Worksheets("Dérivée seconde").PrintOut 'impression de la feuille Dérivée seconde
        End If
        If CheckBox8 = True Then
            Worksheets("Correction masse").PrintOut 'impression de la feuille Correction masse
        End If
        If CheckBox9 = True Then
            Worksheets("Correction surface").PrintOut 'impression de la feuille Correction surface
        End If
        If CheckBox10 = True Then
            Worksheets("Correction masse et surface").PrintOut 'impression de la feuille Correction masse et surface
        End If
        MsgBox ("Impression couleur réalisée sur ISIMP116 (Bloc F)")
    End If

[kiki29]

Salut, si la feuille n'existe pas

[Vincent32]

Les deux existent !!!

Je ne comprends pas !

[kiki29]

Salut, pour un Graphe utilise Sheets et non WorkSheets

Extrait de l'aide en ligne

Worksheets
cette propriété renvoie une collection Sheets qui représente toutes les feuilles de calcul contenues dans le classeur actif

Sheets
Cette propriété renvoie une collection Sheets qui représente toutes les feuilles contenues dans le classeur actif

[Vincent32]

Merci beaucoup,

ça fonctionne correctement