<code>  <font color=#000099>Dim</font> lWidth <font color=#000099>As</font> _
  <font color=#000099>Single</font>
  <font color=#000099>Dim</font> iCol <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> i <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=#000099>Const</font> lMargin = 15    <font color=green>' 15 
  ' mm</font>
 
  <font color=#000099>With</font> Printer
    <font color=green>' auf mm stellen</font>
    .ScaleMode = 6
 
    <font color=green>' max. Breite pro Spalte ermitteln</font>
    lWidth = Int((210 - (lMargin * 2)) / 3)
 
    iCol = 0
    <font color=#000099>For</font> i = 0 <font color=#000099>To</font> _
      List1.ListCount - 1
      <font color=green>' aktuelle Spalte</font>
      iCol = iCol + 1
      .CurrentX = lMargin + (iCol - 1) * lWidth
      Printer.FontName = List1.List(i)
      Printer.<font color=#000099>Print</font> List1.List(i);
 
      <font color=#000099>If</font> iCol = 3 <font color=#000099>Then</font>
        <font color=green>' Zeilenumbruch</font>
        iCol = 0
        Printer.<font color=#000099>Print</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
    <font color=#000099>Next</font> i
 
    <font color=green>' Papier auswerfen</font>
    Printer.EndDoc
  <font color=#000099>End</font> <font color=#000099>With</font></code>