Форум Программирование Общие вопросы программирования (Dev)

КАК добавить надпись в верхнем правом углу табличный документ вместо колонтитула

1. zoeh 31 18.05.23 08:46 Сейчас в теме

Макет менять не хочу!!!
Колонитул косячно отрабатывает при групповой печати, показывает общую сумму всех страниц, а мне нужно считать страницы от одного документа 1 или 2.

ТабличныйДокумент.ВерхнийКолонтитул.Выводить = Истина;
					ТабличныйДокумент.ВерхнийКолонтитул.ТекстСправа = "Лист [&НомерСтраницы] из [&СтраницВсего]";
					Обл=Макет.ПолучитьОбласть("R1C1:R1C8");  // вот тут почему то берётся только одна ячейка
					//Возможно потому что я использую Текущая область а как сделать по другому хз
					Обл.ТекущаяОбласть.ГраницаСверху=Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,3);
					Обл.ТекущаяОбласть.Текст = "Продолжение на след. стр.";
					ТабличныйДокумент.Вывести(Обл);
					ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц(); 
					ТабличныйДокумент.Вывести(ОбластьШапкаТаблицы);

Показать

НужнаяМнеОбластьДляТекста = ТабличныйДокумент.Область("R1C8"); (хотелось бы не просто С8 - а узнать последнюю колонку таблицы)
НужнаяМнеОбластьДляТекста.Текст = "Страница адынь из Дуа" - Вернет ошибку поле для записи недоступно

Найденные решения

2. zoeh 31 18.05.23 09:32 Сейчас в теме

а чёто как легко
ТабличныйДокумент.Область("R1C8").Текст="АДЫНЬ";

а как узнать последнюю column?

3. zoeh 31 18.05.23 09:36 Сейчас в теме

ТабличныйДокумент.Область("R"+ТабличныйДокумент.ВысотаТаблицы+"C"+ТабличныйДокумент.ШиринаТаблицы).Текст="Лист 1 из 2";

4. zoeh 31 18.05.23 10:40 Сейчас в теме

Для Счетчик = 0 По СписокДокументов.Количество() - 1 Цикл
// Выводим обороты
ОбластьОбороты.Параметры.Заполнить(СписокДокументов[Счетчик]);
ОбластьОбороты.Параметры.Заполнить(СписокДокументовК[Счетчик]);
//Добавил
Если Счетчик=10 Тогда
//ТабличныйДокумент.ВерхнийКолонтитул.Выводить = Истина;
//ТабличныйДокумент.ВерхнийКолонтитул.ТекстСправа = "Лист 1 из 2";
ТабличныйДокумент.Область("R"+ТабличныйДокумент.Области.Заголовок.Верх+"C"+ТабличныйДокумент.ШиринаТаблицы).Текст="Лист 1 из 2";

//ЭлементыФормы.ПолеТабличногоДокумента.НижнийКолонтитул.ТекстВЦентре = "[&НомерСтраницы] из [&СтраницВсего]";
Обл=Макет.ПолучитьОбласть("R1C1:R1C8");

//Обл.ТекущаяОбласть.ГраницаСверху=Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,3);
//Обл.ТекущаяОбласть.Текст = "Продолжение на след. стр.";
//ТабличныйДокумент.Вывести(Обл);
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабличныйДокумент.Вывести(Обл);
ТабличныйДокумент.Вывести(ОбластьШапкаТаблицы);
ВерхняяТочкаТаблицы=ТабличныйДокумент.Области.ШапкаТаблицы.Верх-1;
ТабличныйДокумент.Область("R"+ВерхняяТочкаТаблицы+"C"+ТабличныйДокумент.ШиринаТаблицы).Текст="Лист 2 из 2";
КонецЕсли;
//Добавил

ТабличныйДокумент.Вывести(ОбластьОбороты);
КонецЦикла;

Остальные ответы

В избранное Подписаться на ответы

Свернуть все

2. zoeh 31 18.05.23 09:32 Сейчас в теме

а чёто как легко
ТабличныйДокумент.Область("R1C8").Текст="АДЫНЬ";

а как узнать последнюю column?

5. nomad_irk 67 18.05.23 12:00 Сейчас в теме

(2)Как же много любителей извращений, просто диву даешься.....

ТабличныйДокумент.Область(1, 8).Текст = "АДЫНЬ"

6. zoeh 31 18.05.23 12:57 Сейчас в теме

(5)можно еще "АДЫНЬ из ДЬвухъ"

3. zoeh 31 18.05.23 09:36 Сейчас в теме

7. nomad_irk 67 18.05.23 13:41 Сейчас в теме

(3)что будет если вдруг окажется, что ТабличныйДокумент.ВысотаТаблицы/ТабличныйДокумент.ШиринаТаблицы будет >= 1000?

8. zoeh 31 18.05.23 13:44 Сейчас в теме

(7)шанс 0,0001% что это будет.

4. zoeh 31 18.05.23 10:40 Сейчас в теме

9. zoeh 31 18.05.23 13:45 Сейчас в теме

ВерхняяТочкаТаблицы=ТабличныйДокумент.Области.ШапкаТаблицы.Верх-1;
ТабличныйДокумент.Область("R"+ВерхняяТочкаТаблицы+"C"+ТабличныйДокумент.ШиринаТаблицы).Текст="Лист 2 из 2";

10. zoeh 31 18.05.23 13:45 Сейчас в теме

ТабличныйДокумент.Область("R"+ТабличныйДокумент.Области.Заголовок.Верх+"C"+ТабличныйДокумент.ШиринаТаблицы).Текст="Лист 1 из 2";

Оставьте свое сообщение

E-mail:

Вакансии

1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 100 000 руб.
Временный (на проект)

Разработчик 1С
Москва
зарплата от 150 000 руб.
Полный день

Программист
Санкт-Петербург
зарплата от 180 000 руб. до 240 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 150 000 руб. до 250 000 руб.
Полный день