Sending raw text to a printer

[ganeshmoorthy]

basically to print from a file

FileNum = FreeFile
        Open myFileName For Input As #FileNum
        Do While Not EOF(FileNum)
            Line Input #FileNum, OneLine
            Printer.Print OneLine
        Loop
        Close (FileNum)