Function ExcelToPDF(file) //file - полный путь файла .xls созданный средствами 1с
Попытка
Excel = new COMObject("Excel.Application");
Исключение
Сообщить("Не удалось преобразовать в pdf!!!");
file="";
КонецПопытки;
Попытка
Excel.Workbooks.Open(file);
Excel.ActiveSheet.PageSetup.zoom=false; //уместим на одной странице в ширину
Excel.ActiveSheet.PageSetup.FitToPagesWide = 1; //уместим на одной странице в ширину
Excel.ActiveSheet.PageSetup.FitToPagesTall = 10; //и на 10 в длину
file=лев(file,стрдлина(file)-4)+".pdf"; //подменяем раширение
Excel.ActiveWorkbook.ExportAsFixedFormat(0, File,0,false,false,,,false,); //сохраняем в pdf
//0-pdf, file-полный путь файла, 0 - стандартное качество
Excel.Quit(); // закрываем Excel
Исключение
Excel.Quit();
Сообщить("Не удалось преобразовать в pdf!!!");
file="";
КонецПопытки;
возврат file;
EndFunction Вступайте в нашу телеграмм-группу Инфостарт
