Information générale
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
How send to printer this code...
Versions des environnements
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
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