Dim F As Integer
Dim sFile As String
Dim sInhalt As String
 
sFile = "DeineDatei.txt"
 
F = FreeFile
Open sFile For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
Printer.Print sInhalt
Printer.EndDoc