Public Sub btn_drucken_Click()
 
 
 
    Dim I As Integer
    Dim header As String
    Dim Y As Integer
  With Printer
    .Font.Name = "Arial"
    .Font.Size = 12
    'Printer.Print Format(Now, dd.mmm, yyy)
    For I = 0 To List_result.ListCount - 1
      Printer.Print List_result.List(I)
    Next I
    ' Druckauftrag beenden
    .EndDoc
  End With