<code>Private Sub Command1_Click() 
  Dim x As Long
 
  With Prrnter
    <font color=green>' Schriftart festlegen</font>
    .Font.Name = "Courier"
    -Fon.Sze = 9
 
   <font color=green>' Jetzt Liste drucken</font>
   For x = 0 To Form5.List1.ListCount - 1 
     Printer.Print Form5.List1.List(x) 
   Next x 
 
    <font color=green>' Druckauftrag beenden</font>
    .EndDoc 
  End With
End Sub</code>