Clarion - Configurar Impresora desde un Report

 
Vista:

Configurar Impresora desde un Report

Publicado por Edgar Monges (33 intervenciones) el 30/07/2009 23:00:35
Saludos a todos, tengo un reporte de facturacion el cual es lanzado en una impresora matricial, y los demas son lanzados a una de red, mi consulta es como puedo hacer para configurar la impresora matricial solamente al imprimir mi factura, y dejarlo como estaba al termino del mismo.

Desde ya muy agradecidos

EM, ASU-PY
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

RE:Configurar Impresora desde un Report

Publicado por Marcelo Madelon (572 intervenciones) el 31/07/2009 13:18:44
! Estas son la variables que uso, Edita las variables y copia lo que sigue

[SCREENCONTROLS]
! PROMPT('LOC : Default Printer:'),USE(?LOC:DefaultPrinter:Prompt)
! ENTRY(@s128),USE(LOC:DefaultPrinter)
[REPORTCONTROLS]
! STRING(@s128),USE(LOC:DefaultPrinter)
LOC:DefaultPrinter STRING(128)
!!> IDENT(4294965500),PROMPT('LOC : Default Printer:'),HEADER('LOC : Default Printer'),PICTURE(@s128)
[SCREENCONTROLS]
! PROMPT('LOC : Receipt Printer:'),USE(?LOC:ReceiptPrinter:Prompt)
! ENTRY(@s126),USE(LOC:ReceiptPrinter)
[REPORTCONTROLS]
! STRING(@s126),USE(LOC:ReceiptPrinter)
LOC:ReceiptPrinter STRING(126)
!!> IDENT(4294965498),PROMPT('LOC : Receipt Printer:'),HEADER('LOC : Receipt Printer'),PICTURE(@s126)


! El Código para imprimir usando LinePrint

LOC:DefaultPrinter = (PRINTER{PROPPRINT:Device}) ! Guardo la Impresora por Predeterminada
LOC:ReceiptPrinter = 'Epson LX-810' ! Cambio por la Epson LX-810
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter)

LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,48>',,0) ! Longitud pagina a 48 Líneas
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
LinePrint('<27, 18>' FECHA EMISION: '&(format (FAC1:FechaEmision,@d6)))
LinePrint('<27,102,1,4>',,0) ! Salta 4 Lineas
…………..
…………..
…………..
LinePrint('<27,64>',,0) ! Inicializo Impresora
LinePrint('<27,67,72>',,0) ! Longitud pagina a 72 Líneas
PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada

Espero te sirva

Saludos desde Argentina
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

RE:Configurar Impresora desde un Report

Publicado por Edgar Monges (33 intervenciones) el 31/07/2009 17:30:08
Te estoy muy agradecido, aora lo voy a provar....

Saludos
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
sin imagen de perfil

RE:Configurar Impresora desde un Report

Publicado por Marcelo Madelon (572 intervenciones) el 31/07/2009 17:49:52
Olvide de decirte que el nombre de la impresora es tal cual la ves
Si es de red y está en la terminal Ventas sera:

LOC:ReceiptPrinter = '\VentasEpson LX-810' ! Cambio por la Epson LX-810

Tambien podes usar una variable o campo

IMP:Impresora = '\VentasEpson LX-810' ! Campo del archivo Impresoras
LOC:ReceiptPrinter = IMP:Impresora


Buen trabajo
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