Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How send to printer this code...
Message
De
16/11/2004 15:59:39
Sixto Gonzalez
Smai Developers Ca
Vénézuéla
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
How send to printer this code...
Versions des environnements
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Divers
Thread ID:
00961921
Message ID:
00961921
Vues:
44
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform