Information générale
Catégorie:
COM/DCOM et OLE Automation
Titre:
How can i change left and right margins
I need to change the left and right margins in word from VFP5. Anybody know how can i do this? . The next segment is taked from vfp examples and work, but i can't change the margins.
Any help will be appreciated. thanks in advance.
#DEFINE APPSHOW_WORDUS_LOC "appshow"
#DEFINE FILENEW_WORDUS_LOC "filenewdefault"
#DEFINE INSERT_WORDUS_LOC 'insert( getmemo() )'
#DEFINE OBJECT_TYPE "OBJECT"
#DEFINE crlf CHR(13) + CHR(10)
#DEFINE guiones REPLICATE('_', 90)
#DEFINE cf "Courier New"
#DEFINE cs 9
APPSHOW_WORDUS =APPSHOW_WORDUS_LOC
FILENEW_WORDUS =FILENEW_WORDUS_LOC
INSERT_WORDUS =INSERT_WORDUS_LOC
LOCAL cRefAnt, lnTot
PUBLIC ObjWDdoc
nlLocaleId=sys(3004)
=sys(3006,1033)
objWDdoc=crea("word.basic")
objwddoc.&APPSHOW_WORDUS
objwddoc.&FILENEW_WORDUS
objwddoc.FONT(cf,18)
objwddoc.bold
objwddoc.CharColor(6)
objwddoc.CenterPara
objwddoc.Insert( nomprov + crlf)
objwddoc.FONT("Arial",10)
objwddoc.bold
.
.
.
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement