Имя: Пароль:
1C
1С v8
ПроверитьВывод() срабатывает слишком быстро
0 Classic
 
10.02.14
19:12
Стандартная (для украинских конфигураций) процедура

Процедура РазбитьПечатнуюФорму(ПечФорма, ИмяФормы = "")
    
    УчитыватьАвтомасштаб = (Сред(ИмяФормы,1,6) = "Деклар"); // в нашем случае истина

    ПустойТаблДок = Новый ТабличныйДокумент;
    ПустойТаблДок.АвтоМасштаб = УчитыватьАвтомасштаб;
    ПустойТаблДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    ПустойТаблДок.ЧерноБелаяПечать = Истина;
    ПустойТаблДок.ЧерноБелыйПросмотр = Истина;
    ПослВерх = 1;
    Если ЕстьДуплекс Тогда
        НовТаблДок = Новый ТабличныйДокумент();
    КонецЕсли;
    
    Сч = 0;
    Пока Сч < ПечФорма.ВысотаТаблицы Цикл
         Сч = Сч + 1;
        
        Если НЕ ПустойТаблДок.ПроверитьВывод(ПечФорма.ПолучитьОбласть(ПослВерх, 0, Сч, 0)) Тогда



Срабатывает уже на 46 строке.
При том, что колонтитулы отключены, поля по 10ке, портрет.
У ПустойТаблДок ВысотаСтраницы 297
У ПечФорма.ПолучитьОбласть(ПослВерх, 0, Сч, 0) Высота страницы 297, высота таблицы - 46.


Интернет говорит, что копать надо в сторону настройки принтеров, но при изменении принтера по умолчанию та же фигня.

Куда рыть?
1 acanta
 
10.02.14
19:17
Переключатель 2 экз на лист в параметрах страницы?
2 Classic
 
10.02.14
19:19
(1)
В каких параметрах?
3 Classic
 
10.02.14
19:21
Да, еще. Для некоторых страниц отрабатывает нормально (ну сравнительно). Для конкретно этой области печати какая-то фигня.

Разделителя страниц нет
4 Classic
 
10.02.14
19:23
Платформа 8.3.3.715

Может тоже влияет :)
5 DJ Anthon
 
10.02.14
20:09
не быстро, а рано.

вообще очень глючная функция, хотя тут многие говорят, что дело в криывх руках, решений много, надо гуглить, сам с ней спотыкался много раз