Clube Cobol

[Jair]

Para obtenção das impressoras instaladas no Windows é preciso usar as rotinas PC_PRINTER.
Eu costumo já definir todas a variáveis abaixo para trabalhar com todas estas rotinas:
01 PRN-INFO-STR IS TYPEDEF.
02 PI-STR-SIZE PIC X(04) COMP-5.
02 PRN-HDC PIC X(04) COMP-5.
02 PRN-HPS PIC X(04) COMP-5.
02 PRN-ORIENTATION PIC X(04) COMP-5.
02 PRN-ROWS PIC X(04) COMP-5.
02 PRN-COLS PIC X(04) COMP-5.
02 PRN-ROWS-LF PIC X(04) COMP-5.
02 PRN-MAX-HORIZ PIC X(04) COMP-5.
02 PRN-MAX-VERT PIC X(04) COMP-5.
02 PRN-MIN-HORIZ PIC X(04) COMP-5.
02 PRN-MIN-VERT PIC X(04) COMP-5.
02 PRN-CURR-HORIZ PIC X(04) COMP-5.
02 PRN-CURR-VERT PIC X(04) COMP-5.
02 PRN-COPIES PIC 9(04) COMP-5.
02 PRN-QUALITY PIC 9(04) COMP-5.
02 PRN-COLOR PIC 9(02) COMP-5.
02 F PIC X(01) COMP-5.
02 PRN-DEVICE-VER PIC 9(04) COMP-5.
02 PRN-NAME.
03 PRN-PNAME-SIZE PIC X(04) COMP-5.
03 PRN-PNAME POINTER.
02 PRN-TYPE.
03 PRN-PTYPE-SIZE PIC X(04) COMP-5.
03 PRN-PTYPE POINTER.
02 PRN-DEVICE.
03 PRN-PDEVICE-SIZE PIC X(04) COMP-5.
03 PRN-PDEVICE POINTER.
02 PRN-LOCATION.
03 PRN-PLOCATION-SIZE PIC X(04) COMP-5..
03 PRN-PLOCATION POINTER.
02 PRN-COMMENT.
03 PRN-PCOMMENT-SIZE PIC X(04) COMP-5.
03 PRN-PCOMMENT POINTER.
02 PRN-PAPER.
03 PRN-PPAPER-SIZE PIC X(04) COMP-5.
03 PRN-PPAPER POINTER.
01 PRN-GROUP.
02 PRN-HANDLE PIC X(04) COMP-5.
02 PRN-TITLE.
03 PRN-TITLE-LEN PIC X(02) COMP-5.
03 PRN-TITLE-TXT PIC X(128).
02 PRN-NOME.
03 PRN-NOME-LEN PIC X(02) COMP-5.
03 PRN-NOME-TXT PIC X(128).
02 PRN-FLAG PIC X(04) COMP-5.
02 PRN-STATUS PIC X(02) COMP-5.
02 PRN-INFO PRN-INFO-STR.
02 PRINTER-TYPE PIC X(255).
02 PRINTER-LOCATION PIC X(255).
02 PRINTER-COMMENT PIC X(255).
02 PRINTER-PAPER-SIZE PIC X(255).
02 PRINTER-NAME PIC X(255).
02 PRINTER-DEVICE PIC X(255).
02 LINBUF PIC X(8192).
02 LINHA-LEN PIC X(04) COMP-5.
02 CONT-LIN PIC 9(04).
01 GROUP-FONT.
02 FONT-FAMILY.
03 FONT-LEN PIC X(02) COMP-5.
03 FONT-TXT PIC X(50).
02 FONT-SIZE PIC X(04) COMP-5.
02 FONT-STYLE PIC X(04) COMP-5.
_________________
Jair - Campo Grande/RJ
NetExpress 3.1/DialogSystem
NetCobol 10/PowerCobol
MySql 5.1/PostgreSQL 8.3
Crystal Reports XI/PowerFORM

[Jair]

Para abrir a caixa de diálogo para seleção de impressoras é necessário os passos:
1. Acrescentar o valor 1 ao flag;
2. Atribuir um título qualquer ao relatório, exemplo: MOVE "Abertura" TO PRN-TITLE-TXT e mover o comprimento desta string para a variável PRN-TITLE-TXT.
_________________
Jair - Campo Grande/RJ
NetExpress 3.1/DialogSystem
NetCobol 10/PowerCobol
MySql 5.1/PostgreSQL 8.3
Crystal Reports XI/PowerFORM

[Jair]

Por fim você faz a chamada a rotina:
CALL "PC_PRINTER_OPEN" USING PRN-HANDLE PRN-TITLE
BY VALUE PRN-FLAG
BY VALUE 0
RETURNING PRN-STATUS.
_________________
Jair - Campo Grande/RJ
NetExpress 3.1/DialogSystem
NetCobol 10/PowerCobol
MySql 5.1/PostgreSQL 8.3
Crystal Reports XI/PowerFORM