Drucker auflisten und nutzen

[binio]

Hallo ich habe folgendes vor.

Alle installierten Windowsdrucker aufzulisten:

Delphi-Quellcode:

...
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSpool, Printers, PrinterInfoComp;

type
  superdrucker = TPrinterInfo;
...

procedure TForm1.Button6Click(Sender: TObject);
var
i : Integer;
druckervar : TPrinterInfo;
liste : TStringList;
begin
  //superdrucker.create;
  druckervar := superdrucker.Create(druckervar);
  showmessage(druckervar.DefaultPrinter);
  ComboBox1.Items.Assign(druckervar.PrinterListName);
  liste.Create;
  liste.AddStrings(druckervar.PrinterListName);
  //for i:=1 to druckervar.PrinterCount-1 do
  //begin
    //showmessage('test');
  //end;
end;

und deren Pfad auszugeben. Damit meine ich z.B. bei ein Netzwerkdrucker \\server\mein_brother-lala
und bei Lokalen halt das selbige sodass ich mit dem copy bef mein Memofeld drucken kann.
Im grunde soll der User sich den Drucker auf dem er drucken will auswählen können per Combobox und dann einfach nur ein button drücken-> fertig.
Ich denke ich bin der Lösung sehr nah durch die Klasse TPrinterInfo, aber auch gleichzeitig sehr weit entfernt.
Kann mir bitte jemand einen letzten ruck geben ?!

[p80286]

Hallo Binio

ich muß zugeben, daß ich nicht verstehe worauf Du hinaus willst.
TPrinter liefert Dir mit Printers und GetPrinter alle Informationen die Du benötigst. Dann packst Du diese in eine Listbox und läßt den Benutzer auswählen und setzt den Drucker. Aber warum nutzt du nicht TPrintdialog? Da sollte alles beisammen sein was Du benötigst.

Gruß
K-H