|
|
|
| Всем доброе время суток! Подскажите можно ли сделать так, чтоб при загрузке отчета загружался последний лист или лист который я укажу?
Заранее спасибо. | |
|
| |
|
|
|
| Можно конечно........
надо page reда-то засунуть
Необходимо отметить, что в Access мы можем легко вывести на печать не только отчет, но и любой активный объект, например форму или таблицу. Для этого используется метод PrintOut, который выполняет макрокоманду "Печать" (PrintOut). Синтаксис этого метода имеет следующий вид:
DoCmd.PrintOut [Диапазон] [, СоСтраницы, ПоСтраницу]
[, Качество] [, ЧислоКопий] [, РазобратьКопии]
В качестве аргумента Диапазон может использоваться одна из следующих встроенных констант:
acPrintAll - для печати всего отчета (по умолчанию);
acSelection - для печати фрагмента отчета;
acPages - для печати указанных страниц. При этом должны быть указаны аргументы СоСтраницы и ПоСтраницу.
Для задания значения аргумента Качество должна использоваться одна из следующих встроенных констант:
acHigh - высокое качество печати (разрешение принтера) - по умолчанию;
acMedium - среднее качество печати;
acLow - низкое качество печати;
acDraft - печать черновика.
Число печатаемых копий отчета задается аргументом ЧислоКопий которое по умолчанию равно 1.
Задание для аргумента РазобратьКопии значения, равного True(-1), определяет печать с раскладкой по копиям, а False (0) - печать без раскладки. Если оставить данный аргумент пустым, будет принято значение по умолчанию (True).
Напомним, что в Access необязательный аргумент посреди списка аргументов разрешается пропустить, однако при этом необходимо ввести запятую, отделяющую пропущенный аргумент. Если опускаются один или несколько последних аргументов, вводить запятые вслед за последним указанным аргументом не требуется.
Например, для вывода формы на принтер мы можем создать в ней специальную кнопку, для события OnClick которой запишем следующий код, при выполнении которого будут напечатаны три экземпляра отчета:
Private Sub cmdForm_Click()
DoCmd.PrintOut(acPrintAll,,3)
End Sub
===================================
Do While True
On Error GoTo naFig
DoCmd.SelectObject acReport
DoCmd.PrintOut acPages, i, i, N, False
i = i + 1
Loop
naFig:
|
| |
|
| |
|
|
|
|
Час, вы зачем от Макс@-а отчет спрятали?
Макс@-у:
Может необходимо открывать отчет с фильтром, дабы выводить только нужные записи? | |
|
| |
|
|
|
| Я исправилси | |
|
| |
|
18 Кб. |
|
| А вот интересный примерчик не мною придуманый...... | |
|
| |
|
|
|
| Скорей всего так и буду делать.... всем спасибо за советы. | |
|
| |