<code>Dim I As Integer
 
With Printer
  <font color=green>' Maßeinheit mm</font>
  .ScaleMode = 6
 
  For I = 0 To List1.ListCount - 1
    Printer.Print List1.List(I);
    .CurrentX = 100  ' <font color=green>' zweite Spalte bei 10cm</font>
    Printer.Print List2.List(I)
  Next I
End With</code>