print file

[bplus]

Do you really need something so complicated?

no i guess not

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?

nothing

in my defense, i have a copy of the file in an array to process further and your code doesn't