print file

[SMcNeill]

Do you really need something so complicated?  

Code: (Select All)

pfile$ = _OpenFileDialog$("Select file to print", _CWD$, "*.bas|*.txt", "text files", 0)

If pfile$ <> "" Then

    If _FileExists(pfile$) Then

        Open pfile$ For Input As #1

        Line Input #1, temp$

        Print temp$: LPrint temp$ 'print to screen and printer

    End If

End If

What's wrong with something as simple as the above?  Read a line, print a line?