Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How can I specify my font for Excel PageSetup
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
How can I specify my font for Excel PageSetup
Divers
Thread ID:
00626485
Message ID:
00626485
Vues:
67
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform