0
Classic
10.02.14
✎
19:12
|
Стандартная (для украинских конфигураций) процедура
Процедура РазбитьПечатнуюФорму(ПечФорма, ИмяФормы = "")
УчитыватьАвтомасштаб = (Сред(ИмяФормы,1,6) = "Деклар"); // в нашем случае истина
ПустойТаблДок = Новый ТабличныйДокумент;
ПустойТаблДок.АвтоМасштаб = УчитыватьАвтомасштаб;
ПустойТаблДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ПустойТаблДок.ЧерноБелаяПечать = Истина;
ПустойТаблДок.ЧерноБелыйПросмотр = Истина;
ПослВерх = 1;
Если ЕстьДуплекс Тогда
НовТаблДок = Новый ТабличныйДокумент();
КонецЕсли;
Сч = 0;
Пока Сч < ПечФорма.ВысотаТаблицы Цикл
Сч = Сч + 1;
Если НЕ ПустойТаблДок.ПроверитьВывод(ПечФорма.ПолучитьОбласть(ПослВерх, 0, Сч, 0)) Тогда
Срабатывает уже на 46 строке.
При том, что колонтитулы отключены, поля по 10ке, портрет.
У ПустойТаблДок ВысотаСтраницы 297
У ПечФорма.ПолучитьОбласть(ПослВерх, 0, Сч, 0) Высота страницы 297, высота таблицы - 46.
Интернет говорит, что копать надо в сторону настройки принтеров, но при изменении принтера по умолчанию та же фигня.
Куда рыть?
|
|
5
DJ Anthon
10.02.14
✎
20:09
|
не быстро, а рано.
вообще очень глючная функция, хотя тут многие говорят, что дело в криывх руках, решений много, надо гуглить, сам с ней спотыкался много раз
|
|