liste des imprimantes

Le
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 & "ootCIMV2")
> 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4392011
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" 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


Modeste
Le #4391821
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)))

Publicité
Poster une réponse
Anonyme