Private Sub CmdDruck_Click()
On Error GoTo Err_CmdDruck_Click
 
    Dim stDocName As String
      Dim stLinkCriteria As String
    stDocName = "RepInventarAusgabe"
 
    stLinkCriteria = "Fzg_Inventar_ID =" & Me.Grid1.Text(nRow, 1)
    DoCmd.OpenReport stDocName, , , stLinkCriteria
 
Exit_CmdDruck_Click:
    Exit Sub
 
Err_CmdDruck_Click:
    MsgBox Err.Description
    Resume Exit_CmdDruck_Click
 
End Sub