Печатная форма, управление масштабом

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

Программист Стажер

1. Гость 31.03.21 16:24

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

Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	Перем Ошибки;
		
	
	ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "СчетФактура");
	Если ПечатнаяФорма <> Неопределено Тогда

		ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
		ПечатнаяФорма.ТабличныйДокумент.КлючПараметровПечати = Обработки.ПечатьСчетФактура.КлючПараметровПечати(Ложь);
		ПечатнаяФорма.ПолныйПутьКМакету = Неопределено;
		ПечатнаяФорма.СинонимМакета = Обработки.ПечатьСчетФактура.ПредставлениеПФ(Ложь, Ложь);

		ТаблицаОписанияСчетовФактур = РазобратьДокументыНаСчетаФактуры(МассивОбъектов, Ложь);
		ЗаполнитьДанныеДокументов(ТаблицаОписанияСчетовФактур, ОбъектыПечати, Ложь, Ложь, Ошибки);

		ВывестиТабличныеДокументы(ПечатнаяФорма, ТаблицаОписанияСчетовФактур, ОбъектыПечати, Ложь);

	КонецЕсли;

	ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "УниверсальныйПередаточныйДокумент");
	
	Если ПечатнаяФорма <> Неопределено Тогда

		ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
		ПечатнаяФорма.ТабличныйДокумент.АвтоМасштаб = Истина;

		ПечатнаяФорма.ТабличныйДокумент.КлючПараметровПечати = Обработки.ПечатьСчетФактура.КлючПараметровПечати(Истина);
		ПечатнаяФорма.ПолныйПутьКМакету = Неопределено;
		ПечатнаяФорма.СинонимМакета = Обработки.ПечатьСчетФактура.ПредставлениеПФ(Истина, Ложь);

		ТаблицаОписанияСчетовФактур = РазобратьДокументыНаСчетаФактуры(МассивОбъектов, Истина);
		ЗаполнитьДанныеДокументов(ТаблицаОписанияСчетовФактур, ОбъектыПечати, Истина, Ложь, Ошибки);

		ВывестиТабличныеДокументы(ПечатнаяФорма, ТаблицаОписанияСчетовФактур, ОбъектыПечати, Истина);

	КонецЕсли;

	ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм,
		"УниверсальныйПередаточныйДокументФаксимиле");
	
	Если ПечатнаяФорма <> Неопределено Тогда
		
		ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
		ПечатнаяФорма.ТабличныйДокумент.АвтоМасштаб = Истина;
		Если 

		ПечатнаяФорма.ТабличныйДокумент.КлючПараметровПечати = Обработки.ПечатьСчетФактура.КлючПараметровПечати(Истина);
		ПечатнаяФорма.ПолныйПутьКМакету = Неопределено;
		ПечатнаяФорма.СинонимМакета = Обработки.ПечатьСчетФактура.ПредставлениеПФ(Истина, Истина);

		ТаблицаОписанияСчетовФактур = РазобратьДокументыНаСчетаФактуры(МассивОбъектов, Истина);
		ЗаполнитьДанныеДокументов(ТаблицаОписанияСчетовФактур, ОбъектыПечати, Истина, Истина, Ошибки);

		ВывестиТабличныеДокументы(ПечатнаяФорма, ТаблицаОписанияСчетовФактур, ОбъектыПечати, Истина);

	КонецЕсли;

	ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "СчетФактураПолученный");
	Если ПечатнаяФорма <> Неопределено Тогда

		ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
		ПечатнаяФорма.ТабличныйДокумент.КлючПараметровПечати = Обработки.ПечатьСчетФактура.КлючПараметровПечати(Ложь);
		ПечатнаяФорма.ПолныйПутьКМакету = Неопределено;
		ПечатнаяФорма.СинонимМакета = Обработки.ПечатьСчетФактура.ПредставлениеПФ(Ложь, Ложь);

		ТаблицаОписанияСчетовФактур = РазобратьДокументыНаСчетаФактуры(МассивОбъектов, Ложь, Истина);
		ЗаполнитьДанныеДокументов(ТаблицаОписанияСчетовФактур, ОбъектыПечати, Ложь, Ложь, Ошибки);

		ВывестиТабличныеДокументы(ПечатнаяФорма, ТаблицаОписанияСчетовФактур, ОбъектыПечати, Ложь);

	КонецЕсли;

	Если Ошибки <> Неопределено Тогда

		ОбщегоНазначенияКлиентСервер.СообщитьОшибкиПользователю(Ошибки);

	КонецЕсли;
	
	// параметры отправки печатных форм по электронной почте
	УправлениеНебольшойФирмойСервер.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, МассивОбъектов,
		КоллекцияПечатныхФорм);

КонецПроцедуры

Показать

Прикрепленные файлы:

По теме из базы знаний

Ответы

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

Свернуть все

2. DenisVol 3 31.03.21 16:29 Сейчас в теме

попробуйте

ТабДокумент.МасштабПечати  или ТабДокумент.АвтоМасштаб

3. DenisVol 3 31.03.21 16:31 Сейчас в теме

ТабличныйДокумент (SpreadsheetDocument)
МасштабПечати (PrintScale)
Использование:

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

Тип: Число.
Содержит масштаб изображения при выводе на печать в процентах.

Доступность:

Тонкий клиент, веб-клиент, мобильный клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер).
Примечание:

Имеет смысл, если свойство АвтоМасштаб имеет значение Ложь.
Если не задано, то значение свойства будет выбираться из настроек принтера, на котором осуществляется печать.

4. SlavaKron 31.03.21 18:01 Сейчас в теме

Если нужно чтобы печатная форма выводилась только на одну страницу, пропишите в конце процедуры Печать:

Для Каждого ПечатнаяФорма Из КоллекцияПечатныхФорм Цикл
	ПечатнаяФорма.ТабличныйДокумент.АвтоМасштаб = Ложь;
	ПечатнаяФорма.ТабличныйДокумент.МасштабПечати = 100;
	Пока ПечатнаяФорма.ТабличныйДокумент.КоличествоСтраниц() > МассивОбъектов.Количество() Цикл
		ПечатнаяФорма.ТабличныйДокумент.МасштабПечати = ПечатнаяФорма.ТабличныйДокумент.МасштабПечати * 0.95;
	КонецЦикла;
КонецЦикла;

Внимание! Не забывайте отмечать решение на ваш вопрос, если оно найдено. Это повысит ваш рейтинг на форуме.

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

E-mail: