Von Oliver Hahn am 19 März, 1998 um 11:47:45:
Antwort auf: Drucken von HyperLone am 19 März, 1998 um 09:09:53:
: Kann mir jemand eine Prozedur schreiben,
: die den Inhalt der einer Textdatei druckt
: (schriftart egal)
Hier ist ein kleines Skript, das eine Textdatei
auf dem Windows Standard-Drucker ausgibt.
Ist ganz primitiv, da muß natürlich noch gefeilt
werden... ;-)
Declare Zeile$ 'String: Zeileninhalt
declare zz% 'Zeilennummer auf dem Blatt
declare yPos% 'vertikale Position auf dem Blatt
declare xpos% 'horizontale Positions auf dem Blatt
Assign #1,"C:\TEST.TXT" 'Zuweisung Dateikennzeichen
Reset #1 'Datei zum Lesen öffnen
let zz%=0
let xpos%=20 'Festlegen vert. Pos. auf dem Papier
let ypos%=20 'Festlegen horiz. Pos. auf Papier
Startprint 'Druckausgabe starten
WhileNot @Eof(#1)
Input #1,Zeile$ 'Zeile einlesen
drawtext xpos%,ypos%,Zeile$ 'Text ausgeben
add zz%,1 'Zeilen-Zähler erhöhen (für Seitenende)
add ypos%,15 'vert. Pos. erhöhen
if @equ(zz%,40) 'Seitenende abfangen (hier bei 40 Zeilen)
let zz%=0
let ypos%=20
NEXTPAGE
endif
EndWhile
Endprint
Close #1
end
...Have Fun...