レポート印刷時のエラー

質問

いつもお世話になっております。
下記のコードで、レポート印刷時にプリンタダイアログを表示させて、保存するファイル名を「仕分け作業登録リスト_AWB」にしたいと思いますが、下記のエラーがでてしまいます。
※AWBはR-Sorting NoteのAWBの値を持ってきたいです。

エラー内容
予期せぬエラーが発生しました。
エラーナンバー：3265
エラー内容：要求された名前、または序数に対応する項目がコレクションで見つかりません。

エラー3265についてネットで調べてみましたが、自分ではわからないので、
対処方法を教えていただければと思います。
※コードも独学なのできれいでなくてすみません。

Private Sub Cmd_Report_Click()

On Error GoTo Err_Cmd_Report_Click

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

'指定したレポートを印刷プレビューで開く
Dim strReportName1 As String

strReportName1 = "R_Sorting Note"
pdfName = "仕分け作業登録リスト_" & rs!AWB

DoCmd.OpenReport strReportName1, acViewPreview
DoCmd.OutputTo acOutputReport, strReportName1, acFromatPDF, pdfName, True
DoCmd.RunCommand acCmdPrint 'ダイアログの表示

'プレビューを閉じる
DoCmd.Close acReport, strReportName1

Exit_Cmd_Report_Click:
'プレビューを閉じる
DoCmd.Close acReport, strReportName1
Exit Sub

Err_Cmd_Report_Click:

If Err.Number = 2501 Then
'エラーを無視する
Resume Exit_Cmd_Report_Click

Else
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
"エラーナンバー：" & Err.Number & Chr(13) & _
"エラー内容：" & Err.Description, vbOKOnly
End If
Resume Exit_Cmd_Report_Click
End Sub

回答No.3

chayamati

スペルが違っています
✖ , acFromatPDF, pdfName, True
✖ , acFormatPDF, pdfName, True

回答No.2

chayamati

＞Dim rs As ADODB.Recordset
　Set rs = New ADODB.Recordset
を
Dim rs As Report
に置換え
Err_Cmd_Report_Click:
以下の数行を修正しました。
--------------------------------------------------------------
Private Sub Cmd_Report_Click()
On Error GoTo err_Cmd_Report_Click
Dim rs As Report
'指定したレポートを印刷プレビューで開く
Dim strReportName1 As String
strReportName1 = "R_Sorting Note"
pdfName = "仕分け作業登録リスト_" & rs!AWB
DoCmd.OpenReport strReportName1, acViewPreview
DoCmd.OutputTo acOutputReport, strReportName1, acFromatPDF, pdfName, True
DoCmd.RunCommand acCmdPrint 'ダイアログの表示
'プレビューを閉じる
DoCmd.Close acReport, strReportNaReport_Click:
'プレビューを閉じる
DoCmd.Close acReport, strReportName1
Exit Sub
err_Cmd_Report_Click:
If Err.Number = 2501 Then
'エラーを無視する
Resume
Exit Sub
Else
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
"エラーナンバー" & Err.Number & Chr(13) & _
"エラー内容" & Err.Description, vbOKOnly
End If
End Sub

回答No.1

oboroxx

エラー番号で検索してみたところ、どうもデータが無いからのようです。
rsとかレコードがあるかどうか確認してみてください。
もしくは、"R_Sorting Note"の中のスペースがダメとかもあるのかな？スペースを＿に変えてみてはどうでしょうか。

頑張ってください。