ник: xSonic
Вывести все отчеты в pdf файлы
Dim Load As Byte
With dbs.Containers("Reports")
For Load = 0 To .Documents.Count - 1
DoCmd.OutputTo acOutputReport, .Documents(Load).Name, acFormatPDF, .Documents(Load).Name & ".pdf", False, Empty, , acExportQualityPrint
DoEvents
Next
End With
Все спасибо на ЯД: 410011311843109