powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить ориентацию листа
8 сообщений из 8, страница 1 из 1
Изменить ориентацию листа
    #36999656
ENDOFUSSR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите кто может!
Как программно изменить ориентацию листа при печати не выводя окно свойств принтера.
Задать параметр "Альбомная" или "Портрет", а после печати восстановить то, что было по умолчанию в системе. Печать не в репорте!
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37000550
Погодин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ENDOFUSSRПечать не в репорте!
А где - эксель, ворд, еще что то ?
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37001531
ENDOFUSSR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
IE
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37001532
ENDOFUSSR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Погодин,
и IE.
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37003312
Погодин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
раз в эксплорере, тогда апишными функциями в c++ , будет примерно:


// ...

pPrinter=(unsigned char *)malloc(cbBuf);
GetPrinter(phPrinter,2,pPrinter,cbBuf,&pcbNeeded);

((PRINTER_INFO_2 *)pPrinter)->pDevMode->dmOrientation=DMORIENT_LANDSCAPE;

// ...

((PRINTER_INFO_2 *)pPrinter)->pDevMode->dmOrientation=DMORIENT_PORTRAIT;
ClosePrinter(phPrinter);

т. е. надо почитать про эти функции win32api и применить
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37003516
po2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
po2
Гость
http://www.foxclub.ru/sol/index.php?act=view&id=203 Библиотека не проверялась на системах выше Windows XP SP2.
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37003706
...
Рейтинг: 0 / 0
Изменить ориентацию листа
    #37003755
самому стало интересно...

вобщем, скачиваем файл по моей ссылке выше
регистрируем PageSet.dll (там написано как)
а дальше примерно так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
oPageSet = CreateObject("PageSet.PrinterControl")
*устанавливаем альбомную ориентацию
oPageSet.ChngOrientationLandscape()

*печатаем
oIE = CreateObject("InternetExplorer.Application")
oIE.navigate("c:\111.htm") 
oIE.ExecWB( 6 ,  2 )

*обратно делаем портретную ориентацию
oPageSet.ReSetOrientation()

*уничтожаем все объекты
RELEASE oPageSet
oIE.Quit()
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить ориентацию листа
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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