Imprimir Reportes en impresora laser con dos bandejas

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