Information générale
Catégorie:
Gestionnaire de rapports & Rapports
Hi, Nadaya,
I finally found a way out, below is the program part about that. I hope it could help other person who meet the same problem.
===========================================================================================================
LOCAL lnI,lcTMPFileName,lcRPTName,lnCopies
lnCopies=3 && The Copies ypu wanna print out
lcRPTName="Bill.FRX" &&The Report Name
*!*Initial The Tmp File with a Unique Name
lcTMPFileName=SubStr(Alltrim(Sys(2015)),5)+Right(SYS(3),3)++".PRN"
*!*Print the report redirecting to the Tmp file, if user choice the exit buttom in preview mode, the tmp file wouldn't be created
Report Form (lcRPTName) PreView Noconsole TO File (lcTMPFileName)
*!*IF Tmp file exsit means the user pressed the print buttom in preview mde, then the programm make n copies as you wish.
IF FILE(lcTMPFileName)
FOR lnI=1 TO lnCopies
Report Form (This.Parent.Reporter) Noconsole TO Printer
NEXT
DELETE FILE (lcTMPFileName)
ENDIF
===========================================================================================================
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