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

archibald

New member
26.10.2013
1
0
#1
Господа! Практическая Задачка для Новичка! 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»
Буду премного благодарен :)