powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Програмное задание Zoom отчета при его открытии-как?
11 сообщений из 11, страница 1 из 1
Програмное задание Zoom отчета при его открытии-как?
    #32450019
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые знатоки Access!

Большая просьба:

Имеется кноп. форма, открывающая отчет.
Не получается задать масштаб отчета, устанавливаемый при его открытии после нажатия на соотв. кнопку.
В Access кажется есть перечислимое свойство AsCommand, содержащщее нужные константы (acCmdZoom10...), но никак не могу их использовать.

Может кто знает как это делать?????

С уважением, Александр.
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32450024
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Вроде бы работает DoCmd.RunCommand acCmdZoom10, если его использовать не в событиях отчета, а в открывающей процедуре после DoCmd.OpenReport.
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32450152
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Присоединяюсь

Dim stDocName As String

stDocName = "Name_Reports"
DoCmd.OpenReport stDocName, acPreview
DoCmd.RunCommand acCmdZoom75
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32451439
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое всем спасибо!!!
Все работает!!!
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32451485
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые Владимир Саныч и Shuhard!!!
БОльшое спосибо!!!

Можно еще маленький вопрос:
как вписать отчет в окно т.е. сделать масштаб отчета "окно"

Пробовал запускать команду acCmdZoomBox так как вы говорили, пишет "Команда или макрокоманда "Область ввода" в данное время недоступна"

При этом другие команды изменения масштаба (напр. acCmdZoom75) работают!

В чем дело?
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32451494
IgorM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
acCmdFitToWindow
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32451665
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С трудом нашел ссылку на коды - автор см ниже
http://home.clara.net/tkwickenden/
МАТЮЩЕНКО Георгий Кузьмич
E-mail: gkuzmich@mail.ru
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32452355
gav
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое спасибо!
Все работает!!!
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32453197
У объекта Report есть скрытое свойство ZoomControl.
Оно работает, и допускает значение от 0 (автоподгонка) до 2000 (!) с лишним процентов.
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32453677
lobodava
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во как... а такое свойство, оказывается, и у формы есть!!!

А не подскажет ли нам уважаемый Анатолий из Киева, как это свойство использовать? В какое место вставлять (имеется ввиду совсем другое место, а не то что вы подумали! ) в коде отчёта и формы? Есть ли примеры?

Заранее спасибо!
...
Рейтинг: 0 / 0
Програмное задание Zoom отчета при его открытии-как?
    #32457682
Код: plaintext
1.
2.
3.
4.
5.
DoCmd.OpenReport  "MyReport" , acViewPreview
Reports( "MyReport" ).ZoomControl =  200 
MsgBox  "200 %"
Reports( "MyReport" ).ZoomControl =  0 
MsgBox  "Fit" 
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Програмное задание Zoom отчета при его открытии-как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]