Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing using generic / text only printer
Message
 
 
À
15/03/2009 11:32:01
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Divers
Thread ID:
01387345
Message ID:
01388199
Vues:
41
>>To make a report print as in DOS, I would create a text file and then print the entire file with the command "???", thusly:
>>
>>
>>lcPrinterSetupCodes = ...
>>lcFileInRam = FileToStr("FileOnDisk.txt")
>>??? lcPrinterSetupCodes + lcFileInRam
>>
>>
>>My reporting class does something similar.
>
>Hilmar:
>
>I notice you are using chr(12) to do an eject.
>
>In the following program, the page does *not* eject. Why?
>
>
>SET DEVICE TO file joe.txt
>@ 1,1 say 'page1'
>@ prow()+1, 1 say ' '
>@ prow()+1, 1 say 'txet1'
>
>@ prow()+1, 1 say CHR(12)
>
>@ 1,1 say 'page2'
>@ prow()+1, 1 say ' '
>@ prow()+1, 1 say 'txet2'
>
>SET DEVICE TO screen
>
>
>CREATE CURSOR joecursor  ;
>	(cDetail c(250))
>
>APPEND FROM joe.txt TYPE SDF 
>
>REPORT FORM \posprgs\common\RptLSX NOCONSOLE PREVIEW 
>
>RETURN
>
>
>Thanks,
>
>Yossi

Using chr(12) with REPORT FORM command has no effect. If you you try to output file to printer using ??? it would work.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform