Dim sLine As String
Dim F As Integer
Dim sFile As String
 
sFile = Text1.Text & ".txt" 
 
F = FreeFile
Open sFile For Input As #aF
While Not EOF(F) 
  Line Input #F, sLine
  Printer.Print Replace(sLine, "|", vbTab)
Wend
Close #F
 
Printer.EndDoc

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de