RE:Configurar Impresora desde un Report
! 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