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

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

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

ТабличныйДокумент.Вывести(ОбластьОбороты);
КонецЦикла;
+ – Ответить
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";
+ – Ответить
Оставьте свое сообщение
Вакансии
Программист 1С
Киров (Кировская обл.)
зарплата от 100 000 руб.
Полный день
Программист 1С
Санкт-Петербург
зарплата от 150 000 руб.
Полный день
Архитектор 1С
Москва
зарплата от 250 000 руб.
Полный день
1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Разработчик 1С
Москва
зарплата от 100 000 руб.
Временный (на проект)