sub Formulardruck()
with printer
.Orientation = cdlPortrait
.ScaleLeft = -1440 '---Rand Links
.ScaleTop = -1140 '---Rand Oben
.FontName = "Arial"
.FontSize = 10
.Print ""
.CurrentX=0: .CurrentY=0'---XY koordinaten Feld1
.print "Hersteller" ' hier jeweils dein Datenfeld übergeben
.CurrentX=0: .CurrentY=.CurrentY+150'---XY koordinaten Feld2 ' ---Y inkremental _
  verschoben
.print "Modell"
.CurrentX=2000: .CurrentY=3000'---XY koordinaten Feld3 absolut verschoben
.print "Schlüsselnr"
.end Doc
end with
end sub