@bplus give this a shot:
I'm thinking the only real change you needed to make was to fix the _HEIGHT issue. I'd failed to / _FontHeight, which means the page scrolled itself to death before printing and going to the next page.
-- EDIT: To make certain the last page prints for us.
Code: (Select All)
$COLOR:32
$RESIZE:SMOOTH
'Resize is so we can drag/resize the screen so it fits on a monitor
PrintScreen = _NEWIMAGE(850, 1100, 32) 'to represent an 8.5" x 11" sheet of paper
SCREEN PrintScreen
File$ = _OPENFILEDIALOG$("Choose file to Print", _CWD$, "*.*", "Any File")
OPEN File$ FOR BINARY AS #1
IF _FILEEXISTS(File$) = 0 THEN SYSTEM
CLS , White, PrintScreen
COLOR Black, 0
height = INT(_HEIGHT / _FONTHEIGHT - 3)
DO
LINE INPUT #1, temp$
PCOPY 0, 1
PRINT temp$
IF CSRLIN >= height THEN 'we probably scrolled the page. Rip off this sheet of paper and start a new page!
PCOPY 1, 0
_PRINTIMAGE PrintScreen
SLEEP 'A break so we can see which page we just printed
CLS , White, PrintScreen
PRINT temp$
END IF
LOOP UNTIL EOF(1)
CLOSE
_PRINTIMAGE PrintScreen
I'm thinking the only real change you needed to make was to fix the _HEIGHT issue. I'd failed to / _FontHeight, which means the page scrolled itself to death before printing and going to the next page.
-- EDIT: To make certain the last page prints for us.