
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...
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


0