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 ?!