Помощь В Решении Задачки

Тема в разделе "Pascal and Delphi", создана пользователем archibald, 26 окт 2013.

  1. archibald

    archibald New Member

    Регистрация:
    26 окт 2013
    Сообщения:
    1
    Симпатии:
    0
    Господа! Практическая Задачка для Новичка! Access 10

    ИМЕЕТСЯ: нажатие кнопки на открытие текущего отчета базы данных

    Private Sub Кнопка178_Click()
    Dim stDocName As String
    On Error GoTo Err_

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    stCriteria = "IDSale=" & Forms!Selling!IDsale
    DoCmd.OpenReport "ОТЧЕТ", acViewPreview, , stCriteria

    Exit_:
    Exit Sub

    Err_:
    MsgBox Err.Description
    Resume Exit_
    End Sub

    НАДО: не открывать отчет, а сразу перевести в формат ПДФ, а затем сохранить в указанную папку.
    Путь к папке: Рабочий стол (или любое другое место), Папка «ИМЯ ПАПКИ», в неё вложенная папка «IDsale»
    Что-то вроде этого:

    Private Sub ExportReportToPDF(AFileName As String)
    'Сохранение отчета в файл
    DoCmd.OutputTo acOutputReport, "ОТЧЕТ", acFormatPDF, AFileName, False
    End Sub

    Имя сохраняемого PDF отчета должно быть AFileName = «ОТЧЕТ» + «IDsale»
    Буду премного благодарен :)
     
Загрузка...

Поделиться этой страницей