Я пытаюсь сгенерировать pdf-файл, основанный на содержимом формы доступа или отчета (либо мне это подходит, но я понимаю, что это следует делать с помощью отчета).
Я могу сгенерировать / заполнить саму форму и сам отчет, но когда я создаю pdf с этим кодом, поля в pdf остаются пустыми.Все элементы управления есть, как в моей форме, но поля, в которых должны быть данные, не копируются.
Это работает как есть для меня и создает PDF-файл, который выглядит так же, как мой отчет, за исключением того, что данные из отчета не переносятся в сохраненный PDF-файл
Private Sub pdfBtn_Click()
Dim fileName As String, fldrPath As String, filePath As String
Dim answer As Integer
fileName = "File_Test1" 'filename for PDF file*
fldrPath = "C:\Users\myname\Desktop" 'folder path where pdf file will be saved *
filePath = fldrPath & "\" & fileName & ".pdf"
'check if file already exists
If FileExist(filePath) Then
answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
"Would you like to replace existing file?", buttons:=vbYesNo, Title:="Existing PDF File")
If answer = vbNo Then Exit Sub
End If
On Error GoTo invalidFolderPath
DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, filePath
MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
Exit Sub
invalidFolderPath:
MsgBox prompt:="Error: Invalid folder path. Please update code.", buttons:=vbCritical
End Sub
Function FileExist(FileFullPath As String) As Boolean
Dim value As Boolean
value = False
If Dir(FileFullPath) <> "" Then
value = True
End If
FileExist = value
End Function
I 'Я потратил несколько часов на поиски, поэтому я бы расстроился, если это что-то слишком простое и доступное.Но кто-нибудь может указать мне правильное направление с этим?