ник: час
Вот ещё поменьше........
Вопрос: Как можно программно поменять параметры страницы?
Совет:
Q; Как можно программно сделать сабж? Т.е. принудительно выставить
Portrait или Landscape невзирая на параметры страницы? Или,
например, границы листа поменять?
Ответ: Смотри в хелпе PrtDevMode, там в примере есть то, что тебе нужно (по
ориентации, возможно есть и по размерам).
Q; Смотрел. Слишком заморочено, но не это сложно. Проблема в том, что описанные в примере типы переменных не опознаются. Какую библиотеку подключить, не пойму.
Ответ: Никакую. :) В начало примера посмотри, там описаны все нужные структуры, просто скопируй их в модуль. А для реального применения эту функцию не мешает доработать, т.к. она открывает отчет в режиме конструктора и не закрывает его после работы. Поэтому уберем мелькание при переключении в конструктор и закроем отчет в конце работы.
1. Между строками функции
Dim rpt As Report и DoCmd.OpenReport strName,
acDesign
|
вставляем
получаем
Dim rpt As Report
DoCmd.Echo False
DoCmd.OpenReport strName, acDesign
|
2. Перед End Sub
вставляем
DoCmd.Echo True
DoCmd.Close acReport, strName, acSaveYes
|
Всех благ, Игорь Макеев