Nur Zeilenumbruch an Drucker senden

[Martoeng]

Hi Delphianer...

Ich habe ein Programm, das soweit auch wunderbar funktioniert und mir letzendlich eine Rechnung aus dem Drucker spuckt... ;-)

Dieser Drucker ist ein Nadeldrucker der mit Endlospapier gefüttert wird.

Jetzt mein Problem:

Jetzt möchte ich, dass das Programm nach fertigem Druck (mittels QuickReport) einfach noch eine Freizeile hinterherschreibt.


Ich bin schon den ganzen Tag auf der Suche nach Antworten im Netz.

Das einzige brauchbare, was ich gefunden habe:

Delphi-Quellcode:

var fileit : textfile;
begin
  assignprn(fileit);
  rewrite(fileit);
    writeln(fileit, '#13#10');
  closefile(fileit);

Diese Version funktioniert auch nicht, da der Drucker auch hier den Seitenumbruch erzwingt. :-(


Gibt es vielleicht die Möglichkeit, automatische Seitenumbrüche in den Treibern und/oder Delphi auszuschalten? (<--optimistische Variante)
Oder kennt jemand ein paar Zeilen, die mir wirklich nur einen einzigen Zeilenumbruch machen? (auch gut ;-) )


Bin euch für jede hilfe dankbar...


MfG

Martoeng

[ibp]

versuchs mal nur mit

Delphi-Quellcode:

 writeln(fileit, '');

da writeln ja selber einen zeilenumbruch sendet!

[shmia]

Schau mal in die Code-Library: Daten über den Spooler an Drucker senden
Dies scheint mir doch sauberer als mit AssignPrn zu arbeiten.
Zumal bei AssignPrn automatisch ein Seitenvorschub erzeugt wird.
Zitat aus Sourcecode zu Printer.pas:
Closing the text file will imply a call to the Printer.EndDoc method.

[Martoeng]

Hi,

wunderbare Unit, die du da gelinkt hast....

Ich hab sie mir mal schnell heruntergeladen und probiers jetzt aus. Leider liess sich der Drucker bei einem ersten Schnelltest mit '#13#10' nur eine Hin- und Her-Bewegung entlocken ;)

Also die falsche Escape-Sequenz ??!??


Na ich werd mich mal schlau machen.


Danke für diesen Tipp,

MfG

Martoeng