Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Imprimante par defaut

Imprimante par defaut

3 réponses
Avatar
potuo
Bonjour,

Comment connaitre l'imprimante par defaut sous Window XP/2000 en VBS.

Merci de votre aide
Signaler un problème avec ce contenu

3 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
Fred
Dans : news:
potuo écrit :
Bonjour,



Bonjour,

Comment connaitre l'imprimante par defaut sous Window XP/2000 en VBS.



On ne peut le savoir qu'en listant les imprimantes et en examinant la
propriété «Default»

Un petit exemple très général :
<code>
sComputer = "."
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!" & sComputer &
"rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer")
For Each oPrinter in colInstalledPrinters
sInfos = _
"Caption : " & oPrinter.Caption & vbCrLf & _
"Default : " & oPrinter.Default & vbCrLf & _
"Description : " & oPrinter.Description & vbCrLf & _
"Local : " & oPrinter.Local & vbCrLf & _
"Name : " & oPrinter.Name & vbCrLf & _
"Network : " & oPrinter.Network & vbCrLf & _
"PortName : " & oPrinter.PortName & vbCrLf & _
"Shared : " & oPrinter.Shared & vbCrLf & _
"ShareName : " & oPrinter.ShareName
MsgBox sInfos
Next
</code>


PS : attention aux coupures de lignes intempestives.



--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Pascal B.
Salut,

Ceci ne suffirait-il pas ?

NomImprimantDefaut = Printer.DeviceName

(En debut de programme; avant toutes assignations à l'object Printer)

Cordialement
Pascal B.


"Fred" wrote in message news:
| Dans : news:
| potuo écrit :
| > Bonjour,
|
| Bonjour,
|
| > Comment connaitre l'imprimante par defaut sous Window XP/2000 en VBS.
|
| On ne peut le savoir qu'en listant les imprimantes et en examinant la
| propriété «Default»
|
| Un petit exemple très général :
| <code>
| sComputer = "."
| Set objWMIService | GetObject("winmgmts:{impersonationLevel=impersonate}!" & sComputer &
| "rootcimv2")
| Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
| Win32_Printer")
| For Each oPrinter in colInstalledPrinters
| sInfos = _
| "Caption : " & oPrinter.Caption & vbCrLf & _
| "Default : " & oPrinter.Default & vbCrLf & _
| "Description : " & oPrinter.Description & vbCrLf & _
| "Local : " & oPrinter.Local & vbCrLf & _
| "Name : " & oPrinter.Name & vbCrLf & _
| "Network : " & oPrinter.Network & vbCrLf & _
| "PortName : " & oPrinter.PortName & vbCrLf & _
| "Shared : " & oPrinter.Shared & vbCrLf & _
| "ShareName : " & oPrinter.ShareName
| MsgBox sInfos
| Next
| </code>
|
|
| PS : attention aux coupures de lignes intempestives.
|
|
|
| --
| Fred
| http://www.cerbermail.com/?3kA6ftaCvT
|
Avatar
Fred
Dans : news:,
Pascal B. disait :
Salut,



Salut,

Ceci ne suffirait-il pas ?

NomImprimantDefaut = Printer.DeviceName



Oui, probablement ... en VB6 ;-)

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT