Selecting Record for Re****t Macro

I have a command button that is programmed to run re****ts when clicked. 
How 
can I change the code below to select only the current record for
printing?

Private Sub Print_Re****ts_Click()
On Error GoTo Err_Print_Re****ts_Click

    Dim stDocName1 As String
    Dim stDocName2 As String
    Dim stDocName3 As String
    Dim stDocName4 As String
    Dim stDocName5 As String

    stDocName1 = "BackgroundInvestigationRequest"
    stDocName2 = "Business Rules Pg 3"
    stDocName3 = "InprocChecklist"
    stDocName4 = "ISO Certification"
    stDocName5 = "VA Form 2280a"
    
    DoCmd.OpenRe****t stDocName1, acNormal
    DoCmd.OpenRe****t stDocName2, acNormal
    DoCmd.OpenRe****t stDocName3, acNormal
    DoCmd.OpenRe****t stDocName4, acNormal
    DoCmd.OpenRe****t stDocName5, acNormal

Exit_Print_Re****ts_Click:
    Exit Sub

Err_Print_Re****ts_Click:
    MsgBox Err.Description
    Resume Exit_Print_Re****ts_Click
    
End Sub