Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can I specify my font for Excel PageSetup
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
How can I specify my font for Excel PageSetup
Miscellaneous
Thread ID:
00626485
Message ID:
00626485
Views:
76
Hi everybody,

How can I control font of CenterHeader, CenterFooter and content of the page.

Here is the code from Daniel Gramunt, I enabled GridLines (as requested by user), but I also want to have different fonts:
*-- set pageSetup properties
with oXLS.application.ActiveSheet.PageSetup
*.LeftHeader  = ""
	.CenterHeader = m.lcTableName
    .RightHeader = NiceFormatDate(date())
	.LeftFooter   = icMessageBoxCaption
	.RightFooter = "&P of &N"
*	.RightFooter  = "&D - &T"
	.LeftMargin   = cnCentimetersToPoints * 1.9
	.RightMargin  = cnInchesToPoints * 0.27244094488189
	.TopMargin    = cnInchesToPoints * 0.47244094488189
	.BottomMargin = cnInchesToPoints * 0.47244094488189
	.HeaderMargin = cnInchesToPoints * 0.236220472440945
	.FooterMargin = cnInchesToPoints * 0.236220472440945
    .PrintHeadings = .f. && Don't want to print Excel Headings
    .PrintGridlines = .t.
*.PrintComments = xlPrintNoComments
*.PrintQuality = 600
    .CenterHorizontally = .t.
*.CenterVertically = .t.
	.orientation = xlLandscape
*.Draft = .f.
*.PaperSize = xlPaperA4
*.FirstPageNumber = xlAutomatic
*.Order = xlDownThenOver
*.BlackAndWhite = .f.
	.zoom           = .f.
	.FitToPagesWide = 1
	.FitToPagesTall = .f.
	.PrintTitleRows = "$1:$1"    && repeats header on each page
endwith
If it's not broken, fix it until it is.


My Blog
Next
Reply
Map
View

Click here to load this message in the networking platform