Версия для печати темы (https://pro1c.org.ua/index.php?s=9f76f84b7979838d65d1b442854254a3&showtopic=42446)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Пакетная печать pdf-файлов в фоне Adobe Reader

Автор: prazdnik4334 06.12.17, 9:51

1С:ERP Управление предприятием 2 для Украины Разработка конфигурации: "ABBYY Ukraine", 2015-2016 (2.1.1.50) (http://1c.ua/v8/RegionalSolutions_UA_ERP.php)
Copyright © ДП "Еврософтпром", 2004-2016. Все права защищены (http://www.1c.ua).

Доброго времени суток долго искал на просторах СНГ пример пакетной печати файлов, нашёл в Европе, привожу пример эскиза, может кому-пригодится.

Процедура ПечатьAdobePDF()

    Принтер = "HP LaserJet M1530 MFP Series PCL 6";
    //Принтер = "Adobe PDF";
    
    Попытка
        апп = Новый COMОбъект("AcroExch.App");
        док = Новый COMОбъект("AcroExch.PDDoc");
    Исключение
        Сообщить("ошибка");
        Возврат;
    КонецПопытки;
    
    апп.Hide(); //скрыть приложение
    док.Open("d:\2.pdf");
    дс = док.GetJSOBject();
    пп = дс.GetPrintParams(); //параметры печати
    пп.interactive = пп.constants.interactionLevel.silent; //печать без прогрессора
    пп.printerName = Принтер;
    пп.pageHandling = пп.constants.handling.shrink; //по ширине страницы
    //пп.pageHandling = пп.constants.handling.fit;
    пп.numCopies = 3; //количество копий
    //пп.firstPage = 0;
    //пп.lastPage = дс.numPages-1;
    //пп.tileScale = 1;
    дс.print(пп); //сама печать
    
    док.Close();
    док = Неопределено;
    апп.Exit();
    апп = Неопределено;

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


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

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua