Imprimante par defaut

Question

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.

cs_yanb · Answer

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...

@+

Imprimante par defaut

1 réponse

Votre réponse

Discussions similaires