Fonts en TWord

[caducca]

Hola Foro:
Estoy probando la clase TWord y cuando creo un documento no me respeta los fonts que le envio por el programa.
Por ejemplo le asigno Times New Roman de 8 y en el documento me aparece con Times New Roman de 12.
Cual puede ser el problema?

Saludos
Carlos A. Ducca

[dobfivewin]

Yo lo asigno de esta forma y notengo problemas

David

[DEFINE FONT oFuente NAME 'Arial' SIZE 1,8 OF oWord //9
DEFINE FONT oFuente2 NAME 'Arial' SIZE 1,8 OF oWord //8
DEFINE FONT oFuente3 NAME 'Arial' SIZE 1,8 OF oWord BOLD //9
DEFINE FONT oFuente4 NAME 'Arial' SIZE 1,10 OF oWord BOLD //10
DEFINE FONT oFuente5 NAME 'Arial' SIZE 1,6 OF oWord //6
DEFINE FONT oFuente6 NAME 'Arial' SIZE 1,7 OF oWord //7
DEFINE FONT oFuente7 NAME 'Arial' SIZE 1,11 OF oWord //11
DEFINE FONT oFuente8 NAME 'Arial' SIZE 1,13 OF oWord //13

oWord:=Tword():New()

oWord:NewDoc( cOutFile )

oWord:startpage()

oWord:SetCm()