Página 1 de 1

Como asignar el Font en los Office templates

Publicado: Lun Ago 27, 2018 12:34 pm
por gghezan
Hola, alguno sabe como asignar el font de impresión (Arial, etc.) a una celda de Excel usando los Office templates de Softmaster ?

Re: Como asignar el Font en los Office templates

Publicado: Lun Ago 27, 2018 3:22 pm
por jarodav1
Hola segun la ayuda es SetFont

SetFont (STRING FontName)
FontName: A string constant, variable or expression specifying the new font to be used by any text sent to Microsoft Office applications.



The SetFont method sets the font for any text sent to Microsoft Office applications. Use this method at the beginning of a document to set the default font for the entire document.

SetFont is a VIRTUAL method so that other base class methods can directly call the SetFont virtual method in a derived class. This lets you easily implement your own custom version of this method.

Re: Como asignar el Font en los Office templates

Publicado: Lun Ago 27, 2018 3:44 pm
por gghezan
Debo tener una versión distinta del Office template, el procedimiento SetFont no está.
Bajé el template de SoftMasters que publicó Pacheco.
Lo instalé en Clarion 6.3 y en C10 (aunque en este último anduvo solamente en ABC, yo lo necesito en legacy).

Re: Como asignar el Font en los Office templates

Publicado: Lun Ago 27, 2018 10:44 pm
por gghezan
Jarodav1, te agradecería si pudieras adjuntar el instalador de los templates, así lo pruebo en mi equipo.
El método SetFont no figura en el help ni en la librería.

Re: Como asignar el Font en los Office templates

Publicado: Vie Ago 31, 2018 2:33 am
por jarodav1
Yo instale el mismo que publico Ramon Pacheco
SI te fijas en el aboffice.inc linea 59 esta definido el metodo setfont y en el aboffice.clw linea173
MSOfficeClass.SetFont PROCEDURE(STRING FontName)
CODE
SELF.SetProperty('Selection.Font.Name',FontName)



saludos

Re: Como asignar el Font en los Office templates

Publicado: Vie Ago 31, 2018 1:22 pm
por gghezan
Perfecto, funciono, muchas gracias !!!

MSExcel1.Select('A12')
MSExcel1.SetProperty('Selection.Font.Name','Verdana')