Private Sub PrintToPort(FName As String, Optional LPT As String = "LPT1")
    Open FName For Input As #1
    Open LPT For Output As #2
    
        StrToPrint = ""
    While Not EOF(1)
        Line Input #1, StrToPrint
'        StrToPrint = StrToPrint
        Print #2, StrToPrint

    Wend
    Close #2
    Close #1
End Sub