Массовая печать документов

17.12.16

Задачи пользователя - Пакетная печать

Печать или сохранение документов всех типов, у которых есть печатная форма.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Массовая печать любого вида
.epf 17,22Kb
5
5 Скачать (1 SM) Купить за 1 850 руб.

По просьбе бухгалтеров была написана эта обработка. Умеет печатать или сохранять печатные формы документов. Предлагает на выбор печать на принтер, вывод на экран или сохранение в указанный каталог, Есть возможность задать формат (PDF,DOCX,XLS,XLSX) в котором сохранить печатную форму. Обработка не притендует на универсальность, так как требует внесения изменений в конфигурацию.

// Общий модуль - Универсальные механизмы
//
Процедура НапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = "", НепосредственнаяПечать = Ложь, Ссылка = Неопределено, ИмяМакета = "") Экспорт

	Если ПечДокумент = Неопределено тогда
		Возврат;
	КонецЕсли;

	// Получить необходимое количество копий
	Если КоличествоЭкземпляров > 0 Тогда
		ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
	КонецЕсли;

	Если НЕ ПечДокумент.АвтоМасштаб
	   И НЕ ЗначениеЗаполнено(ПечДокумент.ИмяПринтера) Тогда
		ПечДокумент.АвтоМасштаб = Истина;
	КонецЕсли;

	Если ТипЗнч(НаПринтер) = Тип("Булево") Тогда
		Если НаПринтер Тогда
			ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
			ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
		Иначе
			ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
			ФормаПечати.Документ = Ссылка;
			ФормаПечати.Заголовок = Заголовок;
			ФормаПечати.ИмяМакета = ИмяМакета;
			ФормаПечати.ПечатныйДокумент = ПечДокумент;
			ФормаПечати.Открыть();

		КонецЕсли;
	ИначеЕсли ТипЗнч(НаПринтер) = Тип("СписокЗначений") Тогда		
		Каталог = НаПринтер.Получить(0).Значение;
		Формат = НаПринтер.Получить(1).Значение;
		ИмяФайла = НаПринтер.Получить(2).Значение;
		
		ПечДокумент.Записать(Каталог+ИмяФайла,Формат);
	ИначеЕсли ТипЗнч(НаПринтер) = Тип("Массив") Тогда
		ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
		ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
		
		НаПринтер.Добавить(ПечДокумент);
	ИначеЕсли ТипЗнч(НаПринтер.Значение) = Тип("Строка") Тогда	
		Если НаПринтер.Значение = "На экран (Предварительный просмотр)" тогда
			ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
			ФормаПечати.Документ = Ссылка;
			ФормаПечати.Заголовок = Заголовок;
			ФормаПечати.ИмяМакета = ИмяМакета;
			ФормаПечати.ПечатныйДокумент = ПечДокумент;
			ФормаПечати.Открыть();

		Иначе	
			ПечДокумент.Имяпринтера = СокрЛп(НаПринтер);
			ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
			ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
		КонецЕсли;	
	КонецЕсли;
	
	//Если НаПринтер Тогда

	//	ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);

	//Иначе

	//	// Отобразить печатный документ на экране
	//	//ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Новый УникальныйИдентификатор);
	//	ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
	//	ФормаПечати.Документ = Ссылка;
	//	ФормаПечати.Заголовок = Заголовок;
	//	ФормаПечати.ИмяМакета = ИмяМакета;
	//	ФормаПечати.ПечатныйДокумент = ПечДокумент;
	//	ФормаПечати.Открыть();

	//КонецЕсли;

КонецПроцедуры // НапечататьДокумент()

Проверял на работоспособнуть на платформе 8.2.19 и выше. Точно могу сказать на платформе 8.2.13 не работает так как нет поддержки PDF.

массовая печать

См. также

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

22200 руб.

06.10.2023    17660    48    15    

79

Пакетная печать Банковские операции Кассовые операции Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Обработка для групповой печати чеков ККМ с настройкой, загруженных из банковской выписки. На основании документа Поступление на расчетный счет!

4800 руб.

21.08.2019    20607    77    11    

25

Пакетная печать Оптовая торговля Логистика, склад и ТМЦ Бухгалтер Платформа 1С v8.3 Бухгалтерский учет Управляемые формы 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Обработка формирует документы реализации товаров и счет на оплату покупателю по заданному списку контрагентов Обработка совместима с платформой 1С 8.3 и конфигурацией "Бухгалтерия предприятия редакций" 3.0. (релизы 3.0.64.21-3.0.168.19).

8400 руб.

23.03.2020    16175    2    0    

4

Пакетная печать Взаиморасчеты Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение "Автомат реализаций с графиком начислений и контролем оплаты счетов" предназначено для массовой генерации и печати документов реализации (счета, акт, счета-фактуры, упд) по договорам контрагентов в конфигурации 1С:Бухгалтерия 3.0. В случае УСН выписываются счета, акты, упд и если есть НДС, то счета-фактуры. Расширение используется если организация предоставляет регулярные услуги и выставляет фиксированные суммы за каждый месяц (например, договора аренды)

4800 руб.

19.02.2020    12795    4    2    

4

Пакетная печать Печатные формы Программист Пользователь Руководитель проекта 1С:Управление торговлей 10 Абонемент ($m)

Внешние печатные формы УПД, УКД (Универсальный передаточный/корректировочный документ) в редакции по постановлению №1096 начиная с 2024.10.01, поддерживающая вывод данных прослеживаемости для УТ 10.3

1 стартмани

30.09.2024    7646    625    zhuravlev_as    51    

6

Пакетная печать Печатные формы Системный администратор Программист Бухгалтер Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Бухгалтерский учет Налоговый учет Абонемент ($m)

Внешние печатные формы УПД (Универсальный передаточный документ), Счет-фактура (+ корректировочный) (+ "в валюте") в редакции постановления Правительства РФ №1096 от 01.10.2024 для 1С 8 Управление торговлей 11.5, Комплексная автоматизация, Управление предприятием ERP 2.5 для документов вида "Реализация товаров и услуг", "Счет-фактура (выданный)". С данными прослеживаемости.

1 стартмани

27.09.2024    4234    407    zhuravlev_as    33    

8

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    4333    73    progmaster    10    

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