Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Page size
Message
 
À
05/12/2007 08:15:06
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01273148
Message ID:
01273472
Vues:
20
I read the page
Could you please help me ?

I am sending my report to myprint.txt file
Could you tell me if is it easy to insert myprint.txt
in the sample code below ?





*!* Example usage:

*!* SET PROC TO DIRPRTCLASS.PRG ADDITIVE
*!* * Note - CLSHeap.PRG needs to be in your SET PROC list, or part of your project
*!* oDirPrt = CREATEOBJ('DirectPrintOutput')
*!* WITH oDirPrt
*!* .PrinterOpen('LPT1:') && Arg can be a Win Printer name, port, or a print queue - works with both MSNetwork
*!* && and NetWare queues. It also works with CAPTUREd or NET USEd printer ports
*!* IF .PrinterIsOpen()
*!* .DocOpen('MySpoolJob')
*!* .DocWrite('This is sample text that prints after the first close' + CHR(13) + CHR(10) + CHR(9) + 'and this next line is indented one tab stop')
*!* .DocWrite(' this continues the line')
*!* .DocWrite(CHR(12)+'And this form feeds')
*!* .DocWrite(' without a Windows page mark')
*!* .SpoolFile('MyFileToDeleteAfterItPrints.TMP', .T.) && Spool file and delete after printed
*!* && the spooled file prints first because the first document you're working is still open
*!* .DocWrite(CHR(13) + CHR(10) + CHR(10) + 'this is still written to the first spool job' + CHR(13) + CHR(10))
*!* .DocWrite('*** still the same print document ***' + CHR(13)) && this line will get overwritten since CR w/o LF
*!* .DocWrite(CHR(9) + 'You can embed any control sequence' + CHR(10) + CHR(10))
*!* .DocClose()
*!* .SpoolFile('AnotherFileToPrinterWithoutDeleting')
*!* .DocOpen() && assign a random job name
*!* .DocWrite('<*** and note that the next print job picks up right where you left off')
*!* .PrinterClose() && close both current job and the printer
*!* ENDIF
*!* ENDWITH
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform