7.7.: Групповая печать документов. Даже без ВПФ.

14.03.11

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

Отбираем кучу документов и запускаем на печать.

Скачать файлы

Наименование Файл Версия Размер
ГрупПечДокСвыбПринтИеще.ert
.ert 782,50Kb
1157
.ert 782,50Kb 1157 Скачать

Поиск на Инфостарте выдал несколько обработок групповой печати документов. Как правило, при этом используются внешние печатные формы. Мне же (и не только мне, это социальный заказ) хотелось, чтобы имитировалось нажатие кнопки "Печать" в каждом из документов, отобранных для печати. В двух вариантах: вывод "внутренней" печатной формы на экран и прямо на принтер.

Для отбора документов взял кусок из стандартной Обработки документов. В отобранном перечне документ можно просмотреть (двойной клик в списке) и снять/поставить пометку для вывода. 

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

Теперь (с 02.12.2010) делается еще одна попытка: ищется "ПоКнопкеПечать()", а уж если и такой процедуры нет - ну, не судьба :(. 

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

02.12.2010 (Частично) отработал замечания Ёпрст'а

03.12.2010  Внимание! Если у документа есть несколько ВПФ, "прикрученных" стандартным способом, действовать нужно так: 
1. Открыть документ (любой требуемого вида)
2. Выбрать требуемую печатную форму (кнопка выбора обычно чуть левее кнопки Печать)
3. Закрыть документ
4. Запустить обработку.
5. Отобрать документы.
6. Распечатать их.
Или, лучше: 
1. Запустить обработку.
2. Отобрать документы.
3. Открыть один из них двойным кликом на списке
4. Выбрать требуемую печ. форму
5. Закрыть документ
6. Распечатать документы.


 06.12.2010 Добавлен выбор принтера для групповой печати.

07.12.2010 Выяснил, что похожий функционал уже публиковался:

//infostart.ru/public/78036/

Добавил борьбу с некоторыми траблами (см. скрин).

16.12.2010 Добавил выбор количества копий для печати. 

См. также

Групповая печать актов сверки в УСН 1.3

Пакетная печать Взаиморасчеты Акт сверки Платформа 1С v7.7 1С:Упрощенное налогообложение 7.7 Россия Бухгалтерский учет Абонемент ($m)

Групповая печать актов сверки по списку клиентов. Формирует две формы на выбор: управленческий акт(простая форма) и фискальный акт (с детализацией по операциям).

1 стартмани

20.01.2023    2020    0    Dedushka    0    

1

АИС: Проверка и пакетная печать кодов маркировки из 1С 7.7 для всех групп товаров (ТАБАКА, ОБУВИ, ЛЕКАРСТВ, МЕХА, ШИН, ОДЕЖДЫ и пр.)

Пакетная печать Этикетки, ценники Платформа 1С v7.7 Конфигурации 1cv7 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Легкая промышленность, мода и одежда Россия Управленческий учет Платные (руб)

С помощью обработки 1С 7.7 можно коды маркировки вводить вручную или загружать файлы в формате csv и печатать либо на ленту (принтер этикеток) либо на лист (офисный принтер). Есть возможность создать разные шаблоны этикеток с настраиваемым выводом текста и логотипа, с указанием числа рядов и столбцов при печати этикеток на офисный принтер. Имеется проверка штрихкодов на соответствие форматам согласно документа "Протокол информационного обмена (ОФД). Поддерживаются форматы всех товарных групп, подлежащих маркировке или участвующих в эксперименте (алкоголь, изделия из меха, табак, обувь, лекарства, текстиль, шины и т.д.) Выделение из ШК идентификаторов применения (AI) и их показ. Расшифровка максимальной розничной цены (МРЦ) из Datamatrix табака.

2400 руб.

12.03.2020    19710    15    4    

19

Групповая печать расходных накладных для 1С: 7.7 (Украина)

Пакетная печать Платформа 1С v7.7 Конфигурации 1cv7 Украина Абонемент ($m)

Групповая печать расходных накладных 1С: 7.7, легко и просто.

1 стартмани

07.09.2017    14181    1    Djyri25    0    

0

Пакетная печать документов из конфигурации Бухгалтерский учет 7.7 (ред.4.5)

Пакетная печать Печатные формы Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Абонемент ($m)

Внешняя обработка пакетной печати документов из конфигурации Бухгалтерский учет 7.7 ред. 4.5, а также Подрядчик строительства 7.7 ред. 2.3 Для пользователей, вынужденных производить массовую печать документов за период. Внесены изменения в печать счет-фактуры согласно 625 постановлению (№ госконтракта). Внесены изменения в печать счет-фактуры и УПД согласно 981 постановлению.

1 стартмани

23.11.2016    17335    27    SanchoD    4    

5

Групповая обработка и печать документов + множественный фильтр для отбора.

Пакетная печать Платформа 1С v7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Аналог стандартной обработки "Групповая обработка документов". Добавлена возможность отбора не только по элементам, но и по группам(ТМЦ, Покупатели и тд) Добавлен Множественный фильтр для отбора документов.

1 стартмани

08.07.2016    16337    14    SOLTAN    1    

4

Групповая печать документов

Пакетная печать Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Абонемент ($m)

Простая внешняя обработка позволяет печатать наиболее часто используемые документы: Счет фактура, Отгрузка товаров (реализация), Счет выданный, ПКО, РКО из выбранного вами списка документов.

1 стартмани

08.12.2014    20015    21    BorisBelov    2    

1
Вознаграждение за ответ
Показать полностью
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
100. VolodinaOlga 10 13.10.16 10:15 Сейчас в теме
Очень пригодилась! Спасибо огромное!!!
101. user618551_vladkate 13.10.16 12:38 Сейчас в теме
102. CheBurator 3119 13.10.16 18:55 Сейчас в теме
есть три варианта
- Арчибальд
- Хряк
- Епрст

пробовал-юзал все три.

больше весго приглянулась от Епрст
103. GSoft 2235 25.01.18 18:16 Сейчас в теме
тема старая но все же

внес небольшие изменения если при печати документа формируется не одна а несколько печатных форм. В исходном варианте будет печататься только последняя открытая форма так как она будет активной.

Далее обновленный вариант процедуры напечатать
для совместимости оставил старый вариант если в зашитой внутри версии компоненте Formex нет еще метода СписокТаблиц()

//_____________________________________________________________________________
Процедура Напечатать()  
	//для инфы
        //Сообщить("===========ТАБЛИЦЫ=============");
	//СписокТаблиц = FormExСервис.СписокТаблиц();
	//Для Инд  =  1 По СписокТаблиц.РазмерСписка() Цикл
	//	ИмяТаблицы = "";
	//	Объект = СписокТаблиц.ПолучитьЗначение(Инд,ИмяТаблицы);	
	//	ИмяТаблицы = СтрЗаменить(ИмяТаблицы,"  *","");
	//	Сообщить("Имя таблицы - " + ИмяТаблицы);
	//КонецЦикла;
    //           
	//
	//Сообщить("===========ОКНА=============");
	//СписокВсехОткрытыхОкон = FormExСервис.СписокВсехОткрытыхОкон();
	//Для Инд  =  1 По СписокВсехОткрытыхОкон.РазмерСписка() Цикл
	//	ИмяОкна = "";
	//	Объект = СписокВсехОткрытыхОкон.ПолучитьЗначение(Инд,ИмяОкна);	
	//	//ИмяОкна = СтрЗаменить(ИмяОкна,"  *","");
	//	Сообщить(ИмяОкна);
	//КонецЦикла;
	
	                          
	//предусмотрим случай когда в документе по умолчанию формируются несколько печатных форм
	СписокТаблиц = FormExСервис.СписокТаблиц();
	
	Если ТипЗначенияСтр(СписокТаблиц) = "СписокЗначений" Тогда
		Для Инд  =  1 По СписокТаблиц.РазмерСписка() Цикл
			ИмяТаблицы = "";
			Activ = "";
			Activ = СписокТаблиц.ПолучитьЗначение(Инд,ИмяТаблицы);	
			//ИмяТаблицы = СтрЗаменить(ИмяТаблицы,"  *","");
			//Сообщить("Имя таблицы - " + ИмяТаблицы);    
			
			Если FormExСервис.ActiveContext(Activ) = 1 Тогда
				Если ТипЗначенияСтр(Activ) = "Таблица" Тогда
					Если ПустаяСтрока(ИмяПринтера) = 0 Тогда
						Activ.ПараметрыСтраницы(,,,,,,,,,,,ИмяПринтера);
					Иначе
						Activ.ПараметрыСтраницы(,,,,,,,,,,,1);
					КонецЕсли;
					
					Activ.КоличествоЭкземпляров(?(рдКопий = 0, 1, рдКопий));
					Activ.Напечатать(0);
					Activ.Показать("", "", -1);
				КонецЕсли;
			КонецЕсли;         
		КонецЦикла;
	Иначе
		Activ = "";
		
		Если FormExСервис.ActiveContext(Activ) = 1 Тогда
			Если ТипЗначенияСтр(Activ) = "Таблица" Тогда
				Если ПустаяСтрока(ИмяПринтера) = 0 Тогда
					Activ.ПараметрыСтраницы(,,,,,,,,,,,ИмяПринтера);
				Иначе
					Activ.ПараметрыСтраницы(,,,,,,,,,,,1);
				КонецЕсли;
				
				Activ.КоличествоЭкземпляров(?(рдКопий = 0, 1, рдКопий));
				Activ.Напечатать(0);
				Activ.Показать("", "", -1);
			КонецЕсли;
		КонецЕсли;         
	КонецЕсли;
КонецПроцедуры //Напечатать
Показать
Арчибальд; +1 Ответить
104. Арчибальд 2706 25.01.18 20:08 Сейчас в теме
(103)
тема старая но все же
Еще актуальна. Спасибо. У меня-то сейчас семерки нет.
105. GSoft 2235 26.01.18 00:38 Сейчас в теме
(104) еще как актуальная. Я вот поленился 20 документов пере открывать и печатать. И полез искать готовое. Еще полчаса на разбор и дописывавшие кода выше. И вуаля - лучше день потерять но потом за 5 минут долететь)))))

Саша. Кстати, не сталкивался с тем что почему не идет печать на сетевой принтер. На локальных все норм. В деталях правда еще не разбирался. Формекс используется последней версии с сайта Альфа а не тот который вит в обработку.

обработку немножко допилил под встройку в конфигурацию и вызов ее из журнала. Могу скинуть - выложишь в теме
106. Арчибальд 2706 26.01.18 16:21 Сейчас в теме
(105) Я в общем-то отошел от дел. Хочешь - выложи от себя.
Насчет сетевого принтера посмотри в обсуждении. Помнится, там противопоказаны длинные и русские имена.
108. GSoft 2235 30.01.18 15:05 Сейчас в теме
(106)
. Помнится, там противопоказаны длинные и русские имена.


а ты не помнишь ссылку на механизм упаковки компоненты внутрь обработки - будет время допилю и выложу с обновленным формексом
109. Арчибальд 2706 30.01.18 17:43 Сейчас в теме
(108) Не, не помню. Это к Ёпрсту
107. Nevermore 26.01.18 23:08 Сейчас в теме
Дд
Одна из лучших обработок для групповой печати.
В 1С 7.7 :)
Оставьте свое сообщение