8.х Двухсторонняя печать

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Amber, 15 авг 2008.

  1. TopicStarter Overlay
    Amber
    Offline

    Amber Опытный в 1С

    Регистрация:
    16 ноя 2007
    Сообщения:
    98
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте уважаемые гуру! Не подскажите как можно реализовать двухсторонюю печать(сам принтер такое позволяет). В частности когда я печатаю по одному документу то все нормально, а вот когда я вывожу на пакетную печать(создается и печатается сразу несколько документов то каждая сторона печатается на отдельном листе).

    Код:
    Процедура ПечатьКарт(НомерКарты)
    ОбработкаПрерыванияПользователя();
    Объект=Справочники.Карты.НайтиПоКоду(НомерКарты).ПолучитьОбъект();
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ПолеСверху=0;
    ТабДок.ПолеСлева=0;
    ТабДок.ПолеСнизу=0;
    ТабДок.ПолеСправа=0;
    Если  Объект.ВидКарты=Перечисления.ВидыКарт.КартаБали	тогда
    Макет=Справочники.Карты.ПолучитьМакет("Бали");
    КонецЕсли;
    Область = Макет.ПолучитьОбласть("R1C1:R23C4");
    Область1=Макет.ПолучитьОбласть("R25C1:R47C4");
    КомпонентШК = Новый COMОбъект("V8.Barcod.1");
    Область1.Рисунки.Штрихкод.Объект.Сообщение = Объект.ШтрихКод;	
    ТабДок.Вывести(Область);
    ТабДок.Вывести(Область1);
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Истина;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.ИмяПринтера="Smart Driver";
    ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Портрет;
    ТабДок.Напечатать();
    Сообщить("Карта № "+НомерКарты+ " отправлена на печать");
    КонецПроцедуры
    
    

Поделиться этой страницей