ivan
23 de Junio del 2003

hola a todos

tengo la necesidad de llamar desde un boton al cuadro de dialogo de la impresora, para sea windows el que gestione las propiedades de impresión, pero tengo muchas pegas. Se me muestra una vez y luego no vuelve a salir y no se como mandarle el fichero que deseo imprimir.

Gracias por vuestra atención y gracias a todos por adelantado.

Emilson
23 de Junio del 2003

Para mostrar el cuadro de dialogo de imprimir solo deberas usar este comando sys(1037) Ejemplo:

local cPrinter
m.cPrinter=sys(1037)
if isblank(m.cPrinter)
wait window "No a seleccionado ninguna impresora"
return .f.
endif
set printer to name (m.cPrinter)
*!* report form <nombre reporte> noconsole to printer.

ok, el cuadro de dialogo que te aparecera de allí solo podras especificar la impresora pero no podras cambiar el tamaño de papel... bueno si lo cambiaras pero el reporte cuando lo creas guarda el tamaño que utilizara para siempre aun que la impresora tenga otro predeterminado. estas 8 lineas las podrias abreviar de la siguiente manera.

reporte form <nombre reporte> noconsole to printer prompt.

el "prompt" te mostrara el cuadro para poder especificar a que impresora lo deseas enviar a igual al ejempo que te di. Espero te sirva.