необходимо вывести табличную часть на одну страницу. при малом количестве строк - всё нормально, но вот если строк много...как можно сделать, чтоб масштаб уменьшался?

даже не знаю, что предложить...

Думаю, надо курить ПроверитьВывод() и МасштабПечати.

разместить на 1 страницу

в настройках принтера. Нафига тут еще кодить.

(4) в настройках принтера надо постоянно указывать определённый масштаб, в то время как размер документа каждый раз меняется

Масштаб - по ширине листа.

(6) )))

(2)

что даст ПроверитьВывод() ?

(9) В СП есть полное описание, скопипастить?))

(10) там же идёт только проверка, если Ложь, тогда не выведется,
а мне надо чтоб выводилось в этом случае, подогнав масштаб под страницу

(11) Проверить, уменьшить масштаб, проверить, уменьшить масштаб и т.д. Не?

(12) хм...что-то похоже на правду...
получается, это в конце проверять надо?

(13) Не, это надо проверять в процедуре ПриНачалеРаботыСистемы() :)

(14)не, серьёзно, где?

(15) Ну перед тем, как показать ТабДокумент пользователю...

(15)ааа...понятно теперь.
вот вопрос ещё - как 2 РКО на одну страницу вывести? можно ли 2 раза в макете отобразить области, или через цикл?

(15) Если типовая, то лучше в общей форме печати документов - в функции печати документа - ничего не даст.

(17) Выведи первую, потом также выведи вторую в этот же ТабДокумент.

(19) а код примерно подскажешь?

(20) Конечно! Что мне, жалко что ли))

ТабДокумент = Новый ТабличныйДокумент;

//Выводим печатную форму 1

//Выводим печатную форму 2

ТабДокумент.Показать();

(24) Печатная форма одна и та же

(22) тогда только так

ТабДокумент = Новый ТабличныйДокумент;

//Выводим печатную форму


//Выводим печатную форму


ТабДокумент.Показать();

(23) Черт, опередил!!!))

(23)
просто счётчик поставлю и всё?)))

(25) Нет, придется два счетчика ставить: для холодной воды и для горячей воды...

(26)остряк!)))

(27) А чо я? Я ни чо... :)

(27) если как в (23) нужно просто скопипастить кусок текста, два нажатия мышкой. А если вы начнете счетчики устанавливать, какие-то куски программы дописывать-переписывать, оно вам надо? Эти счетчики?

(29) а если после каждой области
ТабДокумент.Вывести(ОбластьМакета);
тогда как сделать?
ТабДокумент.Вывести("макет"); -так?

почему, пишите

ТабДокумент.Вывести(ОбластьМакета);

(30) Чо?)

(31), (32) в макете есть несколько областей. и каждая область выводится
ТабДокумент.Вывести(ОбластьМакета);
если так писать 2 раза , то понятно что получится - будет задваиваться документ с областями. а надо 2 отдельных документа
можно как-нибудь сразу всё вывести целиком?

(33) Тебе же сказали - нет. Читай (23).

(34)получается, что

       ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

нужно продублировать после каждой ТабДокумент.Вывести(ОбластьМакета);
строку ТабДокумент.Вывести(ОбластьМакета); ?
правильно я понимаю?

(35) Ну ладно, пожую за тебя, расти лентяем:

   ТабДокумент = Новый ТабличныйДокумент;

   //Выводим печатную форму
   ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);


   //Выводим печатную форму
   ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ТабДокумент.Вывести(ОбластьМакета);

   ТабДокумент.Показать();


Ну что, похоже на (23)?))

(36) слишком большой код получится)))

лучше тогда цикл)))

(38) Ну тогда читай (26) :))

(38) зато цикл по времени в 2 раза дольше будет выполняться. Юзер заснет за экраном с этим циклом.

(12) по уменьшению масштаба...

Сч = 1;
Если Не ТабДокумент.ПроверитьВывод(ОбластьМакета) Тогда
       
       ТабДокумент.МасштабПечати=100-10*Сч;
       //Сообщить ("Документ не умещается на страницу!");
       Сч = Сч +1;    
   КонецЕсли;

делаю так, но в одну страницу всё равно не умещается...остаётся пару строчек на второй странице
и текст то не очень большой...

(41) Цикл используй. В твоем варианте минимальный масштаб 90%...

(41) подскажешь как?

(43) Вот ты мне скажи, тебе что самому не интересно разобраться? Ведь тут даже синтаксис 1С знать не надо - чистая логика...

ТекущийМасштаб = 100;
Пока ТекущийМасштаб > 50 Цикл
   Если ТабДокумент.ПроверитьВывод(ОбластьМакета) Тогда
       Прервать;
   Иначе
       ТекущийМасштаб = ТекущийМасштаб - 5;
       ТабДокумент.МасштабПечати = ТекущийМасштаб;
   КонецЕсли;
КонецЦикла;

интересно, но меня постоянно отвлекают и не дают сконцентрироваться...

странно, но почему-то всё равно выходит 2 страницы...может, убрать автоформат по ширине страницы?

(46) Само-собой!))

+(44) Наверное, красивее будет так:

ТабДокумент.МасштабПечати = 100;
Пока ТабДокумент.МасштабПечати > 50 Цикл
   Если ТабДокумент.ПроверитьВывод(ОбластьМакета) Тогда
       Прервать;
   Иначе
       ТабДокумент.МасштабПечати = ТабДокумент.МасштабПечати - 5;
   КонецЕсли;
КонецЦикла;

делаю настройки при печати (ставлю 85%), но каждый раз автоматом выходит на значении 95%...

(49) Чо?)
Кстати, у тебя ТабДокумент.АвтоМасштаб равно ЛОЖЬ?

(50)да, так стоит