Re: Drucken


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

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...



Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]