O Forms é simples, atachei a biblioteca D2KWUTIL.PLL, criei um campo char de 100 e um botão com uma trigger com o seguinte comando:
declare
impressora varchar2(100);
porta varchar2(100);
begin
win_api_dialog.select_printer(impressora,porta,false);
:impressora := impressora;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('ERRO: '||SQLERRM) ;PAUSE;
end ;
Caso alguém queira seguir os passos para debugar, terá que setar a chave do forms. É só entrar no DOS e digitar:
set FORMS60_TRACE_PATH=c:\temp
Grato
