Hrmcobol,
Aqui vai. Desculpa no escrever em espanhol, mas como sou Portugus 
Se no perceberes diz-me que eu posso traduzir-te para Ingls.
O OCX  pequeno : 28 Kbytes Est compactado em RAR (Alguns Emails no deixam passar os OCX)

Tambem envio a SOURCE em VB6 se quiseres alterar alguma coisa.


No POWERCOBOL deves inserir o OCX na Form (Tem que ser registado (REGSVR32) . Com o CMPRINT vais buscar a impressora pr-definida

   e guardas numa varivel Global (ou Global External )  por exemplo OLDDEFAULTPRINTER.

Em seguida usando o CMPRINT setprinter pedes ao usurio para escolher a nova impressora.

Em seguida colocas a nova impressora escolhida como default system printer.

Mandas imprimir em qualquer FORM da Aplicao.

Quando j no for necessrio,  voltas a colocar a impressora que estava inicialmente como default sistem printer  (OLDDEFAULTPRINTER).

O OCX s tem uma propriedade e um mtodo:

move "BroadGun pdfMachine" to "PrinterName" OF setdefaultprinter1.
( para indicar qual o nome exato da impressora que queres colocar como default)

INVOKE setdefaultprinter1 "PrinterSet".               

( executar a mudana da default printer )

Este OCX necessita de wshom.ocx (que existe sempre na pasta WINDOWS\SYSTEM32 ) .


Qualquer dvida manda-me Email.

Saludos,

Rui Pinto