Как нумировать страницы с заданного номера. ПовторятьПриПечатиСтроки - не помогает
06.05.2008
10:27
#1
Как нумировать страницы с заданного номера???
Делаю в ячейке вызов Функции увеличивающей количество страницы на 1.
Прописываю - ПовторятьПриПечатиСтроки(НачСтр,КонСтр) - не помогает.
В шапке функция вызывается только 1 раз.
В колонтитуле тоже самое.
Делаю в ячейке вызов Функции увеличивающей количество страницы на 1.
Прописываю - ПовторятьПриПечатиСтроки(НачСтр,КонСтр) - не помогает.
В шапке функция вызывается только 1 раз.
В колонтитуле тоже самое.
06.05.2008
16:54
#2
"Пример:
Процедура Сформировать()
ТабВрем=СоздатьОбъект("Таблица");
ТабРаб=СоздатьОбъект("Таблица");
ТабВрем.ИсходнаяТаблица("ТаблицаВрем");
ТабРаб.ИсходнаяТаблица("ТаблицаРаб");
ТабВрем.ВывестиСекцию("Шапка");
ТабРаб.ВывестиСекцию("Шапка");
НомСтр=3;
ТабВрем.ВывестиСекцию("НомерСтраницы");
ТабРаб.ВывестиСекцию("НомерСтраницы");
ТабВрем.ПовторятьПриПечатиСтроки(3,3);
ТабРаб.ПовторятьПриПечатиСтроки(3,3);
ТабВрем.ПараметрыСтраницы(1,100,1,10,10,10,10);
ТабРаб.ПараметрыСтраницы(1,100,1,10,10,10,10);
Ном=0;
КолСтр=2;
Для Ном=1 По 300 Цикл
Стр="Строка № "+Строка(Ном);
ТабВрем.ВывестиСекцию("Строка");
Если КолСтр=ТабВрем.КоличествоСтраниц() Тогда
ТабРаб.НоваяСтраница();
КолСтр=КолСтр+1;
НомСтр=НомСтр+1;
ТабРаб.ВывестиСекцию("НомерСтраницы");
ТабВрем.ВывестиСекцию("НомерСтраницы");
КонецЕсли;
ТабРаб.ВывестиСекцию("Строка");
КонецЦикла;
ТабРаб.Опции(0,0,0,0);
ТабРаб.Показать("Нумерация");
КонецПроцедуры"
Процедура Сформировать()
ТабВрем=СоздатьОбъект("Таблица");
ТабРаб=СоздатьОбъект("Таблица");
ТабВрем.ИсходнаяТаблица("ТаблицаВрем");
ТабРаб.ИсходнаяТаблица("ТаблицаРаб");
ТабВрем.ВывестиСекцию("Шапка");
ТабРаб.ВывестиСекцию("Шапка");
НомСтр=3;
ТабВрем.ВывестиСекцию("НомерСтраницы");
ТабРаб.ВывестиСекцию("НомерСтраницы");
ТабВрем.ПовторятьПриПечатиСтроки(3,3);
ТабРаб.ПовторятьПриПечатиСтроки(3,3);
ТабВрем.ПараметрыСтраницы(1,100,1,10,10,10,10);
ТабРаб.ПараметрыСтраницы(1,100,1,10,10,10,10);
Ном=0;
КолСтр=2;
Для Ном=1 По 300 Цикл
Стр="Строка № "+Строка(Ном);
ТабВрем.ВывестиСекцию("Строка");
Если КолСтр=ТабВрем.КоличествоСтраниц() Тогда
ТабРаб.НоваяСтраница();
КолСтр=КолСтр+1;
НомСтр=НомСтр+1;
ТабРаб.ВывестиСекцию("НомерСтраницы");
ТабВрем.ВывестиСекцию("НомерСтраницы");
КонецЕсли;
ТабРаб.ВывестиСекцию("Строка");
КонецЦикла;
ТабРаб.Опции(0,0,0,0);
ТабРаб.Показать("Нумерация");
КонецПроцедуры"
Читают тему
(гостей: 1)