Я создаю отчет в Access 2007 и могу сохранить его в формате PDF, но проблема в том, что вместо одного отчета в PDF я получил 206 отчетов в 1 PDF. Я использую VBA, чтобы программно сделать это
вот код, который я использую
Sub makeLetterPDF(Contract As String, LetterType, outTo As String)
Dim rs As New ADODB.Recordset
Dim strReportName As String
Dim strFileName As String
Dim Maxrow As Integer
Dim C As Integer
Dim fileno As Integer
SysCmd acSysCmdSetStatus, "Saving " & C & " of " & Maxrow
strReportName = LetterType
strFileName = LetterType & fileno & ".PDF"
fileno = fileno + 1
DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, _
outTo & "\" & strFileName, , , , acExportQualityPrint ``"
SysCmd acSysCmdSetStatus, " "
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim strRecordSource As String
strRecordSource = "Exec dbo.rsp_Letter_ServiceBooking '" & Contract & "'"
Me.RecordSource = strRecordSource
End Sub
В открытом отчете есть хранимая процедура, в которой есть данные, которые мне нужны для отчета, но как мне выполнить эту процедуру для создания отдельных отчетов при первом запуске makeLetterPDF