FoxPro/Visual FoxPro - Problemas con Impresoras

 
Vista:
sin imagen de perfil

Problemas con Impresoras

Publicado por Amado Garcia L (68 intervenciones) el 10/09/2008 04:19:06
Hola Buenas noches.... a todos...

Tengo un problemita que quisiera que me ayudaran... porfa...
Tengo un sistema que estoy haciendo en un equipo que tiene 2 impresoras conectadas... una es una Brother 5140 y una Miniprinter Epson TMU-220..

Estoy redireccionando mi reporte "Ticket" a la impresora Epson conectada al LPT1 pero al imprimir este reportre con codigos de Dos... me lo envia tambien a la Brother que esta como Predeterminada pero en la Brother me envia una hoja en blanco... mi codigo de impresion para la Epson inicia asi...

******************************************
En un metodo llamado MyImpresora tengo lo siguiente..
Local MiniPrn
Select Impresoras
Set Filter to Actual=.t. && Filta la Epson.. ya que es la que Actual
go Top
MiniPrn=Alltri(Impresora) && Campo del nombre de la impresora...
<***** Aqui Terminal El Proceso de seleccion de la impresora...

Rutina llamada: TICKET para iniciar la impresion del ticket

set console off
Thisform.MyImpresora() Trae el nombre de la impresora. Epson...
SET PRINTER on
Set Device To Print
set printer to NAME (MiniPrn)
??? chr(15)
SELECT Empresa
@ prow()+1,1 say nombre
@ .... continua el reporte...
@ ....
& El reporte termina asi...
@ prow()+2,1 say "Gracias por su Visita..."
@ PROW()+1,10 say "y que tenga excelente dia.."
@ prow()+10,1 say ""
? CHR(27)+"m"
??? chr(18)
SET PRINTER TO
SET PRINTER OFF
SET CONSOLE ON
set devi to screen
RETURN

Que me faltara... ahi les encargo me ayuden.... MUCHISIMAS GRACIAS... A TODOS...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Problemas con Impresoras

Publicado por kong (682 intervenciones) el 10/09/2008 11:37:46
esto es lo que yo tengo.

SET PRINTER TO NAME &pubcImpresoraCaja &&\CAJA1caja
SET DEVICE TO PRINTER
SET PRINTER ON
???chr(27)+chr(64)
SET CONSOLE OFF
???CHR(27)+"!"+CHR(32)
?"NOTA DE PEDIDO"
?CHR(27)+"m" &&Corte Parcialmente
???CHR(17)
SET PRINTER TO
SET DEVICE TO SCREEN

es muy parecido al tuyo, y tengo 2 impresoras conectadas a la misma pc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar