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

[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 что-то прописывать это не выход...
надо чтоб из аксапты вызывалось

[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]

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