просмотр%печать » Поиск

Результаты по ключевому слову: просмотр%печать

Отображение PDF файлов в 1С используя ActiveX Adobe PDF Reader

Часто при разработке какого-либо функционала в 1С мы делаем прикрепление файлов pdf.
Итак, Первым делом идет Выбор файла, далее нужно быстро просмотреть приложенный файл.
Для решения используются следующие варианты:
файл Выбирается по кнопке Выбор файла и помещается в Реквизит с типом Хранилище Значений

Код 1C v 8.х

 Процедура КнопкаВыбратьСканНажатие(Элемент)

	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	Диалог.Заголовок = "Выберите файл";

	Диалог.ПолноеИмяФайла = ""; 

	Фильтр = "Все файлы (*.*)|*.*";

	Диалог.Фильтр = Фильтр; 

	Если Диалог.Выбрать() Тогда

		Попытка

			ПутьКВнешнемуФайлу = Диалог.ПолноеИмяФайла;

			СканФайл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ПутьКВнешнемуФайлу));

			СканНазвание = СтрЗаменить(Диалог.ПолноеИмяФайла, Диалог.Каталог,"");

		Исключение

			СканНазвание = "ОШИБКА!";

			Сообщить(ОписаниеОшибки());

		КонецПопытки; 		

	КонецЕсли;  

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

Для открытия используем:
1. Открытие файла в программе Adobe Acrobat Reader
для этого используйте код:

Код 1C v 8.х

 Процедура ОсновныеДействияФормыПечатьСканВорд(Кнопка)

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

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

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

			ДвоичныеДанные.Записать(ИмяФайла);

			ЗапуститьПриложение(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

2. Добавляем на форму элемент ActiveX Adobe PDF Reader
для этого используйте код:

Код 1C v 8.х

 Процедура ОсновныеДействияФормыПечатьСканВорд(Кнопка)

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

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

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

			ДвоичныеДанные.Записать(ИмяФайла);

			// Вывод в элемент ActiveX Adobe PDF Reader

			ЭлементыФормы.PDFСканДоговор.LoadFile(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

Вот так это выглядит:
title

Категория: OLE, ActiveX

Редактирование макетов печатных форм в УТ 11

В конфигурации 1C 8.2. УТ 11 все печатные формы по умолчанию доступны только на просмотр. В дополнение, Управление УТ 11 переписана на управляемых формах и метод редактирования печатных форм отличается от "Бухгалтерия 2.0" и других стандартных конфигураций 1C 8.2.

Проблему редактирования текста в документе перед печатью решается следующим образом:
Заходим в раздел "Администрирование" в пользовательском режиме
Печатные формы, отчеты и обработки. Выбираем пункт меню "Макеты печатных форм".
В открывшемся списке ищем нужную нам печатную форму. Все печатные формы сгруппированы по документам, к которым они относятся. Если не находим нужную форму у выбранного документа, смотрим внизу списка "Общие макеты".
Выбрав нужный макет позиционируемся на нем и нажимаем сверху на командной панели кнопку "Редактировать".
Откроется непосредственно макет печатной формы.
Выделяем полностью его (Ctrl+A, либо стандартными средствами как в Excel).
Жмем на поле правой кнопкой мыши, откроется контекстное меню. В нем выбираем пункт "Свойства".
В открывшемся окне свойств снимаем флаг "Защита". После этого закрываем макет формы.
Система предложит сохранить изменения, Нажимаем "ОК".
После выполненных действий в таблице макетов у выбранного макета появится галка "Есть пользовательский макет".

Категория: 1С Управление торговлей 10.3

Горячие клавиши 1С Разработчику [ Конфигуратор ] Категория: 1С Общие вопросы - Обычные формы

Установка модуля печати двухмерного штрих-кода PDF417 в 1С Категория: 1С Общие вопросы - Обычные формы

Универсальное использование HTML Редактора Категория: Полезные, Универсальные Функции

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Оптимальным решением является установка Bullzip PDF Printer . После установки в системе появляется виртуальный принтер, с помощью которого можно "печатать" в файл pdf из любого приложения. Программа бесплатная, работает в терминале и имеет поддержку русского языка.
После установки, можно печатать напрямую используя код:

Код 1C v 8.х

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

КонецПопытки;

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

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

Код 1C v 8.х

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2&#8243;»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

КонецФункции

Печать в PDF используя bioPDF

Категория: Администрирование