VBA Impression sur imprimante specifique

Version imprimable

18/02/2025, 15h09
PascalGag11

VBA Impression sur imprimante specifique

Bonjour,

je suis nouveau sur ce forum et je ne trouve pas ce que je recherche.
cela existe peut être déjà, mai comment le retrouver ?

Je souhaite, dans une macro Excel, imprimer un document sur une imprimante spécifique et revenir à l'imprimante par défaut ensuite.

j'utilise le code suivant :

Application.ActivePrinter = "Kyocera FS-2020D sur Ne00:"

mon problème est que le port "Ne00" change (en fonction de l'ordre de démarrage des différentes imprimantes semble-t-il).

je souhaite donc m'affranchir de ce "sur Ne00" et choisir avec le seul nom de l'imprimante.
Je n'ai pas trouvé le code me permettant de le récupérer dans la base de registre (dans la branche Ordinateur\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Devices)

merci de votre réponse.

Bonjour,

une solution potentielle pas très propre mais qui pourrait marcher

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim NomPrinter As String, i As Long
    On Error Resume Next
    For i = 0 To 99
        NomPrinter = "Kyocera FS-2020D sur Ne" & Format(i, "00") & ":"
        Application.ActivePrinter = NomPrinter
        If Err.Number = 0 Then Exit For
        Err.Clear
    Next
    On Error GoTo 0
    MsgBox NomPrinter
End Sub

18/02/2025, 16h27
tototiti2008

Re,

Maintenant si la lecture de la clé de Registre est votre préférence, vous pouvez allez voir par là

https://www.developpez.net/forums/d5...base-registre/

Pour info, il y a longtemps, certains de codes qui accèdent à la base de registre nécessitaient d'être administrateur de son poste ce qui pouvait poser problème en entreprise, mais peut-être n'est-ce plus le cas
19/02/2025, 07h30
TOFatJOB

1 pièce(s) jointe(s)

Bonjour,

un fichier que j'ai mis de côté il y a quelques années et qui pourrait aider sur le sujet. Il permet de lister les imprimantes , en choisir une dans la liste

(je ne connais pas l'auteur)

Pièce jointe 664634