Имя: Пароль:
1C
1С v8
Как удалить разделитель страниц?
,
0 Ivan_495
 
13.06.17
13:45
Как удалить разделитель страниц?
Документ.ВывестиГоризонтальныйРазделительСтраниц()
**********
*********
*******
Удалить??
1 Волшебник
 
модератор
13.06.17
13:45
не выводи его
2 Ivan_495
 
13.06.17
13:47
куча корявого кода, понять что последняя страница не возможно, но убрать разделитель перед последней страницей нужно
3 Lexey_
 
13.06.17
13:47
(0) ОбластьЯчеекТабличногоДокумента (SpreadsheetDocumentRange)
КонецСтраницы (PageBottom)
Использование:

Чтение и запись.
Описание:

Тип: Булево.
Признак того, что данная область находится последней на странице.
Истина - область является последней.
4 Ivan_495
 
13.06.17
13:54
(3) это ничего не дает,
мне нужно удалитьобласть() с выведенным разеделителем

Пока тт=истина цикл

Документ.ВывестиГоризонтальныйРазделительСтраниц()
**********
*********
*******
КонецЦикла

УдалитьОбласть с разделителем
5 Lexey_
 
13.06.17
13:58
(4) даёт, "ОбластьЯчеекТабличногоДокумента.КонецСтраницы = Ложь" - удаляет разделитель
6 Ivan_495
 
13.06.17
14:43
ДокументРезультат.Область(1,1,1,1).КонецСтраницы    {(1)}: Поле объекта недоступно для чтения (КонецСтраницы)
7 Lexey_
 
13.06.17
14:45
(6) Примечание:
Применимо только для областей строк/колонок.
8 Ivan_495
 
13.06.17
15:04
подскажите как написать правильно
ОбластьПодвалОтчет.Область().КонецСтраницы=Ложь
9 Lexey_
 
13.06.17
15:09
(8) ОбластьПодвалОтчет.Область(1,,1).КонецСтраницы=Ложь
10 Ivan_495
 
13.06.17
15:20
(9) сделал
значение ОбластьПодвалОтчет.Область(1,,1).КонецСтраницы итак ложь
разделитель не убрался
11 Lexey_
 
13.06.17
15:22
(10) значит, область не та, вот рабочий код, разбирайся:
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.Область(1,1).Текст = "1";
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабДокумент.Область(2,1).Текст = "2";
Сообщить(ТабДокумент.КоличествоСтраниц());

Для Сч = 1 По ТабДокумент.ВысотаТаблицы Цикл
    ОбластьЯчеек = ТабДокумент.Область(Сч,,Сч);
    Если ОбластьЯчеек.КонецСтраницы Тогда
        ОбластьЯчеек.КонецСтраницы = Ложь;
    КонецЕсли;
КонецЦикла;

Сообщить(ТабДокумент.КоличествоСтраниц());
12 Ivan_495
 
13.06.17
15:32
(11) списибо
вот так взлетело
             ДокументРезультат.Область(ДокументРезультат.ВысотаТаблицы,,ДокументРезультат.ВысотаТаблицы).КонецСтраницы=ЛОЖЬ;
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn