Udskrivning af en record valgt i en formular

I en formular skal jeg gerne gave udskrevet den aktuelle record i en rapport, når jeg anvender nedenstående får jeg udskrevet alle records, hvad er det lige jeg skal skrive?

Private Sub Kommandoknap36_Click()
On Error GoTo Err_Kommandoknap36_Click

    Dim stDocName As String

    stDocName = \"Gruppe\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Kommandoknap36_Click:
    Exit Sub

Err_Kommandoknap36_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap36_Click
   
End Sub