@lfortuny, vamos a suponer que estás utilizando PowerCobol en alguna de sus versiones , por lo que estás poniendo, claro.
Yo lo que hago es llamar al "Print Control" con la opción "SetPrinter", ahí que seleccionen la impresora que quieran y después mover ese valor a una variable o a lo que lo necesites, (un StaticText, TextBox Control, ...)
Código COBOL:
INVOKE PRINT1 "SetPrinter".
MOVE "PrinterName" OF PRINT1 TO ...
No sé si es eso lo que necesitas exactamente ....
O si no necesitas seleccionar la impresora, puedes hacerlo directamente quitando la primera línea
Un salu2.-
Por cierto, muevo el tema al subforo más adecuado si no indicas lo contrario.