Progress - Impresión

Hola Programadores Progress:

Favor, necesito un ejemplo de cómo imprimir en ambiente Gráfico versión 10.1C, utilizando la instrucción SYSTEM-DIALOG PRINTER-SETUP, no sé cómo capturar el nombre de la impresora seleccionada.

De antemano. muchas gracias.

Te mando un pequeño ejemplo:

DEFINE BUTTON bprintset LABEL "Printer Setup".
DEFINE BUTTON bprintnames LABEL "Print Customer Names".
DEFINE BUTTON bcancel LABEL "Cancel".
DEFINE FRAME PrintFrame
bprintset bprintnames bcancel
WITH TITLE "Quick Printer" VIEW-AS DIALOG-BOX.

ON CHOOSE OF bprintset DO:
SYSTEM-DIALOG PRINTER-SETUP.
END.

ON CHOOSE OF bprintnames DO:
OUTPUT TO PRINTER.
FOR EACH customer BY name:
DISPLAY name WITH STREAM-IO.
END.
OUTPUT CLOSE.
END.

ENABLE ALL WITH FRAME PrintFrame.
WAIT-FOR CHOOSE OF bcancel IN FRAME PrintFrame.

OK.

:)