Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How send to printer this code...
Message
De
16/11/2004 16:47:35
 
 
À
16/11/2004 15:59:39
Sixto Gonzalez
Smai Developers Ca
Vénézuéla
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Divers
Thread ID:
00961921
Message ID:
00961946
Vues:
7
Printer buffer overflow? Maybe the file is to big to be printed all at once.

>Hello,
>
>i have this code:
>
>
> CREATE CURSOR textti2 (nombreArch c(120),mem2 m)
> APPEND BLANK
> REPLACE textti2.nombreArch WITH "respaldo"
> REPLACE mem2 WITH THISFORM.edit1.SELTEXT
> IF EMPTY(textti2.nombreArch)
> RETURN
> ENDIF
> SELECT textti2
> Cadena=textti2.MEM2
> strtofile(Cadena,"c:\windows\system\PRUEBA.txt",.F.)
> l_prn="EPSON TM-U300A Partial cut"
> *set printer on
> SET PRINTER TO NAME (l_prn)
> SET PRINTER ON
> SET CONSOLE OFF
> ??? FiletoStr("c:\windows\system\PRUEBA.txt")
> SET CONSOLE ON
> SET PRINTER OFF
> SET PRINTER TO
> *CORTAR EL PAPEL
> set printer on
> SET CONSOLE OFF
> SET PRINTER FONT 'Control', 10
> ??? 'P'
> SET CONSOLE ON
> set printer off
> SET PRINTER TO
>
>
>BUT NOT PRINT ALL THE FILE CONTENT
>THE PRINT ITS BROKEN IN THE MIDDLE
>
>WHY DO THIS ????
>
>
>Regards,
>
>
>Sixto
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform