ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в отчета задать ориентацию бумаги.
5 сообщений из 5, страница 1 из 1
Как в отчета задать ориентацию бумаги.
    #33036898
Фотография ГенГрум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ГенГрум
Участник
Как в отчета задать ориентацию бумаги вне зависимости от установок принтера ? В ворде необходима ориентация книжная, а в фоксе альбомная.
...
Рейтинг: 0 / 0
26.04.2005, 18:56
| Ответить | Цитировать | Написать  
Как в отчета задать ориентацию бумаги.
    #33037128
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
В режиме модификации отчета пункт меню File - Page Setup - кнопка Print Setup.

Но если драйвер принтера, на котором создается отчет, отличен от драйвера принтера у клиента, то возможны глюки.
...
Рейтинг: 0 / 0
26.04.2005, 22:05
| Ответить | Цитировать | Написать  
Как в отчета задать ориентацию бумаги.
    #33039255
Фотография ГенГрум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ГенГрум
Участник
Спасибо ВладимирМ.
А системными перемеными или програмно установить нельзя?
...
Рейтинг: 0 / 0
27.04.2005, 19:27
| Ответить | Цитировать | Написать  
Как в отчета задать ориентацию бумаги.
    #33039395
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
ГенГрумА системными перемеными или програмно установить нельзя?
Системными переменными нельзя, а программно можно, если файл отчета не включен внутрь проекта. Т.е. поставляется клиенту как отдельный файл. Тогда

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
SELECT  0 
USE MyReport.frx
LOCATE FOR ObjCode= 53  AND ObjType= 1 
DO CASE
CASE NOT ("ORIENTATION=" $ MyReport.Expr)
	REPLACE Expr WITH IIF(EMPTY(MyReport.Expr),"",CHR( 13 )+CHR( 10 ))+;
			"ORIENTATION=1" ADDITIVE
CASE "ORIENTATION=0" $ MyReport.Expr
	REPLACE Expr WITH StrTran(MyReport.Expr,"ORIENTATION=0","ORIENTATION=1")
ENDCASE

Смысл в том, что файл отчета физически - это обычная DBF-таблица. Информацию об ориентации бумаги записана в записи со значениями полей ObjCode=53 AND ObjType=1 (обычно это первая запись) в поле с именем "Expr".

Там надо найти ключевое слово "ORIENTATION"

ORIENTATION=0 - ориентация портрет
ORIENTATION=1 - ориентация ландшафт

Хотя, особого смысла в этом нет. Разве что Вы программно будет формировать сам файл FRX.
...
Рейтинг: 0 / 0
27.04.2005, 21:46
| Ответить | Цитировать | Написать  
Как в отчета задать ориентацию бумаги.
    #33039446
Фотография ГенГрум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ГенГрум
Участник
спасибо за ответ. Попробую разобратся. А то неохота бегать и объясниять как настраивать принтер.
...
Рейтинг: 0 / 0
27.04.2005, 22:44
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в отчета задать ориентацию бумаги.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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