Печать в MS Excel.


Иногда требуется вывести печатную форму в эксель. Можно сделать типовыми средствами: файл - сохранить копию (если у вас активизирована  доп. настройка - редактирование таблиц ) - выбрать нужное расширение и сохранить файл.

Описанная ниже функция позволяет, печатную форму, формируемую в предприятии 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;
КонецФункции;

Разукрашку брал тут: http://avprog.ru/public/19856/

Файлы обработки:

-