Dim F As Integer
DIm sLine As String
 
F = FreeFile
Open "Textdatei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  Printer.Print sLine
Wend
Close #F
 
Printer.EndDoc

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de