Sending text file to printer in vb

[richaa]

Can you send an entire text file to the printer, or do you have to read the file and send it line by line?

Thanks,
Abby

[Joacim Andersson]

You can send the entire file to the printer.

Dim iFile%, sText$
iFile = FreeFile
Open "c:\MyFile.txt" For Input As #iFile
sText = Input(LOF(iFile), iFile)
Close #iFile
Printer.Print sText
Printer.EndDoc

An other way is to shell Notepad to do the job for you:

Call Shell("Notepad.exe /p c:\MyFile.txt", vbHide)

Good luck!