Microsoft Access 掲示板

レポートを開く時に追加の抽出条件を加えればいいですよ

DoCmd.OpenReport メソッド (Access)

expression.OpenReport (ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)

DoCmd.OpenReport Aレポート, , , (B用の追加の抽出条件)

※「同時に複数のレポートを画面に表示したい」となるとこれだけではうまくいかないですが

Application.CurrentDb.QueryDefs("クエリ名").SQL = "SELECT FROM ***"
クエリの中身書き換えるとか

Private Sub btn_担当者別プレビュー表示_Click()

    If Trim(Nz(cmb_担当者名, "")) = "" Then '担当者を選択していない場合
    
        Exit Sub
        
    End If
    
    DoCmd.Close acReport, "R_出力用レポート" '連続してプレビュー表示を押した時用
    DoCmd.OpenReport "R_出力用レポート", acViewPreview,,担当者=[Forms]![F_担当者別出力]![cmb_担当者名]
    DoCmd.RunCommand acCmdPreviewOnePage

End Sub

これで試してみましたが、フォームのコンボボックスから担当者を１人選ぶとその担当者以外のレポートも入ってしまっています。

また、標準モジュールにAutoFontSize関数を記述しているのですが、他の担当者を選択してプレビューを表示しようとすると、実行時エラー2185が出ます。このサイトと同じ状況です。

コピペされてないようなので何とも言えないですが

    '//検証用コード
    Dim strWhereCondition As String
    strWhereCondition = 担当者=[Forms]![F_担当者別出力]![cmb_担当者名]
    Debug.Print strWhereCondition
    '//検証用ここまで

    DoCmd.OpenReport "R_出力用レポート", acViewPreview,,strWhereCondition

として、コードを試してください
strWhereConditionはTrueとなって、つまり全レコードを対象にするフィルタ（無意味）をかけてるんじゃないですかね

有効な SQL WHERE 句を文字列式で指定します。ただし、WHERE という語を指定する必要はありません。

なので、きちんとWHERE句の文字列になるように渡しましょう
あと、自身のフォームのコントロール（コンボボックス）を指定するときはMeキーワードを使用するといろいろと捗ります
ついでに、「担当者名」って文字列ですよね？

Private Sub btn_担当者別プレビュー表示_Click()

    If Trim(Nz(Me!cmb_担当者名, "")) = "" Then '担当者を選択していない場合

        Exit Sub

    End If

    DoCmd.Close acReport, "R_出力用レポート" '連続してプレビュー表示を押した時用
    DoCmd.OpenReport "R_出力用レポート", acViewPreview,,"担当者='" & Me!cmb_担当者名 & "'"
    DoCmd.RunCommand acCmdPreviewOnePage

End Sub

Private Sub btn_担当者別プレビュー表示_Click()

    If Trim(Nz(Me!cmb_担当者名, "")) = "" Then '担当者を選択していない場合
    
        Exit Sub
        
    End If
    
    DoCmd.Close acReport, "R_出力用レポート" '連続してプレビュー表示を押した時用
    DoCmd.OpenReport "R_出力用レポート", acViewPreview,,"担当者='" & Me!cmb_担当者名 & "'"
    DoCmd.RunCommand acCmdPreviewOnePage
End Sub

また、標準モジュールにAutoFontSize関数を記述しているのですが、

こっちはだいぶ問題が異なりそうなのでひとまず無回答で