Автор | Сообщение |
|
| постоянный участник
|
Пост N: 5885
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.05.18 18:06. Заголовок: Настройка формата листа DOC-файла...
Как сделать настройку формата страницы листа .DOC в зависимости от ширины таблицы ? Ширину своей таблицы уже знаю: nWidthTsb := oBrw:GetAllColsWidth() // ширина всех колонок таблицы в пикселах Задаю поля страницы (но они в других единицах): oWord:ActiveDocument:PageSetup:LeftMargin := 72.0 //~2.5 см // книжная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait // альбомная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientLandscape Сколько пикселов в формате А4 для книжной и альбомной ориентации листа ? Кто знает как это сделать ?
|
|
|
Новых ответов нет
, стр:
1
2
3
All
[см. все]
|
|
|
| Администратор
|
Пост N: 3737
Зарегистрирован: 23.05.05
|
|
Отправлено: 29.05.18 08:41. Заголовок: Прежде надо точно сф..
Прежде надо точно сформулировать задачу, и не путать теплое с мягким количество пикселей на экране для tsbrowse из hmg и ширину листа A4 в метрической системе или в дюймах или пикселях. В таблице word таблица tsbrowse наверное будет представлена по другому ?
|
|
|
|
| постоянный участник
|
Пост N: 1825
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.05.18 10:22. Заголовок: Andrey Паша прав. А..
|
|
|
|
| |
Пост N: 6833
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 12:03. Заголовок: Andrey http://bizne..
|
|
|
|
| постоянный участник
|
Пост N: 5886
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 12:51. Заголовок: Pasha пишет: не пут..
Pasha пишет: цитата: | не путать теплое с мягким количество пикселей на экране для tsbrowse из hmg и ширину листа A4 в метрической системе или в дюймах или пикселях. |
| Вот я это и хочу понять. Спасибо большое за ссылки ! Пошёл учить матчасть...
|
|
|
|
| постоянный участник
|
Пост N: 5887
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:12. Заголовок: Как мне в Word сдела..
Как мне в Word сделать страницу формата А1? Формат А1 соответствует следующему размеру - 594х841 мм. А редактор Word имеет ограничение в установке размеров - 55,87 см по любой из сторон листа. Таким образом, установить формат А1 в редакторе невозможно.
|
|
|
|
| |
Пост N: 6834
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 13:22. Заголовок: Andrey Спроси гугл ..
|
|
|
|
| постоянный участник
|
Пост N: 5888
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:37. Заголовок: Ну да... Буду знать ..
Ну да... Буду знать теперь: Ms Word не поддерживает форматы А2,А1,А0 ! А OpenOffice поддерживает !
|
|
|
|
| постоянный участник
|
Пост N: 5889
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:53. Заголовок: Наконец то понял... ..
Наконец то понял... До этого как то не особо интересовался. Единицы измерения Word http://machula.ru/edinitsyi-izmereniya-word/ То бишь параметры - oWord:ActiveDocument:PageSetup:LeftMargin := 72.0 //~2.5 см Переводятся как 72 пункта (72 points)
|
|
|
|
| постоянный участник
|
Пост N: 5890
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 14:31. Заголовок: Dima пишет: http://..
Dima пишет: цитата: | http://biznessystem.ru/kakoj-razmer-v-pikselyah-imeet-list-formata-a4/ |
| Не понял. Я не нашёл как задать DPI в Ворде. Кто подскажет как это сделать ?
|
|
|
|
| постоянный участник
|
Пост N: 1426
Зарегистрирован: 27.01.07
|
|
Отправлено: 29.05.18 14:46. Заголовок: DPI имеет отношение ..
|
|
|
|
| |
Пост N: 6835
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 14:50. Заголовок: Andrey Гугл снова )..
|
|
|
|
|
| постоянный участник
|
Пост N: 5891
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 18:07. Заголовок: Задаю формат листа А..
Задаю формат листа А3 через word.ch : oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA3 // лист A3 В программе потом вылетает на этой строке: Error 2447764/-2147352573 DISP_E_MEMBERNOTFOUND: _PAPERSIZE Called from TOLEAUTO:_PAPERSIZE(0) Called from BRW2DOC(99) in module: Tsb2doc.prg А так работает - oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA4 // лист A4 Как задать размер листа больше А4 ?
|
|
|
|
| постоянный участник
|
Пост N: 1826
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.05.18 19:54. Заголовок: Andrey Руками можеш..
Andrey Руками можешь поставить в word формат A3 ? Сейчас не знаю, но раньше, если принтер (драйвер) не поддерживал A3, то и word не включал.
|
|
|
|
| постоянный участник
|
Пост N: 5892
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.05.18 17:10. Заголовок: SergKis пишет: Рука..
SergKis пишет: цитата: | Руками можешь поставить в word формат A3 ? |
| Не ставиться, нет такого формата в Ворде 2003. Сделал по другому: // Word имеет ограничение в установке размеров - 55,87 см по любой из сторон листа. // 55.87 сантиметров равно 1 583.717 пунктов // Высоту листа возьмем как у A4 (210х297 мм) == 297 // 297 миллиметров равно 841.889862 пункта oWord:ActiveDocument:PageSetup:PageWidth = 1583 oWord:ActiveDocument:PageSetup:PageHeight = 841 // книжная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait Спасибо ВСЕМ за подсказки !
|
|
|
|
| постоянный участник
|
Пост N: 5895
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.05.18 19:26. Заголовок: Экспорт в таблицу Во..
Экспорт в таблицу Ворда из Tsbrowsa получается у меня нормально. Единственно, что некрасиво делается - это автоматическое растягивание таблицы по ширине страницы !!! Можно ли как то это убрать ? Кто нибудь сталкивался с этим ? Код создания таблицы: nLenHead++ // шапка таблицы if AScan( oBrw:aColumns, { |o| o:cFooting != Nil } ) > 0 nLenHead++ endif nRowDbf := oBrw:nLen - oBrw:nAt + nLenHead + 1 // кол-во строк в таблице + шапка + подвал таблицы nColDbf := Len( oBrw:aColumns ) // кол-во столбцов в таблице // ------- создание таблицы --------------- oRange = oActive:Range(len(cTitle)+2) // таблица с автоподстройкой по ширине странице oTbl:= oWord:ActiveDocument:Tables:Add(oRange,nRowDbf,nColDbf,wdWord9TableBehavior,wdAutoFitContent) Пробовал менять константу wdAutoFitContent на 0,1,2 - всё равно одинаково растягивает таблицу.
|
|
|
|
| постоянный участник
|
Пост N: 5906
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.06.18 11:07. Заголовок: Перехожу с HBOLE.LIB..
Перехожу с HBOLE.LIB на HBWIN.LIB TRY oWord := GetActiveObject( "Word.Application" ) CATCH TRY oWord := CreateObject( "Word.Application" ) CATCH cMsg := "Не могу запустить - Microsoft Word (Ошибка:" + Ole2TxtError() + ")!;;" cMsg += "(Не установлен на этом компьютере !);" MsgStop(cMsg,"ОШИБКА!") RETURN NIL END END А чем заменить функцию Ole2TxtError() ?
|
|
|
|
| moderator
|
Пост N: 1288
Зарегистрирован: 11.02.10
|
|
Отправлено: 08.06.18 12:09. Заголовок: Andrey пишет: чем з..
Andrey пишет: цитата: | чем заменить функцию Ole2TxtError() ? |
| Попробуй использовать win_oleErrorText()
|
|
|
|
| |
Пост N: 6840
Зарегистрирован: 17.05.05
|
|
Отправлено: 08.06.18 12:09. Заголовок: win_oleErrorText()..
win_oleErrorText()
|
|
|
|
| постоянный участник
|
Пост N: 5907
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.06.18 12:51. Заголовок: СПАСИБО ! А есть опи..
СПАСИБО ! А есть описание функций HBWIN.LIB ?
|
|
|
|
| |
Пост N: 628
Зарегистрирован: 08.07.06
|
|
Отправлено: 08.06.18 17:59. Заголовок: Andrey пишет: А ест..
|
|
|
Новых ответов нет
, стр:
1
2
3
All
[см. все]
|
|