Imprimante par defaut

Superette-man - 6 oct. 2020 à 10:57
cs_yanb
Messages postés
267
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
20 mai 2022
- 6 oct. 2020 à 13:26
Bonjour,
J'ai deux imprimantes reliées au meme pc..je voudrais pouvoir basculer de l'une a l'autre via mon programme sans passer par le panneau de configuration.cad via une fonction delphi que j'insererai dans mon code source elaboré sous delphi 7.

1 réponse

cs_yanb
Messages postés
267
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
20 mai 2022
13
Modifié le 6 oct. 2020 à 13:29
Salut,
exemple
uses Printers;

//Pour avoir la liste des imprimantes dans un TListBox
ListBox.Items := Printer.Printers;
//Imprimante à utiliser à partir de l'index du TListBox
//pour info -1 est l'imprimante par défaut
Printer.PrinterIndex := ListBox.ItemIndex;
//ou
//Imprimante à utiliser à partir du nom de l'imprimante
Printer.PrinterIndex := Printer.Printers.IndexOf('Nom Imprimante');
//Pour avoir le nom de l'imprimante par défaut
Printer.PrinterIndex := -1;
ShowMessage(Printer.Printers[Printer.PrinterIndex]);
//etc...

@+
0