Thema: Delphi Drucker wechseln/ändern

Einzelnen Beitrag anzeigen

Fritz01

Registriert seit: 22. Mär 2006
Ort: Großenkneten
181 Beiträge
 
Delphi 7 Professional
 
#1

Drucker wechseln/ändern

  Alt 31. Jan 2008, 23:24
Hallo,
habe da wieder mal . . .
In einer ComboBox sind alle unter Windows installietern Drucker mit
cbDrucker.Items.Assign(Printer.Printers); aufgelistet. Der StandardDrucker ist mit
cbDrucker.ItemIndex := Printer.PrinterIndex; als aktueller Drucker aktiv.
Nun kommt mein Problem. Ich möchte zum Drucken einen anderen Drucker benutzen.
Der Wechsel soll, wie ich in der DP gelesen habe, mit einem Zweizeiler zu erledigen sein.
Delphi-Quellcode:
procedure Tfrm1.cbDruckerClick(Sender: TObject);
begin
  Printer.PrinterIndex := -1;
  sAktuellerDrucker := Printer.Printers.[Printer.PrinterIndex];
end;
Somit soll ‚sAktuellerDrucker’ der nun aktive Drucker sein. Wie beschreibe ich ‚sAktuellerDrucker’ in der btnClick Procedure?
Ich habe keine Idee mehr.
Gruß
Fritz
Fritz
  Mit Zitat antworten Zitat