Einzelnen Beitrag anzeigen

Benutzerbild von kiar
kiar

Registriert seit: 2. Aug 2003
Ort: Aschersleben
1.362 Beiträge
 
Delphi 5 Professional
 
#7

Re: im Netzwerk Drucker auswählen ?

  Alt 30. Mär 2005, 13:04
hallo blinder

Zitat:
siehst du denn den netzwerkdrucker?
nicht visuell sondern in deiner Message

also folgendes funktioniert bei mir problemlos:
Delphi-Quellcode:

var
    DruckerName:String;
    f:TextFile;
begin
    if PrintDialog1.Execute then
    begin
       DruckerName := Printer.Printers [Printer.PrinterIndex];
       showmessage ('*'+DruckerName+'*');
       AssignFile (f, 'DruckerName');
       rewrite(f);
       showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
       StatusBar1.SimpleText := 'Drucker : '+ DruckerName;
    end;
end;
raik
verhältnisse die einem nicht passen,
muss man verändern oder verlassen
  Mit Zitat antworten Zitat