Delphi 7 výběr tiskárny

[Kony]

Ahoj, chtěl bych se zeptat na jednu otázku. Lze v Delphi 7 v kodu vybrat tiskárnu ??
Mám u PC připojené 3 tiskárny a každou tiskárnu potřebuji v jiné části kódu. Lze vybrat automaticky tiskárnu aniž by to chtělo nějaké potvrzení ?

[vandrovnik]

Pro tisk na různé termotransferové tiskárny používám přímo CreateDCW (nebo v Delphi 7 asi spíš CreateDCA):
https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-createdca

Vrácenou hodnotu přiřadím do Canvas.Handle.

A pak se taky hodí https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-startdoca

[KarelHorky]

Existuje jednotka Printer a ta má property Printers, která obsahuje všechny tiskárny v systému. Konkrétní tiskárnu si vybíráš pomocí property PrinterIndex.

Kód: Delphi [Vybrat]

1.   if Printer.Printers.Count > 0 then
2.     Printer.PrinterIndex := -1; { nastavi vychozi tiskarnu, pokud je aspon jedna }

A pak už záleží na tom, jak tiskneš. Já používám FastReport, takže zvolenou tiskárnu nastavím takto:

Kód: Delphi [Vybrat]

1.       dm.frRp.PrintOptions.Printer := Printer.Printers[Printer.PrinterIndex];

[Kony]

tohle zni velice zajimave.. musim na to mrknout a najít si nejaky example...