first couple of tries were solid blocks of black, so i modified your code to get desired results 65 66 lines per page
looks like it is fitting about 100+ chars across page and continues onto next line if it runs over, so lines wont fit page if lines continuously go beyond 100 chars.
look forward to fonts and color keywords
oh wait, i don't have ink i use B&W toner ;(
Code: (Select All)
PrintScreen = _NewImage(850, 1100, 32) 'to represent an 8.5" x 11" sheet of paper
Screen PrintScreen
Color &HFF000000, &HFFFFFFFF
File$ = _OpenFileDialog$("Choose file to Print", _CWD$, "*.*", "Any File")
If File$ <> "" Then
Open File$ For Binary As #1
Cls
Do
Line Input #1, temp$
Print temp$
pline = pline + 1
If pline > 65 Then 'we probably scrolled the page. Rip off this sheet of paper and start a new page!
_PrintImage PrintScreen
Cls
pline = 0
End If
Loop Until EOF(1)
_PrintImage PrintScreen
Close
End Iflooks like it is fitting about 100+ chars across page and continues onto next line if it runs over, so lines wont fit page if lines continuously go beyond 100 chars.
look forward to fonts and color keywords
oh wait, i don't have ink i use B&W toner ;(
b = b + ...