Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel liste des imprimantes

liste des imprimantes

2 réponses
Avatar
marianne puget
Bonjour,
A partir ce prg ci-dessous (excellent)
A partir du resultat obtenu
Peut-on en cliquant sur une cellule ayant la reference de
l'imprimante,parametrer et imprimer?
Merci,Marianne


"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uCerhPWbHHA.1244@TK2MSFTNGP04.phx.gbl...
> Bonjour Jac,
>
> Avec WMI :
>
> Private Sub ListPrinters()
> Dim objWMIService As Object
> Dim objItem As Object
> Dim colItems As Object
> Dim strComputer As String
> Dim i As Integer
>
> [A1] = "Imprimante"
> [B1] = "Port"
> i = 2
> strComputer = "."
> Set objWMIService = GetObject _
> ("winmgmts:\\" & strComputer & "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_Printer")
>
> For Each objItem In colItems
> With ActiveSheet
> .Range("A" & i) = objItem.Name
> .Range("B" & i) = objItem.PortName
> i = i + 1
> End With
> Next
> Columns("A:B").Select
> Selection.Columns.AutoFit
> Set colItems = Nothing
> Set objWMIService = Nothing
>
> End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Ceci t'ouvre une fenêtre d'où il est possible de définir les
paramètres d'impression contrôlés par VBA (certains peuvent
dépendre de l'imprimante)

Application.Dialogs(xlDialogPageSetup).Show

Quant aux autres paramètres, tu le fais par la configuration de l'imprimante...
VBA est mal équipé pour y accéder.




"marianne puget" a écrit dans le message de news:
u0M%
Bonjour,
A partir ce prg ci-dessous (excellent)
A partir du resultat obtenu
Peut-on en cliquant sur une cellule ayant la reference de
l'imprimante,parametrer et imprimer?
Merci,Marianne


"Jacques93" a écrit dans le message de news:

Bonjour Jac,

Avec WMI :

Private Sub ListPrinters()
Dim objWMIService As Object
Dim objItem As Object
Dim colItems As Object
Dim strComputer As String
Dim i As Integer

[A1] = "Imprimante"
[B1] = "Port"
i = 2
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

For Each objItem In colItems
With ActiveSheet
.Range("A" & i) = objItem.Name
.Range("B" & i) = objItem.PortName
i = i + 1
End With
Next
Columns("A:B").Select
Selection.Columns.AutoFit
Set colItems = Nothing
Set objWMIService = Nothing

End Sub


Avatar
Modeste
Bonsour® marianne puget avec ferveur ;o))) vous nous disiez :

Bonjour,
A partir ce prg ci-dessous (excellent)
A partir du resultat obtenu
Peut-on en cliquant sur une cellule ayant la reference de
l'imprimante,parametrer et imprimer?


petit rappel préalable :
pour que Excel puisse utiliser une imprimante, il faut qu'elle soit connue de
Windows, donc que le driver correspondant soit installé sur le poste

pour avoir la liste des imprimantes connues lors de la session courante :
Application.Dialogs(xlDialogPrinterSetup).Show

ensuite tu peux choisir parmi celles connues et appuyer sur configurer

--
--
@+
;o)))