The better way of doing this would be to create a sub where you pass the variables to it.

[VBA]
Sub outputreport(sReport As String, sPath As String)
On Error GoTo errhandler
retry:
DoCmd.OutputTo acOutputReport, sReport, acFormatRTF, sPath, False

Exit Sub
errhandler:
If Err.Number = 2501 Then
Resume Next 'Or possibly exit sub depending on what you want to do
ElseIf Err.Number = 3146 Then
GoTo retry
Else: MsgBox Err.Number & " - " & Err.Description
End If
End Sub
Sub callreport()
Call outputreport("'report1", "C:\'report1.rtf")
Call outputreport("'report2", "C:\'report2.rtf")
'repeat above as necessary with appropriate variables
End Sub
[/VBA]