im Netzwerk Drucker auswählen ?

[Hansa]

Hi,

ich muß verschiedene Drucker ansteuern. Deshalb gibt es einen PrintDialog. Nun habe ich hier einen Nadeldrucker Epson LQ-870. Der hängt am Server.

Delphi-Quellcode:

  if dlgDrucker.Execute then begin
    DruckerName := Printer.Printers [Printer.PrinterIndex];
showmessage ('*'+Druckername+'*');
    AssignFile (d,DruckerName);
    rewrite (d);
    showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
    StatusBar.SimpleText := 'Drucker : '+DruckerName;
  end;

Leider druckt der nichts. Im PrintDialog ist er allerdings aufgeführt. Wo liegt der Fehler ? Ich habe den Freigabenamen im Verdacht. 8)

[runger]

Hallo,

kannst du aus der normalen Betriebssystemumgebung mit diesem Printer drucken?
Freigabename kriegst du raus indem du Start-->Einstellungen-->Drucker dann den betreffenden Drucker auswählst. Rechte Maustaste-->Eigenschaften-->Freigabe.
Dort steht dann der Freigabename. Vergleiche den mit dem Namen der dir zur Auswahl angeboten wird.
Wenn der Drucker ein Netzwerkdrucker ist (was du ja sagst) solltest du ihn anpingen können.

Rainer

[runger]

Hallo,

bei mir funktioniert das so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var druckername:string;d:textfile;
begin
if dlgDrucker.Execute then begin
    DruckerName := Printer.Printers [Printer.PrinterIndex];
    showmessage ('*'+Druckername+'*');
    AssignFile (d,DruckerName);
    rewrite (d);
    writeln(d,'Test');
    closefile(d);
    showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
    StatusBar.SimpleText := 'Drucker : '+DruckerName;
  end;
end;

Rainer

[Hansa]

Du meinst das CloseFile ? Geht auch nicht. Ging das bei dir auch im Netzwerk ? Momentan wäre folgende Frage wichtig : muß im AssignFile der komplette Name des Druckers rein oder der abgekürzte Freigabename ?

[kiar]

hallo hansa,

siehst du denn den netzwerkdrucker?

[Hansa]

Ich bin doch nicht blöd. :mrgreen:

[kiar]

hallo blinder :mrgreen:

Zitat:

siehst du denn den netzwerkdrucker?

nicht visuell sondern in deiner Message :shock:

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

[Hansa]

Folgendes Ergebnis : der Drucker muß so angesprochern werden :

\\<Servername>\<Druckername>

Womit allerdings das nächste Problem auftaucht : der Druckername ist nicht etwa der vollständige Name des Druckers, so wie er in den Einstellungen zu sehen ist, sondern der Freigabename im Netzwerk (also 8 Zeichen).

Deshalb stellt sich jetzt die Frage wie ich mit dem Printdialog den Drucker auswählen kann, gleichzeitig aber auch den entsprechenden Freigabenamen im Netzwerk an mein Programm zurückliefere. 8) Mit dem Namen alleine kommt das nämlich nicht zurecht.

[Hansa]

24 St. rum ? Also Push. :mrgreen:

Zitat:

Zitat von Hansa

...Momentan wäre folgende Frage wichtig : muß im AssignFile der komplette Name des Druckers rein oder der abgekürzte Freigabename ?

Wer weiß jetzt was genaues zu dem Thema ? Momentan wird gar nichts gedruckt. 8)

[ringli]

Würde es etwas bringen wenn du den Netzwerkdrucker auf einen LPT-Port mappst?