Données des imprimantes dans l'userform[Résolu]

[surplus]

Bonjour
je voudrais récupérer les données des imprimantes dans l'userform
j'y suis arrivé avec le bouton "chemin des imprimantes"
mais avec "liste des imprimantes" j'ai pu récupérer que la fin du code
comment récupérer la totalité des données dans le textbox de l'userform pas sur la feuille comme actuellement

merci de votre aide

 

[Modeste geedee]

Re : Données des imprimantes dans l'userform

Bonsour®

voir : https://www.excel-downloads.com/threads/vba-si-application-activeprinter-erreur-prend-lautre.195401/

utilisez l'instruction :
Application.Dialogs(xlDialogPrinterSetup).Show

 

[surplus]

Re : Données des imprimantes dans l'userform

bonjour
j'avais envi de faire avec userform pour pouvoir copier coller la liste
merci

 

[Modeste geedee]

Re : Données des imprimantes dans l'userform

Bonsour®
😎 pourquoi réinventer la roue, cette liste est disponible à tout instant, en adéquation avec le poste de travail, exhaustive et à jour !!!

 

[Paf]

Re : Données des imprimantes dans l'userform

bonjour à tous

puisque le code peut afficher les différents noms d'imprimante dans des cellules, une petite modif pour les faire apparaitre dans la textbox:

For Each imprimante In imprimantesdispo
Cells(lig, 1) = imprimante.Name
'renvoie le nom de l'imprimante par défaut
If imprimante.Default Then
MaList = MaList & " " & "active: " & imprimante.Name & vbCrLf
Else
MaList = MaList & " " & imprimante.Name & vbCrLf
End If
lig = lig + 1
Next

Me.TextBox1 = MaList

NB : il faut mettre la propriété Multiline de la textbox à TRUE

Bonne suite

 

[surplus]

Re : Données des imprimantes dans l'userform

bonsoir
génial ça marche impec
merci de ton aide
a bientôt