Imprimante par defaut

Signaler
-
Messages postés
258
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
6 octobre 2020
-
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

Messages postés
258
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
6 octobre 2020
8
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...

@+