Information générale
Catégorie:
Codage, syntaxe et commandes
Hi Fred,
I've also got a textmerge problem. Maybe you can shed some lite on it.
I'm redesigning a textmerge application from fpd26 to vfp60. I built a vfp60 form and then plugged in the fpd26 code in various methods. It has one very bad habit.
It prints only blank pages. Below is the part of the code that prints.
letters.dbf has a memo field called letter. Prior to this I've selected one of the records in letters.dbf. Thanks in advance. Bill
IF not m.ToFile
SET PRINTER ON
SET TEXTMERGE ON
WAIT WINDOW "Printing..." NOWAIT
SET TEXTMERGE DELIMITERS TO
SET MEMOWIDTH TO 80
_PSCODE = "" && Starting print codes
_PEJECT = "NONE"
_PCOPIES = 1
PRINTJOB
IF thisform.prnscope.value = 1
\<>
EJECT PAGE
ELSE
IF NOT EMPTY(forexpr)
forexpr = "FOR "+forexpr
ENDIF
IF NOT EMPTY(whileexpr)
whileexpr = "WHILE "+whileexpr
ENDIF
SELECT (m.savearea)
m.recno = RECNO()
SCAN &forexpr &whileexpr
\<>
EJECT PAGE
ENDSCAN
GOTO RECORD m.recno
ENDIF
ENDPRINTJOB
SET CONSOLE ON
SET PRINTER OFF
SET TEXTMERGE OFF
ENDIF
IF AT("FOR",forexpr)<>0
forexpr = SUBSTR(forexpr, AT("FOR",forexpr)+4)
ENDIF
IF AT("WHILE",whileexpr)<>0
whileexpr = SUBSTR(whileexpr, AT("WHILE",whileexpr)+6)
ENDIF
m.ToFile = .F.
SELECT letters
RETURN
Précédent
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