Problema con asignación de impresoras
Publicado por Marcelo Madelón (369 intervenciones) el 29/08/2024 12:57:39
No toma el cambio de impresora cuando lo hago por código.
En C6 no tengo problemas pero si en C8.
El código es el siguiente y es el que muestra el help
La cuestión es que no cambia l de impresora, siempre toma la por defecto.
Este es el código que uso:
! Cambio la Impresora
! Lee el archivo donde tengo guardado el nombre de la impresora. (Es el que Windows toma)
IMP:CodigoImpresora = 8
IF Access:Impresor.Fetch(IMP:KeyCodigoImpresora) ! Leo y la lectura es satisfactoria
message('no lee impresora')
END
Message(PRINTER{PROPPRINT:Device}) ! Muestro un mensaje con la impresora por defecto
LOC:DefaultPrinter = PRINTER{PROPPRINT:Device} ! la muevo a una variable
LOC:ReceiptPrinter = CLIP(IMP:NombreImpresora) ! La paso a una variable por la que figura en el archivo
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter) ! La cambio, pero no la toma sigue imprimiendo por la de defecto
IF ERRORCODE() ! controlo el error y no reporta error
MESSAGE('No se pudo asignar la impresora especificada: ' & ERROR(), 'Error')
END
! Cuando sale del la rutina devuelvo la impresora
PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada
Gracias y saludos.
En C6 no tengo problemas pero si en C8.
El código es el siguiente y es el que muestra el help
La cuestión es que no cambia l de impresora, siempre toma la por defecto.
Este es el código que uso:
! Cambio la Impresora
! Lee el archivo donde tengo guardado el nombre de la impresora. (Es el que Windows toma)
IMP:CodigoImpresora = 8
IF Access:Impresor.Fetch(IMP:KeyCodigoImpresora) ! Leo y la lectura es satisfactoria
message('no lee impresora')
END
Message(PRINTER{PROPPRINT:Device}) ! Muestro un mensaje con la impresora por defecto
LOC:DefaultPrinter = PRINTER{PROPPRINT:Device} ! la muevo a una variable
LOC:ReceiptPrinter = CLIP(IMP:NombreImpresora) ! La paso a una variable por la que figura en el archivo
PRINTER{PROPPRINT:Device}=CLIP(LOC:ReceiptPrinter) ! La cambio, pero no la toma sigue imprimiendo por la de defecto
IF ERRORCODE() ! controlo el error y no reporta error
MESSAGE('No se pudo asignar la impresora especificada: ' & ERROR(), 'Error')
END
! Cuando sale del la rutina devuelvo la impresora
PRINTER{PROPPRINT:Device}=CLIP(LOC:DefaultPrinter) ! Devuelvo la impresora predeterminada
Gracias y saludos.
Valora esta pregunta


0