powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Окно предварительного просмотра
3 сообщений из 3, страница 1 из 1
Окно предварительного просмотра
    #36259804
Макс_П
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет! Вывожу отчёт в своём окне с помощью такой конструкции:

SET ReportBehavior 90
oWindowPrint = CREATEOBJECT("MyWindowPrint")
oWindowPrint.Show(1)
REPORT FORM Protokol_1str.frx TO PRINTER PROMPT NODIALOG PREVIEW IN WINDOW MyWindowPrint NOPAGEEJECT NOWAIT
REPORT FORM Protokol_2str.frx TO PRINTER PROMPT NODIALOG PREVIEW IN WINDOW MyWindowPrint NORESET
Что необходимо сделать, чтобы

1) В окне предпросмотра отчёт всегда открывался на всё окно?
2) При выборе принтера, окно предпросмотра исчезает, а моё окно остаётся висеть. Как заставить его закрываться вместе с окном предпросмотра?
...
Рейтинг: 0 / 0
Окно предварительного просмотра
    #36263039
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Макс_П
1) В окне предпросмотра отчёт всегда открывался на всё окно?

KEYBOARD "{ctrl+f10}"
REPORT FORM Protokol_1str TO PRINTER PROMPT PREVIEW IN WINDOW MyWindowPrint NOPAGEEJECT NOWAIT NODIALOG

Макс_П
2) При выборе принтера, окно предпросмотра исчезает, а моё окно остаётся висеть. Как заставить его закрываться вместе с окном предпросмотра?

KEYBOARD '{CTRL+F10}'
REPORT FORM Protokol_1str TO PRINTER PROMPT PREVIEW IN WINDOW yWindowPrint NOPAGEEJECT NOWAIT NODIALOG
RELEASE WINDOW oWindowPrint

Если окно не исчезает, то лучше определить и открыть его иначе:

DEFINE WINDOW oWindowPrint FROM 2,1 TO 30,80 ;
SYSTEM TITLE 'Report Preview' ;
NOCLOSE FLOAT GROW ZOOM ICON FILE 'printer.ico'

KEYBOARD '{CTRL+F10}' && Optional to force window full screen
REPORT FORM Protokol_1str PREVIEW WINDOW oWindowPrint
RELEASE WINDOW oWindowPrint

Это на примере из сайта Foxite.com
Надеюсь, это поможет
...
Рейтинг: 0 / 0
Окно предварительного просмотра
    #36264127
Макс_П
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
igorbik
DEFINE WINDOW oWindowPrint FROM 2,1 TO 30,80 ;
SYSTEM TITLE 'Report Preview' ;
NOCLOSE FLOAT GROW ZOOM ICON FILE 'printer.ico'

А как это экно вывести на рабочий стол и к тому же развёрнутое на весь экран?
Пробовал слудующее:
x = SYSMETRIC(1) && Ширина окна (вычисляется из максимального размера экрана)
y = SYSMETRIC(2) && Высота окна (вычисляется из максимального размера экрана)
DEFINE WINDOW oWindowPrint AT O,O SIZE x, y IN DESCTOP

Но окно всё равно выводится обрезанное в родительском окне. Что я делаю не так?
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Окно предварительного просмотра
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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