TC> TM-> Try this (not tested)
TC> TM-> OPEN "filename" FOR BINARY AS #1 BUFFER$ = SPACE$(LOF(1)) GET
#1, ,
TC> TM-> BUFFER$ LPRINT BUFFER$;
TC> This works too - has been tested:
TC> START:
TC> INPUT "Name of file you wish to print: "; NA$
TC> INPUT "Number of copies "; NUMOFCOPIES
TC> FOR I = 1 TO NUMOFCOPIES
TC> OPEN NA$ FOR INPUT AS #1
TC> DO
TC> LINE INPUT #1, LINEOFTEXT$
TC> LPRINT LINEOFTEXT$
TC> LOOP UNTIL EOF(1)
This does not work for me. Remember, I said the
file was a binary file, not a text file. It was
created by telling WordPerfect to print to disk instead
of paper and the file will print properly in DOS using:
PRINT filename
It will also print properly from QB if I SHELL to
the above command, but will not do so until I either
stay in SHELL or exit the program - and whatever I do I
can't seem to be able to print other stuff on the same
page.
FIDO: Bill White @ 1:135/110 (Miami)
InterNet: bill.white@110.sunshine.com
* SLMR 2.1a * BIG BANG: First there was nothing... Then it exploded!
--- Maximus 2.01wb
---------------
* Origin: Miami Amateur Computer Club BBS/USR Courier V.E (1:135/110)
|