Экспорт в pdf, не получается присваивать название файла |
Function ЭкспортPDF() On Error GoTo ЭкспортPDF_Err Dim organ As String organ = Forms("ф_Клиент").КраткоеНаименование With CodeContextObject If (Not IsNull(.КодСдачаГЛ)) Then DoCmd.OpenReport "о_СоставСдачи", acViewPreview, "", "КодСдача=" & .КодСдачаГЛ, acNormal Else DoCmd.OpenReport "о_СоставСдачи", acViewPreview, "", "", acNormal End If DoCmd.OutputTo acOutputReport, "о_СоставСдачи", "PDFFormat(*.pdf)", _ "C:\Users\Константин\Downloads\Акт " & organ & ".pdf", False, "", , acExportQualityPrint DoCmd.Close acReport, "о_СоставСдачи" End With ЭкспортPDF_Exit: Exit Function ЭкспортPDF_Err: MsgBox Error$ Resume ЭкспортPDF_Exit End Function
http://www.sql.ru/forum/1270242/eksport-v-pdf-ne-poluchaetsya-prisvaivat-nazvanie-fayla
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |