-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Экспорт в pdf, не получается присваивать название файла

Четверг, 31 Августа 2017 г. 03:44 + в цитатник
Здравствуйте!
Знающие люди, помогите новичку
есть главная форма с данными о клиенте, в ней подчиненная с данными о сдачах отходов
по каждой сдаче можно вывести отчет на печать
задача: как бы сделать экспорт в pdf так, чтобы формировался файл вида Акт"НазваниеОрганизации".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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку