With Printer
  .ScaleMode = 6
 
  .CurrentX = 20: Printer.Print "14.10.05";
  .CurrentX = 45: Printer.Print "Hannover Flughafen - Hildesheim";
  .CurrentX = 145: Printer.Print "35 km";
  .CurrentX = 175: Printer.Print "50,00 EUR"
 
  .CurrentX = 20: Printer.Print "16.10.05";
  .CurrentX = 45: Printer.Print "Bettmar - Wätzum";
  .CurrentX = 145: Printer.Print "10 km";
  .CurrentX = 175: Printer.Print "16,00 EUR"
 
  .CurrentX = 20: Printer.Print "20.10.05";
  .CurrentX = 45: Printer.Print "Hafenstr. - Mittelfeld";
  .CurrentX = 145: Printer.Print "7,5  km";
  .CurrentX = 175: Printer.Print "13,50 EUR"
 
  .EndDoc
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de