"I been trying to dump an ASCII file to the printer connected to LPT1. I don't want to use an MS-DOS instance using the Shell() function."

Function PrintThis(filename)
    Dim s As String
    Open filename For Input As #1
    Open "LPT1:" For Output As #2
    Do While Not EOF(1)
        Line Input #1, s
        Print #2, s
    Loop
    Print #2, Chr(12)
    Close #1, #2
End Function