Колонтитулы в Excel

[Vitaly_K]

Привет всем! Столкнулся с небольшой проблемкой...
Надо вывести колонтитул при формировании шаблона Excel из аксапты, но значение колонтитула должно браться из определенной ячейки...Стандартными средствами Excel не получается....
Если на VBA написать макрос, то выглядеть будет примерно так

Sheets("Лист1").PageSetup.LeftHeader = Sheets("Лист1").Range("А1")

Получается надо в аксапте что-то подобное написать....?

Или программно переименовать Лист1 в нужное мне значение и выводить колонтитул стандартными средствами Excel? как переименовать Лист1 в аксапте пока не нашел....

[Gustav]

Цитата:

Сообщение от Vitaly_K

Надо вывести колонтитул при формировании шаблона Excel из аксапты, но значение колонтитула должно браться из определенной ячейки...Стандартными средствами Excel не получается....

А если в код события Excel прописать? Например, вот так:

PHP код:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
Sheets("Лист1").PageSetup.LeftHeader = Sheets("Лист1").Range("A1").Value
 
End Sub 


[Vitaly_K]

не если в Excel что-то прописывать это не выход...
надо чтоб из аксапты вызывалось

[AndyD]

Если из Axapta'ы, то вам надо вначале надо получить объект WorkSheet нужного вам листа книги.
Если вы используете класс ComExcelDocument_Ru, то можно либо при помощи метода getWorkSheet() (при этом надо подправить этот класс, чтобы сделать его доступным), либо ч/з интерфейс Document. Свойство Name этого объекта - это имя листа. Так же можно получить Объект PageSetup этого листа, а дальше точно так же как и для VBA

    COMExcelDocument_Ru excel = new COMExcelDocument_Ru();
    COM doc;
    COM app;
    COM sheets;
    COM worksheet;
    COM PageSetup;
    COM Range;
    ;
...
    Excel.newFile();
    doc = Excel.getComDocument();
    App = doc.Application();
// для выбора произвольного листа книги (либо по номеру, либо по имени)
    Sheets = App.Worksheets();
    Worksheet = Sheets.Item(1);
// для выбора активного листа
    Worksheet = App.ActiveSheet();

// если подправить класс то можно так
    Worksheet = Excel.getWorkSheet(1);

    Worksheet.Name("Новое имя"); // изменение имени листа

    PageSetup = Worksheet.PageSetup();
    Range = Worksheet.Range("A1");
    PageSetup.LeftHeader(range.Value2());

[Gustav]

Ну... прочитайте ячейку A1 из Аксапты, запишите в LeftHeader из Аксапты
Поиск по Форуму рулит. Может, вот это поможет: http://www.axforum.info/forums/showt...0089#post50089

[Vitaly_K]

Спасибо ребят... ,думаю это поможет

[andrewK]

Добрый день.
Кто нибудь знает, как в Аксапте отформатировать вставленный колонтитул?
Например сделать его шрифт жирным.

[Gustav]

Цитата:

Сообщение от andrewK

Добрый день.
Кто нибудь знает, как в Аксапте отформатировать вставленный колонтитул?
Например сделать его шрифт жирным.

Ручками можно сделать, значит и программно можно. Можно даже разные фрагменты текста по-разному. Запишите макрос рекордером и изучите.

Записанный код VBA получится примерно такой (я написал в правый нижний колонтитул "Стр. &[Страница] из &[Страниц]"):

PHP код:

   
With ActiveSheet.PageSetup
   
    .RightFooter = _
    "&""Arial,полужирный""&16Стр. &""Arial,обычный""&10&P из  &""Arial,полужирный курсив""&20&S&N" 


А дальше по фразе "Formatting Codes for Headers and Footers" поищите в файле VBAXL*.CHM соответствующую тему или в MSDN: http://msdn.microsoft.com/en-us/library/bb225426.aspx . Там есть список кодов форматирования.

После анализа кода VBA его можно записать более компактно и эффективно, в частности, избавиться от русских слов в названии шрифта, заменив их форматными кодами &B и &I и придав коду независимость от региональных настроек:

PHP код:

    With ActiveSheet.PageSetup
        .RightFooter = _
        "&""Arial""&B&16Стр. &B&10&P из &B&I&20&S&N"
    End With 


Ну, и в таком виде уже можно двигать в Аксапту. Должно будет получиться что-то вроде:

COM comTemp;

comTemp = ActiveSheet.PageSetup();
comTemp.RightFooter('&"Arial"&B&16Стр. &B&10&P из &B&I&20&S&N');

[andrewK]

А, не обратил внимание на закрывающий тэг &.
Спасибо большое