Excel Header & Footer

[gasomma]

Hi,

I need to user header & footer (insert sheet, text, page number) in ms excel.
May somebody have some example to show me.

Thanks in advance.

JCA

 

[Rob Fitzpatrick]

I assume the question is, "How do I insert header and footers into a worksheet in an Excel workbook, from the ABL?" It would be helpful if you mentioned your Excel version and your OpenEdge version.

 

[gasomma]

Yes it is.
Excel versions 2007 and 2010, OE versions 9.1d and 10.2b.

Thx

 

[Rob Fitzpatrick]

I recently responded to a similar question. Rather than retype, I'll just direct you to the other post.

 

[mrobles]

Hi.
May be this can help you ...
chExcelApplication:ActiveSheetageSetup:RightHeader = "Pag &P" + " de " + "&#". /* Page n of n' */
chExcelApplication:ActiveSheetageSetup:LeftHeader = "First Line~nSegunda Linea~nHola Pag &P~n &F". /* Text, new lines, page number and Today */
chExcelApplication:ActiveSheetageSetup:CenterHeader = "En el Centro~n&G". /* Text and a picture */
chExcelApplication:ActiveSheetageSetup:CenterHeaderPicture:FILENAME = SEARCH('mylogo.jpg'). /* The picture */
chExcelApplication:ActiveSheetageSetup:HeaderMargin = chExcelApplication:InchesToPoints(0.8). /* New top */
chExcelApplication:ActiveSheetageSetup:topMargin = chExcelApplication:InchesToPoints(1.5). /* New data top */
/* Take care with your logo size. If it's big, may ocult the data */
/* For the footer use the same changing Header for Footer */

/* For the header. If you only want repeat some lines then use */
chExcelApplication:ActiveSheetageSetuprintTitleRows = '$1:$5'.
/* This repeats the lines 1 to 5 each page */

Bye.
MRobles