Описанная ниже функция позволяет, печатную форму, формируемую в предприятии 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/
Файлы обработки:
- Pechat' v MS Excel..epf Для скачивания нужна регистрация
В этой группе 1С
- Динамическое изменение переменных во время отладки.
- Задача: Программа, выводящая на экран свой исходный код (куайн)
- Альтернативное RLS
- Вывод логотипа внизу каждой страницы печатной формы
- Определение имен 1С для БД MS SQL c использование полнотекстового индексирования строк конфигуратора.
- Шаблоны текста (Ctrl+Shift+T) в режиме 1С:Предприятие
- Сравнение ролей (без реквизитов) для платформы 8.2
- Обработка загрузки данных из файла Excel