Описанная ниже функция позволяет, печатную форму, формируемую в предприятии 1с с расширением .mxl - открыть в MS Excel. Во вложение обработка с примером. Обработка подключается как внешняя печатная форма к документу Реализация товаров и услуг (Накладная). При выборе данного типа печати программа откроет MS Excel (если он имеется) и вставит в него печатную форму.
Функция Печать() Экспорт
КоличествоЭкземпляров=1;
НаПринтер=Ложь;
ИмяМакета="Накладная";
ТабДокумент = ПечатьДокумента();
ТаблицаГруппировок = Неопределено;
ФорматСохранения = "XLS";
ТабличныйДокумент = ПечатьДокумента();
КаталогТемп = КаталогВременныхФайлов();
ТабличныйДокумент.Записать(КаталогТемп + "Книга_v8." + ФорматСохранения , ТипФайлаТабличногоДокумента[ФорматСохранения]);
Попытка
ExcelПодключение = Новый COMОбъект("Excel.Application");
Исключение
Сообщить("Невозможно создать объект . Обработка прервана.");
ExcelПодключение = Неопределено;
//Возврат;
КонецПопытки;
ExcelПодключение.SheetsInNewWorkbook = 1;
ExcelПодключение.RollZoom = False;
ExcelПодключение.Workbooks.Add(КаталогТемп + "Книга_v8." + ФорматСохранения);
ExcelПодключение.ActiveWindow.TabRatio = 0.463;
ExcelПодключение.ActiveWindow.ActiveSheet.Name = "Лист1";
Sheet1 = ExcelПодключение.ActiveWindow.ActiveSheet;
Sheet1.Outline.SummaryRow = 0;
Sheet1.Outline.SummaryColumn = -4152;
//Устанавливаем автовысоту строк.
Sheet1.Cells.Select();
ExcelПодключение.Application.Selection.Rows.UseStandardHeight = True;
ExcelПодключение.Application.Selection.Rows.AutoFit();
Sheet1.Range("A1").Select();
//
УдалитьФайлы(КаталогТемп + "Книга_v8." + ФорматСохранения);
ExcelПодключение.Visible = 1;
ExcelПодключение.ActiveWindow.WindowState = 2;
КонецФункции;
Разукрашку брал тут: //infostart.ru/public/19856/
Вступайте в нашу телеграмм-группу Инфостарт
