Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 22:41

Печать индекса

Автор AnetVN, 28 мая 2011, 23:04

0 Пользователей и 1 гость просматривают эту тему.

cska-fanat-kz

где у вас что-то присваивается переменной "Области"?
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

cska-fanat-kz

Через ПроверитьВывод() кстати лучше - перестанете зависеть от настроек печати...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Шурыгин Иван Сергеевич

Цитата: cska-fanat-kz от 31 мая 2011, 07:57
где у вас что-то присваивается переменной "Области"?
я не помню просто на память как две области присоединить... там что то такого кода

Области = ОбластьПустая;
Области.Присоединить(ОбластьПодвал);
но тут не буду утверждать... давно так не делал
===================================
жизнь надо прожить так, чтоб вверху посмотрели.
и сказали "А ну ка повтори"
===================================

cska-fanat-kz

Можно передать массив областей.

МассивОбластей = Новый Массив();
МассивОбластей.Добавить(ОбластьПустая);
МассивОбластей.Добавить(ОбластьПодвал);
Если НЕ ТабДок.ПроверитьВывод(МассивОбластей) Тогда
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Шурыгин Иван Сергеевич

Цитата: cska-fanat-kz от 31 мая 2011, 08:12
Можно передать массив областей.

МассивОбластей = Новый Массив();
МассивОбластей.Добавить(ОбластьПустая);
МассивОбластей.Добавить(ОбластьПодвал);
Если НЕ ТабДок.ПроверитьВывод(МассивОбластей) Тогда

да я думаю это будет максимально правильно... итого получилась вот такая процедура


Процедура ВывестиИнденкс(ТабДок,ОбластьПустаяСтрока,ОбластьИндекс)

    МассивОбластей = Новый Массив();
    МассивОбластей.Добавить(ОбластьПустая);
    МассивОбластей.Добавить(ОбластьПодвал);

    Пока Истина Цикл
         Если НЕ ТабДок.ПроверитьВывод(МассивОбластей) Тогда//пустая + подвал
                ТабДок.Вывести(ОбластьПодвал);
                ТабДок.ВывестиГоризонтальныйРазделитель();
                Прервать;
         Иначе
                ТабДок.Вывести(ОбластьПустаяСтрока);
         КонецЕсли;
    КонецЦикла;
КонецПроцедуры
===================================
жизнь надо прожить так, чтоб вверху посмотрели.
и сказали "А ну ка повтори"
===================================

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск