Help to get rid of report name in print VBA

[templeowls]

Sorry for the confusing title. I've got a button on a report for the user to press and it prints out the report. See below:

Private Sub btnPrintReport_Click()On Error GoTo btnPrintReport_Click_Err


    DoCmd.OpenReport "rptComplaintNumber", acViewNormal, "", acNormal


btnPrintReport_Click_Exit:
    Exit Sub


btnPrintReport_Click_Err:
    MsgBox Error$
    Resume btnPrintReport_Click_Exit


End Sub

Is it possible to not have to cite the actual report name in the code? But rather have it refer to the currently open report maybe?

I ask so that if I or others reuse this code for a different report, they don't need to remember to go into the VBA and change the report name.

Thanks!

[June7]

Button on report only works in ReportView, not PrintPreview.

But yes, can get report name, try: Me.Name

[Micron]

This is re-inventing the wheel. Open in print preview and use the ribbon? I dunno, but reports seldom need or should have command buttons on them IMO.

[moke123]

I often have a print button on certain reports and prefer to use the print dialog.
Set the "Display When" property of the button to screen only.

Private Sub btoPrint_Click()


    On Error GoTo btoPrint_Click_Error
    
DoCmd.RunCommand acCmdPrint
    
    On Error GoTo 0
    Exit Sub


btoPrint_Click_Error:


If Err.Number = 2501 Then
Exit Sub
End If


    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure btoPrint_Click, line " & Erl & "."


End Sub

[templeowls]

I often have a print button on certain reports and prefer to use the print dialog.
Set the "Display When" property of the button to screen only.

Private Sub btoPrint_Click()


    On Error GoTo btoPrint_Click_Error
    
DoCmd.RunCommand acCmdPrint
    
    On Error GoTo 0
    Exit Sub


btoPrint_Click_Error:


If Err.Number = 2501 Then
Exit Sub
End If


    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure btoPrint_Click, line " & Erl & "."


End Sub

That worked! Thanks so much!