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 Табличный документ в PDF (через Excel 2007)
16.02.11
Интеграция - Загрузка и выгрузка в Excel
Пример сохранения табличного документа в PDF
