Udskriv post i rapport

Jeg skal bruge en kommandoknap der kan udskrive 1 enkelt formular i rapport (aktuelle). jeg har arbejdet med følgende kode, men den skriver alle poster ud.
Min formular kalder jeg FVC2 og min rapport FVC2.

Private Sub Udskriv_rapport_Click()
On Error GoTo Err_Udskriv_rapport_Click

    Dim stDocName As String

    stDocName = "FVC2"
    DoCmd.OpenReport stDocName, acNormal

Exit_Udskriv_rapport_Click:
    Exit Sub

Err_Udskriv_rapport_Click:
    MsgBox Err.Description
    Resume Exit_Udskriv_rapport_Click
   
End Sub

har prøvet at bruge nogle af de besvarede spg. men uden held!