A little routine I wrote which should print out a file to the printer:
Problem is, when I went to test it, my printer is all out of ink and such.
Anyone want to give this a test run for us? Uses _PrintImage, so is a Windows-Only program, so Linux and Mac folks can't make yse of this until we expand the functionality to include them.
If you can, try this with a short, 1-page program (Hello World would work fine.) Then try it with something that might take a couple of pages to print out. It *should* sort things out and print across multiple pages without issue.
I hope, anyway.
Note: IF this prints out 1000 pages and doesn't stop.... I apologize in advance!
Code: (Select All)
$COLOR:32
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
CLS , White, PrintScreen
COLOR Black, 0
DO
LINE INPUT #1, temp$
PCOPY 0, 1
PRINT temp$
IF CSRLIN >= _HEIGHT - 3 THEN 'we probably scrolled the page. Rip off this sheet of paper and start a new page!
PCOPY 1, 0
_PRINTIMAGE PrintScreen
CLS , White, PrintScreen
PRINT temp$
END IF
LOOP UNTIL EOF(1)
CLOSE
Problem is, when I went to test it, my printer is all out of ink and such.
Anyone want to give this a test run for us? Uses _PrintImage, so is a Windows-Only program, so Linux and Mac folks can't make yse of this until we expand the functionality to include them.
If you can, try this with a short, 1-page program (Hello World would work fine.) Then try it with something that might take a couple of pages to print out. It *should* sort things out and print across multiple pages without issue.
I hope, anyway.
Note: IF this prints out 1000 pages and doesn't stop.... I apologize in advance!