Print-Befehl auch bei Netzwerkdruckern

[Mikro]

HI,

da ich gebeten wurde, alle Fragen einzeln zu schreiben, bitte nicht wundern, wenn ich jetzt mehrere Threads öffne...

Also bei dem Problem geht es darum, dass ich einen Druckbefehl:

Delphi-Quellcode:

AssignPrn(Auswertung);
Rewrite(Auswertung);
Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
Writeln(Auswertung, Memo1.Lines[Line]);
CloseFile(Auswertung);

Dieser funktioniert allerdings nur auf meinem Laptop. Wenn ich es auf einem anderen Rechner versuche, klappt es nicht. Ich denke mal, weil es ein Netzwerkdrucker ist, ist ja sonst kein UNterschied, würde ich jetzt mal als Depp behaupten...

Kann mir da einer helfen?? Also der Drucker macht nichts und in den Aufträgen hat er einen Fehler...

[Muetze1]

Zitat von Mikro:

... und in den Aufträgen hat er einen Fehler...

Welchen? Was sagt die Statusseite zu dem Drucker? Klappt Notepad mit dem Drucker?

[Mikro]

In dem Fenster für die Druckaufträge steht nicht mal der Dateiname oder sonst was... Und rechts davon steht eben nur Fehler... Mehr kann ich eucht nicht sagen, darf NOtebook auch nicht an Drucker anschließen, wegen Firmennetz etc... (Sicherheit)

[Muetze1]

Zitat von Mikro:

In dem Fenster für die Druckaufträge steht nicht mal der Dateiname oder sonst was...

Ist bei deiner Art der Druckauftragsauslösung auch korrekt. Woher sollte er sich auch einen Dateinamen ausdenken, wenn du die Daten direkt schreibst.

Zitat von Mikro:

..., darf NOtebook auch nicht an Drucker anschließen, wegen Firmennetz etc... (Sicherheit)

Ich hatte Notepad geschrieben, nicht Notebook. Du sollst nichts umverkabeln.

Aber mal was grundlegendes: Warum überhaupt auf diese komplizierte Weise? Kompliziert im Sinne von den alten Dateiroutinen. Du hast doch mit der VCL OOP Mittel zur Hand bekommen, die du ja mit dem Printer-Objekt schon teilweise nutzt...

[DGL-luke]

Hat das Printer-Objekt denn noch die Line-Printer-Schnittstellen (also writeline und so)?

Ansonsten muss man sich halt mit Canvas.TextOut begnügen.

[Mikro]

schadet es, wenn ich gar keine Ahnung habe, wovon ihr redet?? Ich hab gestern Delphi installiert, hab keine Updates oder sonst was drauf, alles Standart... Kann mir das einer erklären??

[DGL-luke]

Hallo,

Delphi-Quellcode:

Printer.Canvas.Font := Memo1.Font; 
for Line := 0 to Memo1.Lines.Count - 1 do
  Printer.Canvas.TextOut(10, Round(Line * Printer.Font.Size * 1.25), Memo1.Lines[Line]);

ersetze deinen code einfach damit. für anspruchsvollere sachen die gdi-funktion DrawText auschecken

PS: Damit greifst du nicht mehr auf die alten Lineprinter-Schnittstellen zu und es sollte auch über Netzwerk funktionieren. Hoffe ich.

[Mikro]

hab mal grad deinen Code statt meinem eingefügt. DU hast in der letzte Zeile bei Printer.Font.Size das Canvas vergessen. Aber trotzdem funktioniert der Code nicht. Ich bkeomme die Fehlermeldung "Der Drucker ist nicht am Drucken"...

[DGL-luke]

Oh, Sorry:

Delphi-Quellcode:

Printer.BeginDoc;

Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
  Printer.Canvas.TextOut(10, Round(Line * Printer.Canvas.Font.Size * 1.25), Memo1.Lines[Line]);

Printer.EndDoc;