//Есть файл екселя. На нем пользователь размещает картинки, схемы, надписи и т.д. в произвольном порядке как ему захочется. Как это все убожество перевести в картинку.
Как конвертировать в PDF знаю.
НовыйПринтер = "Bullzip PDF Printer (Ne05:)";
ИмяФайла = "D:\A\List_1";
xlsФайл = ИмяФайла+".xls";
JPGФайл = ИмяФайла+".PDF";
Эксель = Новый COMОбъект("Excel.Application");
Эксель.DisplayAlerts = False;
Книга = Эксель.WorkBooks.Open(xlsФайл);
Книга = Эксель.ActiveWorkbook;
Лист = Книга.WorkSheets(1);
Лист.PageSetup.Zoom = False;
Лист.PageSetup.FitToPagesWide = 1; // По ширине листа
Лист.PageSetup.FitToPagesTall = False;
Лист.PageSetup.Orientation = 1; // xlPortrait
Эксель.Visible = True;
СтарыйПринтер = Эксель.ActivePrinter;
Сообщить("Старый - " + Эксель.ActivePrinter);
Эксель.ActivePrinter = НовыйПринтер;
Сообщить("Новый - " + Эксель.ActivePrinter);
Попытка
ПДФПринтер = Новый ComObject("Bullzip.PDFPrinterSettings");
ПДФПринтер.SetValue("output", JPGФайл);
ПДФПринтер.SetValue("ShowSaveAS", "never");
ПДФПринтер.SetValue("ShowProgress", "no");
ПДФПринтер.SetValue("ShowProgressFinished", "no");
ПДФПринтер.SetValue("ShowSettings", "never");
ПДФПринтер.SetValue("ShowPDF", "no");
ПДФПринтер.SetValue("ConfirmOverwrite","no");
ПДФПринтер.WriteSettings();
Эксель.ActivePrinter = НовыйПринтер;
Эксель.Worksheets.PrintOut();
Исключение
Сообщить(ОписаниеОшибки());
Сообщить("Скорее всего необходимо установить или переустановить ""Bullzip PDF Printer");
КонецПопытки;
Эксель.ActivePrinter = СтарыйПринтер;
Сообщить("Новый -Старый - " + Эксель.ActivePrinter);
Эксель.Quit();
Но как только ставлю JPGФайл = ИмяФайла+".JPG"; При открытии файла пишет "Файл поврежден или большого размера". Как это побороть?
