Duvida Lista de impressoras da sessão do usuário logado

Boa tarde
Gostaria de saber se algum dos senhores tem uma rotina ou procedure que mostre a lista de impressoras da sessão do usuário logado e permita escolher uma delas.
Obrigado

Achei um bom exemplo aqui no fórum.

system-dialog printer-setup.
message sessionrinter-control-handle
sessionrinter-port
sessionrinter-name.

message session:get-printers().

output to printer value(sessionrinter-name).
put unformatted "http://www.4each.com.br".
output close.

Tem essa possibilidade aqui também:

Código:

for each imprsor_usuar no-lock
    where imprsor_usuar.cod_usuario = 'usuario-desejado':  /* use c-seg-usuario */
    message imprsor_usuar.nom_impressora skip
            imprsor_usuar.nom_disposit_so
                  view-as alert-box information buttons ok.
end.

Chaves

Obrigado pelo apoio.