Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can i change left and right margins
Message
From
16/08/1999 14:30:29
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
How can i change left and right margins
Miscellaneous
Thread ID:
00254181
Message ID:
00254181
Views:
73
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
.
.
.
Next
Reply
Map
View

Click here to load this message in the networking platform