На листе экселя есть картинки, надписи, таблицы в произвольной форме. Как это чудище с конвертировать в картинку. Нашел процедуру Функция Конвертировать(); ФайлПрограммы = НовыйФайл("C:\Program Files\Bullzip\PDF Printer\gs\gswin32c.exe"); Если Не ФайлПрограммы.Существует() Тогда ТекстСообщения = "Не установлена программа - Bullzip"; ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); Возврат ""; КонецЕсли; ИмяКартинки = "Проба"; ПринтерPDF.SetValue("output", "D:\" +ИмяКартинки + ".jpg"); ПринтерPDF.SetValue("ShowSaveAS", "never"); ПринтерPDF.SetValue("ShowProgress", "no"); ПринтерPDF.SetValue("ShowProgressFinished", "no"); ПринтерPDF.SetValue("ShowSettings", "never"); ПринтерPDF.SetValue("ShowPDF", "no"); ПринтерPDF.SetValue("ConfirmOverwrite","no"); ПринтерPDF.SetValue("Device","jpeg"); ПринтерPDF.WriteSettings(); НастройкиПечатиОриентация= 1;// 1 - портерт, 2 - ландшафт. НастройкиПечатиМасштаб= 100;// масштаб в процентах. НастройкиПечатиРазложитьПоКопиям = 1;// 0 - не разбирать по копиям, 1 - разобрать по копиям. НастройкиПечатиПолеЛев= 10; НастройкиПечатиПолеПрав= 10; НастройкиПечатиПолеВерх= 10; НастройкиПечатиПолеНиз= 10; НастройкиПечатиКолонтитулВерх= 0; НастройкиПечатиКолонтитулНиз= 0; НастройкиПечатиАвтомасштабПоШирине = 1;// 1 - включить, 0 - выключить. НастройкиПечатиЧерноБелаяПечать = 0;// 1 - включить, 0 - выключить. НастройкиПечатиИмяПринтера = "Bullzip PDF Printer";// Имя принтера в ОС Таб.ПараметрыСтраницы(НастройкиПечатиОриентация, НастройкиПечатиМасштаб, НастройкиПечатиРазложитьПоКопиям, НастройкиПечатиПолеЛев, НастройкиПечатиПолеПрав, НастройкиПечатиПолеВерх, НастройкиПечатиПолеНиз, НастройкиПечатиКолонтитулВерх, НастройкиПечатиКолонтитулНиз, НастройкиПечатиАвтомасштабПоШирине, НастройкиПечатиЧерноБелаяПечать, НастройкиПечатиИмяПринтера); Таб.КоличествоЭкземпляров(1); Таб.Напечатать(0); КонецФункции; Но есть вопрос? Как перетащить лист экселя в Таб? Нашел много способов и на этом форуме но перетаскиваются только текстовые данные, а мне нужно все. |