Discussion :

[Rayan1]

Bonjour chers, j'ai deux états dans une application. L'un à un format A5 et l'autre un format A4. J'ai installé deux imprimantes dans mon ordinateur. L'une à des feuilles A4 et l'autre A5 . A chaque fois que je veux imprimer il faut que je choisi l'imprimante. Je voulais savoir si c'était possible créer deux bouton pour chaque imprimante. Exemple si je veux imprimer que A4 je clique sur le bouton A4 et même chose pour A5

[kiki29]

Salut, si j'ai bien compris, à adapter à ton contexte

Test_Liste_Imprimantes_Ports permet d'obtenir une visualisation des imprimantes et ports.
Test_Impression ici pour PDFCreator

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
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 TabImprimantes As Variant
Dim i As Long
 
    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
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

[Rayan1]

Oui je pense que c'est à peut prête ce que je veux. Mais dans ton code je pense qu'il me donne la liste des imprimantes . Mais comment je peux l automatiser Le choix le l'imprimante. Dans je clique qu'il s'imprime automatiquement

[kiki29]

Si tu sais lire : à adapter à ton contexte, en y insérant la procédure d'impression idoine

Test_Impression ici pour PDFCreator

, tu n'auras pas du tout cuit et ce sera à toi de faire l'effort.
Excel et l'enregistreur de macro
A lire.

[Rayan1]

Oui vous avez raison. J'ai compris cela que je devrai faire des efforts. je suis un débutant quand j'ai fait le remplacement. Ça ne marche pas. C'est pour cela.

[kiki29]

Ça ne marche pas

. Ce n'est pas avec ce genre de réponse que l'on avancera.

[Rayan1]

Ha veuillez m'excuser pour ma réponse.

[Rayan1]

Jais essai vraiment mais j y arrive pas désolé. C'est sur access je veux imprimer. Mais si je ne trompe pas ton code est applicable sur un fichier Excel. Je suis carement un débutant dons j'ai vramien du mal. En plus les imprimantes sont en reseau. Comprenne moi

[kiki29]

J'en suis fort aise. Je n'ai pas Access. Si tu cherches et poses ta question sur le bon forum .....
Une simple recherche me conduit ici ou là

[Rayan1]

Salut à vous. Je tiens à vous dire grand merci pour votre aide vue mon niveau débutant en access. J'ai pu aboutir à quelque chose. Seul le travail paie. Encore merci.
mais il y a un problème toujours j'ai utiliser ce code

Code :

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

1
2
3
4
5
6
7
8
 Public Sub Imprim()
Dim wsn
Set wsn = CreateObject("WScript.Network")
wsn.SetDefaultPrinter "PDFCreator"
 DoCmd.OpenReport "état1"
wsn.SetDefaultPrinter "HP LaserJet 1018"
 DoCmd.OpenReport "état2", acViewPreview
End Sub

Mais quand je veux utiliser les imprimantes en ré sauf sa ne fonctionne pas. Je ne sais pas pourquoi. Si quelqu'un a la gentillesse de m'aider encore sa me fera beaucoup de bien. Merci d'avance pour votre compréhension