Comment savoir l'imprimante par defaut
cs_kmikaz
Messages postés
34
Date d'inscription
vendredi 22 mars 2002
Statut
Membre
Dernière intervention
2 mai 2006
-
18 oct. 2002 à 10:47
sebsoft Messages postés 28 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 21 mai 2003 - 18 oct. 2002 à 15:03
sebsoft Messages postés 28 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 21 mai 2003 - 18 oct. 2002 à 15:03
A voir également:
- Comment savoir l'imprimante par defaut
- Imprimante virtuelle txt - Forum Delphi / Pascal
- Code défaut inconnu delphi ✓ - Forum Delphi / Pascal
- Imprimante datamatrix - Forum Delphi / Pascal
- Script imprimante par défaut - Forum Javascript / DHTML
- Imprimante "virtuelle" - Forum Visual Basic 6
2 réponses
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
18 oct. 2002 à 12:15
18 oct. 2002 à 12:15
sauf erreur de ma part, pas besoin de dll :
MsgBox Printer.DeviceName te rend le nom de l'imprimante par defaut.... enfin je crois
MsgBox Printer.DeviceName te rend le nom de l'imprimante par defaut.... enfin je crois
sebsoft
Messages postés
28
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
21 mai 2003
18 oct. 2002 à 15:03
18 oct. 2002 à 15:03
Dim XPrint As Printer
'Stoque le nom de l'imprimante par defaut
txtImprimante.Text = Printer.DeviceName
'charge la liste des imprimantes dans un combo
For Each XPrint In Printers
cboListePrinter.AddItem XPrint.DeviceName
Next
'Selectionne l'imprimante par défaut
cboListePrinter.ListIndex = 0
A+;-)
sebsoft
'Stoque le nom de l'imprimante par defaut
txtImprimante.Text = Printer.DeviceName
'charge la liste des imprimantes dans un combo
For Each XPrint In Printers
cboListePrinter.AddItem XPrint.DeviceName
Next
'Selectionne l'imprimante par défaut
cboListePrinter.ListIndex = 0
A+;-)
sebsoft
