Discussion :

[cocomathis]

Bonjour à tous,

Après une journée entiere de recherche infructueuses je lance un appel au secours....

voila, j'ai un fichier qui utilise 2 imprimantes, 1 A4 pour la majorité du classeur et une thermique pour une seule feuille.

j'ai réussi a faire le changement d'imprimante sans avoir à passer par la boite de choix d'imprimante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
 
ActivePrinter = "THERMAL Receipt Printer sur Ne00:"
 
End Sub
 
 
 
Private Sub Worksheet_Deactivate()
Application.ActivePrinter = "Canon MG5600 series Printer sur Ne06:"
End Sub

mais mon probleme est que ce programme servira sur d'autres ordinateurs sans que je connaisse au préalable leurs imprimantes.

existe-t-il un moyen pour que ce changement se fasse sur d'autres ordinateurs sans avoir a passer par la boite de dialogue??

je vous remercie d'avance

[kiki29]

Salut, pour les mêmes imprimantes le N° dans NExx change suivant le pc ( en fait suivant l'ordre dans lequel les pilotes ont été installés ).

Test_Liste_Imprimantes_Ports permet d'obtenir une visualisation des imprimantes et ports ( pj ).
Test_Impression ici pour PDFCreator sera à adapter à ton contexte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
 
Private Declare Function GetProfileSection& Lib "kernel32" Alias "GetProfileSectionA" ( _
                                            ByVal lpAppName As String, _
                                            ByVal lpReturnedString As String, _
                                            ByVal lngSize As Long)
 
Private Function ListeImprimantes() As Variant
Dim sA As String, rep As Long, cpt As Long, pos As Long, T() As String
    sA = Space(2048)
    rep = GetProfileSection("devices", sA, 2048)
    If rep > 0 Then
        sA = Trim$(Replace(sA, Chr(0), ""))
        Do Until sA = ""
            cpt = cpt + 1
            ReDim Preserve T(1 To 2, 1 To cpt)
            pos = InStr(1, sA, "=") - 1
            T(1, cpt) = Mid$(sA, 1, pos)
            pos = InStr(1, sA, ",") + 1
            T(2, cpt) = Mid(sA, pos, InStr(1, sA, ":") + 1 - pos)
            sA = Mid$(sA, InStr(1, sA, ":") + 1)
        Loop
    End If
    ListeImprimantes = Application.WorksheetFunction.Transpose(T)
End Function
 
Sub Test_Impression()
Dim sImp As String
Dim TabImprimantes As Variant
Dim i As Long
 
    sImp = Application.ActivePrinter
    TabImprimantes = ListeImprimantes
 
    For i = 1 To UBound(TabImprimantes, 1)
        If TabImprimantes(i, 1) = "PDFCreator" Then
            Application.ActivePrinter = TabImprimantes(i, 1) & " sur " & TabImprimantes(i, 2)
            Exit For
        End If
    Next i
 
    Sheets(1).PrintOut
 
    Application.ActivePrinter = sImp
End Sub
 
Sub Test_Liste_Imprimantes_Ports()
Dim sA As String, rep As Long, cpt As Long, pos As Long, T() As String
    sA = Space(2048)
    rep = GetProfileSection("devices", sA, 2048)
    If rep > 0 Then
        Feuil1.Cells.Clear
        sA = Trim$(Replace(sA, Chr(0), ""))
        Do Until sA = ""
            cpt = cpt + 1
            ReDim Preserve T(1 To 2, 1 To cpt)
            pos = InStr(1, sA, "=") - 1
            T(1, cpt) = Mid$(sA, 1, pos)
            pos = InStr(1, sA, ",") + 1
            T(2, cpt) = Mid$(sA, pos, InStr(1, sA, ":") + 1 - pos)
            sA = Mid$(sA, InStr(1, sA, ":") + 1)
 
            With Feuil1
                .Cells(cpt, 1) = T(1, cpt)
                .Cells(cpt, 2) = T(2, cpt)
            End With
        Loop
    End If
End Sub

[cocomathis]

Merci Kiki29,

et sinon je pensais a une autre possibilité.

est-ce qu'il est possible que l'utilisateur choisisse ses imprimantes en début de programme?

disons que dans la feuille de départ qu'on appelera "Tableau de bord", il y ai 2 boutons, le premier permettrai de choisir l'imprimante 1 et le deuxieme, l'imprimante 2 et que ces choix soient définitifs pour le temps d'utilisation du programme. Ce qui permettrait que le code que j'ai présenté au début du sujet devienne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
 
ActivePrinter = Imprimante1
 
End Sub
 
 
 
Private Sub Worksheet_Deactivate()
Application.ActivePrinter = Imprimante2
End Sub

[kiki29]

Salut, c'est à toi de voir, je n'ai aucun talent divinatoire. Autre chose, une digression, mais tu devrais t'intéresser au CodeName. Cela permet à l'utilisateur de déplacer une feuille, de renommer les feuilles sans avoir à retoucher au code VBA.

[cocomathis]

bon j'ai avancé un peu, mais il me manque quelque chose

je joins un fichier test et voila ce qui me manque:

une fois que mes imprimantes sont détéctés, je souhaiterais que, quand j'active la feuil2 l'imprimante soit la valeur C2 de la feuille 1 et quand je sors de la feuil2, l'imprimante soit la valeur C1 de la feuil1.

Bien évidement, C1 et C2 de la feuil1 peuvent varier en fonction de l'utilisateur.

Je sais pas si j'ai été très clair

test.xlsm

[kiki29]

Salut, à voir en l'adaptant à tes imprimantes.