Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Анатолий (Киев) Ну почему же вручную...
Private Sub TestPrintLastPage() Dim i& Const ReportName = "Отчет" DoCmd.OpenReport ReportName, acViewPreview i = Reports(ReportName).Pages DoCmd.PrintOut , i, i DoCmd.Close acReport, ReportName End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.