Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 140991
29.07.2008, 16:19
0.00 руб.
0 2 1
ДРУГОЕ / РАЗНОЕ
Уважаемые эксперты, прошу помочь, Упр.Торговлей 8.1, макет накладной РеализацияТоваровУслуг, как можно сделать, чтоб распечатать на одной страничке несколько накладных, допустим 4, ИмяМакета, КоличествоЭкземпляров, необходимо еще какое то условие? "КоличествоЭкземпляров=4 ", так понимаю не идет, а как можно программно?

Обсуждение

Неизвестный
30.07.2008, 13:36
общий
это ответ
Здравствуйте, Provnick!
ТабличныйДокумент (SpreadsheetDocument)
ЭкземпляровНаСтранице (PerPage)
Использование:
Чтение и запись.
Описание:
Тип: Число. Содержит количество страниц на листе при выводе табличного документа на печать. Допустимые значения: 1 - одна страница, 2 - две страницы, 0 - автоматическое определение.
Сериализуется.
Неизвестный
31.07.2008, 11:57
общий
//**********В синтаксисе вижу, а как применить?*****************
// Процедура осуществляет печать документа. Можно направить печать на
// экран или принтер, а также распечатать необходмое количество копий.
//
// Название макета печати передается в качестве параметра,
// по переданному названию находим имя макета в соответствии.
//
// Параметры:
// НазваниеМакета - строка, название макета.
//
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт

Если ЭтоНовый() Тогда
Предупреждение("Документ можно распечатать только после его записи");
Возврат;
ИначеЕсли Не УправлениеПользователями.РазрешитьПечатьНепроведенныхДокументов(Проведен) Тогда
Предупреждение("Недостаточно полномочий для печати непроведенного документа!");
Возврат;
КонецЕсли;

Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
Возврат;
КонецЕсли;

Если ИмяМакета = "Чек" Тогда
Если НЕ ЗначениеЗаполнено(Организация) Тогда
Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда
НачалоСообщенияОбОшибке = "Не выбрана касса ККМ."
Иначе
НачалоСообщенияОбОшибке = "У выбранной кассы ККМ не задана организация.";
КонецЕсли;

Предупреждение(НачалоСообщенияОбОшибке + Символы.ПС + "Печать чека невозможна.");
Возврат;
КонецЕсли;

// Получить экземпляр документа на печать.
ТабДокумент = ПечатьЧека();
ИначеЕсли ИмяМакета = "СерийныеНомера" Тогда
ТабДокумент = УчетСерийныхНомеров.ПечатьСерийныхНомеров(Ссылка, "Товары");
ИначеЕсли ИмяМакета = "РасходСРозничныхСкладовВЦенахАТТ" Тогда
ТабДокумент = ЗаполнениеДокументов.НапечататьПриходРасходСРозничныхСкладовВЦенахАТТ(Ссылка, мВалютаРегламентированногоУчета, Ложь);

ИначеЕсли ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда

ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

Если ТабДокумент = Неопределено Тогда

Возврат;

КонецЕсли;

КонецЕсли;

УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ЭтотОбъект.Метаданные().Представление()), Ссылка);

КонецПроцедуры // Печать()
Форма ответа