kruger48
1
1C 8.x

Разрыв на печатной форме при определенном условии

08.02.2011, 22:24. Показов 20698. Ответов 2
Метки нет (Все метки)

Доброго времени суток !Помогите!Конфа бух 2.0 8.2Документ реализация товаров и услуг , печатная форма "акт об оказании услуг" Отредактировал ее так чтобы в отдельных табличках выводилось то что на закладке агентские услуги и в отдельной все остальное. Критично чтобе обе таблицы были на 1 листе а4 но если чуть не помещается то вторая сразу бы переносилась на второй лист.Вопрос как это реализовать?Спасибо заранее.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2011, 22:24
Ответы с готовыми решениями:

Повтор цикла при определенном условии
Как такое сделать? IF True Then Все_сначала

Окно сообщения при определенном условии
Всем привет. Есть кнопка по нажатию которой заполняется поле. Нужно, чтобы при определенном...

Отобразить button при определенном условии
По умолчанию button1 скрыт в свойствах. Есть splitContainer у которого splitContainer.panel1 по...

Сложение ячеек при определенном условии
Добрый день. я знаю как складываются ячейки =ячейка1 & "," & ячейка2 & "," & ячейка3 & ","...

2
308 / 308 / 1
Регистрация: 16.01.2011
Сообщений: 1,073
08.02.2011, 23:31 2
Не знаю поможет тебе это или нет. Может натолкнуть на какую мысль, ибо время позднее, а разбираться не хочется..
вобщем для ТОРГ 12 в 7.7 производился подсчет строк таблицы, шапки и подвала
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
        //Для простоты настройки печатной формы примем следующие соглашения:
    //  -   высота строк в таблице печатной формы задана жестко,
    //      тогда известно, сколько строк помещается на странице;
    СтрокНаСтранице = 20;
    //  -   высота шапки и подвала задана жестко и кратна высоте строк таблицы,
    //      тогда можно указать, сколько строк занимают шапка и подвал
    //      в пересчете на строки таблицы;
    СтрокШапки = 11;
    СтрокПодвала = 8;
    //  -   для нормальной работы алгоритма необходимо, чтобы шапка и подвал
    //      могли поместиться на одной странице + хотя бы одна строка таблицы:
    //      СтрокНаСтранице >= СтрокШапки + СтрокПодвала + 1
    //  -   если подвал не помещается на странице, он переносится на другую
    //      страницу с последней строкой; исключение составляет случай,
    //      когда в таблице всего одна строка.
    Если КоличествоСтрок() <= 3 Тогда
        ПереноситьПоследнююСтроку = 0;
    Иначе
        ЦелыхСтраницСПодвалом = Цел((СтрокШапки+КоличествоСтрок()+СтрокПодвала)/СтрокНаСтранице);
        ЦелыхСтраницБезПодвала = Цел((СтрокШапки+КоличествоСтрок()-1)/СтрокНаСтранице);
        ПереноситьПоследнююСтроку = ЦелыхСтраницСПодвалом - ЦелыхСтраницБезПодвала;
    КонецЕсли;
    //Если ПереноситьПоследнююСтроку = 1 - переносить,
    //если ПереноситьПоследнююСтроку = 0 - не надо переносить.
0
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
09.02.2011, 14:40 3
kruger48, ПроверитьВывод

ТабличныйДокумент.ПроверитьВывод (SpreadsheetDocument.CheckPut)
ТабличныйДокумент (SpreadsheetDocument)
ПроверитьВывод (CheckPut)
Синтаксис:
ПроверитьВывод(<Таблицы>)
Параметры:
<Таблицы> (обязательный)
Тип: Массив, ТабличныйДокумент. Массив из проверяемых таблиц или табличный документ.
Возвращаемое значение:
Тип: Булево. Истина - умещаются; Ложь - в противном случае.
Описание:
Проверяет, умещаются ли переданные табличные документы на страницу при печати.
Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения.
Примечание:
При возникновении проблем с получением информации о текущем принтере (например, в системе не установлено ни одного принтера), будет вызвано исключение.

Вот кусок кода из типовой:
1C
1
2
3
4
5
6
7
8
Если Не ДокументРезультат.ПроверитьВывод(ОбластьДанныхПодвал) Тогда
    ПоследняяСтрокаЛиста = ДокументРезультат.ПолучитьОбласть(ДокументРезультат.ВысотаТаблицы - 3,,ДокументРезультат.ВысотаТаблицы,);
    ДокументРезультат.УдалитьОбласть(ДокументРезультат.Область(ДокументРезультат.ВысотаТаблицы - 3,,ДокументРезультат.ВысотаТаблицы,),);
    ДокументРезультат.ВывестиГоризонтальныйРазделительСтраниц();
    ДокументРезультат.Вывести(ОбластьДанныхКолонтитул);
    ДокументРезультат.Вывести(ПоследняяСтрокаЛиста);
КонецЕсли;
ДокументРезультат.Вывести(ОбластьДанныхПодвал);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2011, 14:40
Помогаю со студенческими работами здесь

При определенном условии сгенерировать массив
Нужно при определенном условии сгенерировать массив, если написать это условие: int i,j; for(i=0;...

Вывод значения при определенном условии
Помогите, пожалуйста:В ячейки A3 и B3 помещены два числа. Если они оба четны, то в ячейку С3...

Закрытие файла при определенном условии
Пакую файлы в зип архив, беру их дириктории поштучно из листбокса. Если просто пакововать- то...

Отыскание корня при определенном условии
Здравствуйте. Подскажите пожалуйста как можно реализовать следующую операцию: необходимо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru