Public Sub datagrid_drucken()
  Dim fmt As String
  Dim sRow As String
  Dim xPos As Long
  Dim I As Long
  Dim intProz As Integer
  Dim GridWidth As Long
  Dim ColWidth As Long
  Dim PageWidth As Long
  Dim sHeader As String
  
  Screen.MousePointer = 11
  With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    xPos = 10         ' 10mm Rand links
    
    .Font.Name = "Arial"
    .Font.Size = 12
 
    ' Listenbezeichnung
    .CurrentY = 10
    .CurrentX = xPos
    .Font.Bold = True
On Error Resume Next
frminfo.CommonDialog1.CancelError = True
frminfo.CommonDialog1.ShowPrinter
    
If Err = 0 Then
'MsgBox frmMain.DataGrid1.Caption
      Printer.Print "Ausdruck" + vbCrLf
Else
   Screen.MousePointer = vbNormal
Exit Sub
End If
 
 
    .Font.Bold = False
 
    ' Format (Spaltenbreiten) + Tabellenkopf
    ' anhand Bildschirm-Spaltenbreite ermitteln
    PageWidth = .ScaleWidth - (xPos * 2)
    With frmMain.DataGrid1
      ' Gesamtbreite
      For I = 0 To .Columns.Count - 1
        If .Columns(I).Visible Then
          GridWidth = GridWidth + .Columns(I).Width
        End If
      Next I
      
      ' Prozentuale Verteilung auf die Spalten
      ' plus Tabellenkopf
      For I = 0 To .Columns.Count - 1
        With .Columns(I)
          ' zunächst Spaltenausrichtung berücksichtigen
          Select Case .Alignment
            Case dbgCenter
              ' zentriert
              fmt = fmt + "^"
            Case dbgRight
              ' rechtsbündig
              fmt = fmt + ">"
          End Select
        
          ' jetzt Spaltenbreite berechnen
          intProz = (.Width / GridWidth * 100 + 0.5)
          ColWidth = (PageWidth / 100 * intProz + 0.5)
          fmt = fmt + Format$(ColWidth, "0")
        
          ' Tabellenkopf
          sHeader = sHeader + .Caption
        End With
        
        fmt = fmt + "|"
        sHeader = sHeader + "|"
      Next I
      
      ' abschliessendes "|" entfernen
      fmt = Left$(fmt, Len(fmt) - 1)
      sHeader = Left$(sHeader, Len(sHeader) - 1)
    End With
 
    ' Tabellenkopf drucken
    .Font.Bold = True
    .Font.Size = 9
    PrintRow xPos, fmt, sHeader
    .Font.Bold = False
 
    ' Jetzt Recordset "satzweise" ausdrucken
    .Font.Size = 8
    .CurrentY = .CurrentY + 5
    frmMain.dataProjekte.Recordset.MoveFirst
    Do While Not frmMain.dataProjekte.Recordset.EOF
      sRow = ""
      With frmMain.DataGrid1
        For I = 0 To .Columns.Count - 1
          If .Columns(I).Visible Then
          
              ' normaler Text / sonstige Datentypen
             sRow = sRow + CStr(FeldInhalt(frmMain.dataProjekte.Recordset.Fields(I))) + "|"
            End If
       
        Next I
        PrintRow xPos, fmt, sRow
      End With
      
      ' nächster Datensatz
      frmMain.dataProjekte.Recordset.MoveNext
    'Wend
    Loop
    ' Druckauftrag beenden
    .EndDoc
  End With
  Screen.MousePointer = 0
 
  
  
errdru2:
Exit Sub
 
End Sub
 
Public Function FeldInhalt(Feld As Field) As Variant
  If IsNull(Feld.Value) Then
    Select Case Feld.Type
      Case adInteger, adSmallInt
        FeldInhalt = 0
      Case adBoolean
        FeldInhalt = False
      Case Else
        FeldInhalt = ""
    End Select
  Else
    FeldInhalt = Feld.Value
  End If
End Function