>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()
Précédent
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