Printing a File...

[ande211]

Hi All,

How do you print a simple Text file through code?

[crptcblade]

Open "File.txt" For Input As #1
  strTemp = Input(LOF(1),1)
  Printer.Print strTemp
  Printer.EndDoc
Close #1

[HeSaidJoe]

Get up to get a tea and someone beats you to the punch!

'Read a complete file instead of line by line

Option Explicit

Private Sub Command1_Click()

    Dim sfile As String, intNum As Integer
    Dim sString As String
    
    intNum = FreeFile
    sfile = "C:\my Documents\myfile.txt"
    
    Open sfile For Input As intNum
    sString = StrConv(InputB(LOF(intNum), intNum), vbUnicode)
    Close intNum
    Printer.Print sString
    Printer.EndDoc
End Sub

[crptcblade]

[ande211]

Thanks to both of you.