Re: Imprimir Reportes en impresora laser con dos bandejas

[maraltam]

Jason Boris Rivas Otaiza escribió el 02/09/2004 17:11 :
> Buenas
>
> Tengo un problema mi sistema tiene documentos que trabajan con dos tipos de
> pepel uno norma y otro membretado, el problema es que hemos adquirido una
> impresora multifuncional con dos bandejas y queremos que el sistema utilise
> esta impresora tanto con papel membretado en la bandeja 1 y papel normal en
> la bandeja 2, la cuestion es que no se como seleccionar la bandeja para que
> el reporte se imprima, crei que si creaba dos controladores de la misma
> impresora, y uno lo configuraba para imprimir con una bandeja y el otro con
> la otra bandeja esot seria suficiente pero por mas que configuo el
> controlador con la bandeja 2, el sistema siempre imprime en la bandeja 1 que
> es la bandeja por defecto para la impresora, como puedo hacer para
> configurar las bandejas desde VFP8.0 por siacaso la impresora es una Minolta
> DI1610 les agradesco de ante mano su ayuda
>
En VFP9, Buena parte de la configuración está almacenada en la
tabla de datos del Formulario.
Así entonces, en vez de abrir con Modify Report ElReporte.FRX,
simplemente tenés que abrirlo con USE ElReporte.FRX, allí vas a
encontrar muchos registros, pero el principal que configura algunas
características como la posición inicial, número de
bandeja, cantidad de copias, etc. está en el registro con el
"objCode = 53".
En su campo memo Expr, se pueden poner las propiedades que uno necesite, por
ejemplo:

ORIENTATION=1
PAPERSIZE=1
DEFAULTSOURCE=2

Donde DEFAULTSOURCE es el Número de la BENDITA BANDEJA DE SALIDA (que
tanto me costó encontrar).

En realidad, modificando las propiedades de la impresora a nuestro gusto y
tildando en "Save printer environment" también estaría
solucionado, sólo que estaríamos forzando a que sí o
sí imprima en la impresora utilizada en el desarrollo del reporte y no en
la del cliente.

De manera tal que se puede solucionar modificando el contenido de ese campo
"a mano" o utilizando el siguiente código:

Use ElReporte
Locate For objType = 1 And Objcode=53
Replace Expr With "DEFAULTSOURCE=2"
USE

Saludos
Marcelo