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?

[BrunoT]

Hi Hansa,

warum nimmst du nicht das Printer.Canvas?


Einfaches Drucken

mfg

BrunoT

[marabu]

Hallo Hansa,

nur um die Begriffe zu ordnen: ein Netzwerkdrucker hat eine IP-Adresse und ist erreichbar sobald er eingeschaltet ist. Ein im Netzwerk freigegebener Drucker hat einen Freigabenamen (die Empfehlung dessen Länge auf 8 zu begrenzen hat historische Gründe) und ist über eine Workstation erreichbar. Soweit die "andere" Seite. Auf dem Rechner, auf dem dein Druckprogramm läuft, muss der Drucker eingerichtet sein, egal ob Freigabename oder IP-Adresse. Wenn es Probleme gibt, dann kann es sich um ein Rechte-Problem handeln, oder du hast bei der Einbindung einen Fehler gemacht. Beschreibe mal präzise was du da so gemacht hast und vielleicht wird dir dabei schon selbst klar, was schief läuft.

Grüße vom marabu

PS: so alt wie dein thread ist - gibt es den Drucker überhaupt noch?

[Hansa]

Zitat:

Zitat von marabu

PS: so alt wie dein thread ist - gibt es den Drucker überhaupt noch?

Der Drucker ist neu, aber das Problem alt. Fehlermeldungen sind : 103, 53 oder 32. Finde nichts darüber, woran es liegt. Deshalb "Try and Error"-Modus. :mrgreen: Zur Zeit kommt Error 103, wobei der Freigabename (also 8 Zeichen) verwendet wird (in AssignFile). Mit Canvas usw. kann ich wohl nicht viel anfangen, da die Zieldrucker Nadeldrucker sind mit begrenztem Befehlssatz.

[BrunoT]

Hi Hansa,

Fehler 103 ist Datei-IO-Error :gruebel:

Code:

 
103   Datei nicht geöffnet   Wird von CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead oder BlockWrite gemeldet, wenn die Datei nicht geöffnet ist.

Öffne mal CMD und gib folgendes ein:

Code:

net view \\server

nun schau mal nach wie der Drucker heisst, und ob das Share da ist.
jetzt drucke über DOS:

Code:

dir c:\ >>\\server\Epson870
echo ^L >>\\server\Epson870

bitte für ^L -> Strg+L drücken(für Seitenvorschub).
Wenn da Fehlermeldungen kommen, liegt es an den Zugriffsrechten.

mfg


BrunoT

PS dieser Drucker ist grafikfähig und kann auch mit Canvas drucken. :lol:

[shmia]

Ich würde nicht versuchen, irgendwie an die Freigabe des Druckers heranzukommen, sondern den Windows Spooler beauftragen meine Daten zu übertragen.
http://www.delphipraxis.net/internal...ct.php?t=26846

[Hansa]

Fehlermeldungen kommen keine, sofern der Drucker so ausgewählt wird : \\+Rechnername+\+Freigabename (8 Zeichen). Kleiner Nachteil : es kommen nur leere Seiten. :shock:

P.S.: was soll das zuckersüße ? :mrgreen: Da will man mal zuerst den Anhang beifügen, um ihn nicht zu vergessen und kriegt von Gerome einen Rüffel. :lol:

Verdammt, jetzt geht Attachment nicht mal. :zwinker: Mal sehen, ob der Beitrag hier tatsächlich erscheint. 8)

[BrunoT]

und Hansa geht der DOS-Druck?

[Hansa]

DOS-Druck ? Habe ich übersprungen. :stupid: Es geht jetzt fast so wie gewünscht. Also mit AssignFile, writeln usw. Allerdings hat das Ganze immer noch den Schönheitsfehler, daß der Printdialog nutzlos ist. Es geht nur über Freigabename ! Damit könnte ich leben, dann muß eben eine INI-Datei her. Wenn es geht, irgendwie über den PrintDialog den Drucker auszuwählen und daraus den Freigabename zu ermitteln dann wäre es perfekt. 8)