With Printer
  .Font.Size = 16 
  Printer.Print "test" 
 
  .Font.Size = 8 
  Open "C:A0570
ezeptealarmet1.txt" For Input As #1 
  Do While EOF(1) = False 
    Input #1, zeile 
    Printer.Print zeile 
  Loop 
  Close #1
 
  .EndDoc
End With