Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Программно повернуть лист Word в альбомный 
:(
    Опции темы
Нитонисе
Дата 1.3.2010, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Надо повернуть лист Word в альбомный, для последующего создания там таблицы.

Попутно вопрос по таблице - там нужно будет объединять ячейки (смежные по горизонтали и по вертикали), как это делается?

Работаю с компонентом WordApplication.
PM MAIL   Вверх
chaos
Дата 1.3.2010, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 1
Всего: 44
4 года назад надо было подобное.
помогла эта книга
user posted image
PM WWW   Вверх
Нитонисе
Дата 1.3.2010, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Так это Дельфи.
PM MAIL   Вверх
Данкинг
Дата 1.3.2010, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
chaos, у меня такая есть. smile 
Цитата(Нитонисе @  1.3.2010,  11:41 Найти цитируемый пост)
Так это Дельфи. 

А какая разница в данном случае? smile Тебе нужно свойство листа (ActiveSheet->PageSetup->Orientation) установить в xlLandscape. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 6.3.2010, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Открываю ворд, добавляю документ и пытаюсь его развернуть, но выскакивает ошибка.
Вот код:
Код

WordApplication1->Connect();
WordApplication1->set_Visible(true);
WordApplication1->Documents->Add();
WordApplication1->ActiveDocument->PageSetup->Orientation = wdOrientLandscape;

А вот ошибка.
user posted image

И что она означает?
PM MAIL   Вверх
Данкинг
Дата 6.3.2010, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Нитонисе, если я не путаю, для параметров страницы в системе должен быть установлен принтер.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 6.3.2010, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Цитата(Данкинг @  6.3.2010,  18:26 Найти цитируемый пост)
Нитонисе, если я не путаю, для параметров страницы в системе должен быть установлен принтер.

То есть если не установлен принтер, то я не смогу повернуть лист? Либо это как-то можно иначе сделать?
PM MAIL   Вверх
Данкинг
Дата 6.3.2010, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Нитонисе @  6.3.2010,  18:31 Найти цитируемый пост)
то я не смогу повернуть лист?

Ну да. Как иначе - лично я не в курсе.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 6.3.2010, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
А можно как нибудь установить фиктивный принтер? реального нет. Чтоб проверить.
PM MAIL   Вверх
Данкинг
Дата 6.3.2010, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Нитонисе @  6.3.2010,  20:16 Найти цитируемый пост)
А можно как нибудь установить фиктивный принтер?

dopdf - он даже бесплатный. При печати сохраняет в .pdf.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 7.3.2010, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Цитата(Данкинг @  6.3.2010,  20:29 Найти цитируемый пост)
dopdf - он даже бесплатный. При печати сохраняет в .pdf.

Установил эту программу, но результат тот же. Скорее всего дело не в установленном либо неустановленном принтере. 
А у вас такой код работает?
PM MAIL   Вверх
Данкинг
Дата 7.3.2010, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
А если вместо константы (wdOrientLandscape) подставить её значение = 1 ?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 7.3.2010, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Цитата(Данкинг @  7.3.2010,  19:50 Найти цитируемый пост)
А если вместо константы (wdOrientLandscape) подставить её значение = 1 ?

Та же самая ошибка. А попробуйте у себя этот мой код? Там всего четыре строчки, я их повесил на обработчик нажатия кнопки. У вас такая ошибка будет?
И может кто подскажет вариант разворота листа через OLE-технологию?
PM MAIL   Вверх
Данкинг
Дата 7.3.2010, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Попробовал. Ошибок не выдаёт, но и не разворачивает. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Нитонисе
Дата 7.3.2010, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2
Цитата(Данкинг @  7.3.2010,  21:30 Найти цитируемый пост)
Попробовал. Ошибок не выдаёт, но и не разворачивает.

Странно.

А как запустить ворд, открыть новый документ и повернуть лист в нем напрямую через OLE, а не через компоненты?
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0540 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.