Access2013でレポートを名前を付けて一括PDF化する方法

請求書の管理をAccess2013でしようとしています。請求書をレポートで作成するところまでは出来たのですが、およそ100件の得意先に請求書をPDFで送付しなくてはなりません。
これを自動化したいと思い、様々なサイトを見たのですが、当方はずかしながらVBA知識がなく、自分のデータ用にコードを書き換えることができません。

今編集しようとしているコードは下記のとおりです。
Private Sub コマンド24_Click()
Dim strReportName As String
Dim strPath As String
Dim strFileName As String

'対象のレポート名
strReportName = "excelインポート"
'出力先のフォルダ名
strPath = "D:\Users\08161\Desktop\請求書作成\PDF"
'出力するPDFのファイル名
strFileName = strPath & "\" & Format(Date, "yyyy" & "mm" & "dd")


DoCmd.OpenReport strReportName, acViewPreview
If MsgBox("レポートをPDF化しますか？", vbYesNo) = vbYes Then
If Dir(strFileName & ".pdf") = "" Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
DoCmd.SetWarnings True
Else
If MsgBox("同じ名前のファイルがあります。上書きしますか", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
DoCmd.SetWarnings True
Else
DoCmd.Close acReport, strReportName
Exit Sub
End If
End If
End If
DoCmd.Close acReport, strReportName
End Sub

上記のコードだと、ファイル名が日付になってしまうのを、「excelインポート」という名前のテーブルにある「お名前」+"様_"と「特集」というフィールドの名前をつなげたファイル名にしたいです。
Ex)山田花子様_花特集

また、上記のままのコードを実行すると、確かにPDFファイルは任意の場所にできるのですが、
開こうとすると「サポートしてないか壊れているかデコードできてない」というエラーが表示されて開くことができません。
そしてPDFは1つしかできません。単票形式で100Pあるレポートを100個のPDFにしたいです。

どうか、どうか御教授お願いいたします…。

No.1 回答者： bonaron 回答日時： 2016/02/24 03:15

> 「サポートしてないか壊れているかデコードできてない」というエラーが表示されて開くことができません。

確かに、拡張子が PDF のファイルはできるでしょうが、
> DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFileName & ".pdf", True
出力ファイルの形式に エクセル（acFormatXLS）を指定していますから
中身は Excel のブックです。

とりあえず acFormatPDF を指定して動作確認してください。


「excelインポート」という名前のテーブルのレコード数分、PDF を作成、
ということでよろしいでしょうか？

同じ「お名前」「特集」の レコードは存在しない？