>Hey, Why not search the File Section first!!
>Already here, I have download it!! ^_^"
>
>At File Section, VFP in General!!
>13. FoxDoc
>
>You need to edit the Form New property such as some path and
>also author name, company name...
>
>Actually, I want to save it in file other than print out at once!! ~_~"
>Take a look, I still donno the method it does... Too Deep!
see if it helps you, it does a merge of 100 records using a STATIC DOCUMENT
or Word97 document and prints it to a file with the commands and formats
the merge takes aprox 50 seconds, considering network speed 10bt
I think that is good, let me know of any bug .
Mark Oliva
;->>>>>>>>
************* code starts here *****************************
* PROGRAM TO TEST TWO FEEDER CAPABILITES WITH THE HP 4SI***
* COLORADO MORTGAGE GENERIC FORM
PUBLIC oWord
esc = chr(27)
npa = chr(12)
feed = chr(13)+chr(10)
topf = esc+"&l4h"
donf = esc+"&l1H"
topmarg = chr(27)+"&l0.2E"
leftmarg = chr(27)+"&a24L"
mlines = chr(27)+"&l6D"
nlines = chr(27)+"&l66P"
set talk on
clear
* use filename && calls for a database
set textmerge on
set textmerge delimiters to
@ 8,10 say "starting time is.."+time()
i=1
go top
oWorg=createobject("word.basic")
WITH oWorg
.fileopen("d:\pcltest\test1.doc")
ENDWITH
scan
@ 10,10 say " Processing rec # -->"+str(recn())
*set textmerge to D:\pcltest\pcltest.prt noshow additive
set textmerge to h:\pcl\pcltest.prt noshow additive
TEXT
******************************************************
******************************************************
@@<>@@
6200 South Syracuse Street, Suite 150
Englewood, CO 80111
TEL: (303) 221-2000 FAX: (303) 221-3000
ENDTEXT
SET TEXTMERGE TO
** OLE is here ************************
@ 11,10 say ' doing letter...'+str(recn())
fclose(_text)
if recn()<=2
wait timeout 1.5
else
wait timeout 0.37
endif
WITH oWorg
*.FILEPRINT(1,1,0,"d:\pcltest\pcltest.prt",,,,,,,,1,,)
.FILEPRINT(1,1,0,"h:\pcl\pcltest.prt",,,,,,,,1,,)
endwith
SET TEXTMERGE ON
*set textmerge to D:\pcltest\pcltest.prt noshow additive
set textmerge to h:\pcl\pcltest.prt noshow additive
TEXT
******************************************************
******************************************************
ENDTEXT
set textmerge to
endscan
set talk off
wait timeout 0.35
WITH oWorg
.fileclose(2)
.appclose
ENDWITH
set textmerge to
set talk on
@ 15,10 say "finish time is.."+time()
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only