Имя: Пароль:
1C
1С v8
Не работает автомасштаб табличного документа
0 SherifSP
 
24.05.13
14:20
Выставил автомасштаб, но табдок все равно выводится на 2 листа, может что упустил?

Функция  ПечатьНачисленияАмортизации()
   
   ТабДокумент = Новый ТабличныйДокумент;
   
   Макет = ПолучитьМакет("Начисление");
   
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");    
   ОбластьМакета.Параметры.НачалоПериода = Формат(ДатаС,"ДФ=dd.MM.yyyy");
   ОбластьМакета.Параметры.КонецПериода = Формат(ДатаПо,"ДФ=dd.MM.yyyy");
   ТабДокумент.Вывести(ОбластьМакета);
   
   ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТЧ");
   _Пробег = 0;
   _Цена = 0;
   _Сумма = 0;
   Для Каждого СтрокаАмортизации Из Амортизация Цикл
       ОбластьМакета.Параметры.Водитель = СтрокаАмортизации.Водитель;
       ОбластьМакета.Параметры.ТС = СтрокаАмортизации.ТС;
       ОбластьМакета.Параметры.Пробег = СтрокаАмортизации.Пробег;
       ОбластьМакета.Параметры.Цена = СтрокаАмортизации.Цена;
       ОбластьМакета.Параметры.Сумма = СтрокаАмортизации.Сумма;
       _Пробег = _Пробег + СтрокаАмортизации.Пробег;
       _Цена = _Цена + СтрокаАмортизации.Цена;
       _Сумма = _Сумма + СтрокаАмортизации.Сумма;
       ТабДокумент.Вывести(ОбластьМакета);
   КонецЦикла;
   
   ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
   ОбластьМакета.Параметры.ИтогПробег = _Пробег;
   ОбластьМакета.Параметры.ИтогЦена = _Цена;
   ОбластьМакета.Параметры.ИтогСумма = _Сумма;
   ТабДокумент.Вывести(ОбластьМакета);
   
   Возврат ТабДокумент;
   
КонецФункции
1 SherifSP
 
24.05.13
14:20
+(0) УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект), Ссылка);
2 SherifSP
 
24.05.13
14:21
(1) В этой процедуре таб документу присваивается автомасштаб