| |
|
|
| | Есть список договоров
Меняется только последняя страница
Как распечатать автоматически последнюю страницу | |
| |
| |
| |
|
|
| | IMHO, проще сделать отчет содержащий только последнюю страницу и его печатать | |
| |
| |
|
|
| |
|
|
| | в чем? Создайте отдельный отчет в котором будет только одна страница (последняя) и его печатайте | |
| |
| |
| |
|
|
| | Вот я и спрашиваю как сделать отдельный отчет в котором только одна страница последняя пусть даже нумерация страниц не сохранится...
Количество записей на странице не известно. | |
| |
| |
| |
|
|
| | или сделать последнюю страницу первой (типа Cover Sheet или Project Scope) | |
| |
| |
| |
|
|
| | Например...
У отчета в заголовке должно быть вычисляемое поле с выражением =[Pages] или любым выражением, вулючающим [Pages]ю
Открываете отчет на экране, узнаете количество страниц (Me.Pages) и выполняете DoCmd.PrintOut с указанием номера страницы. | |
| |
| |
| |
|
|
| | ))) Ну да посмотреть ... потом вручную ввести номер страницы ...
это называется АВТОМАТИЧЕСКИ .... | |
| |
| |
| |
|
|
| | Ну почему же вручную...
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
|
| |
| |
| |
| |
|
|
| | Спасибо почти все замечательно
только у меня все время Reports(ReportName).Pages =0
вне зависимости на какой странице я нахожусь
ЗАВЕЛ ПЕРЕМЕННУЮ ВРОДЕ ПОЛУЧИЛОСЬ
ЕЩЕ РАЗ СПАСИБО.... | |
| |
| |
