Microsoft Access 掲示板

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が出ます。このサイトと同じ状況です。