久々にAccessを

何から何まで忘れてますね！

レポートを1ページずつ（１レコードずつ）pdfにするよ！

2007から、標準機能でpdfに出来るのステキ。

Private Const DB_STOR_LIST As String = "StoreList"

Private Const REPORT_NAME  As String = "StoreReport"

Private Const SAVE_TO As String = "C:\home\pdf\"
Sub PDFExport()

    

    Dim fname As String

    Dim rs As ADODB.Recordset

    

    Set rs = New ADODB.Recordset

    rs.Open DB_STOR_LIST, CurrentProject.Connection, adOpenStatic, adLockReadOnly

    

    Do While Not rs.EOF

        fname = SAVE_TO & rs.Fields("StoreCode") & "-" & rs.Fields("StoreName") & ".pdf"

        

        DoCmd.OpenReport REPORT_NAME, acViewPreview, , "ID=" & rs.Fields("ID")

        DoCmd.OutputTo acOutputReport, REPORT_NAME, acFormatPDF, fname

        DoCmd.Close

        rs.MoveNext

    Loop

    

End Sub