Joseg,
Utilizei durante algum tempo o OCX "axpdfvw.ocx" da Sky Sof.
Permitia ver o pdf e imprimir, etc.
Não sei se ainda andará por aí.
Se não encontrar diga-me que eu envio.
Um abraço,
Rui Pinto
---------- Post añadido : 23:08 ---------- Post anterior : 19:44 ----------
Joseg,
Encontrei a o código para usar o OCX do Post anterior.
COBOL Código:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STARTPAGE PIC S9(009) COMP-5 VALUE 1.
01 ENDPAGE PIC S9(009) COMP-5 VALUE 0.
01 PAGESCALING PIC S9(009) COMP-5 VALUE 0.
01 AUTOROTATE PIC S9(009) COMP-5 VALUE 0.
01 STRTITLE PIC X(128) VALUE "PDF".
01 STRPRINTER PIC X(256).
01 RETURNVALUE PIC S9(009) COMP-5.
PROCEDURE DIVISION.
MOVE "Text" OF CMDAPAG TO STARTPAGE.
MOVE "Text" OF CMAPAG TO ENDPAGE.
INVOKE CMPRINT1 "SetPrinter" RETURNING ReturnValue.
MOVE "PrinterName" OF CMPRINT1 TO STRPRINTER.
INVOKE PDFVIEWER1 "PrintPDF" USING strPrinter StartPage EndPage PageScaling AutoRotate strTitle RETURNING ReturnValue.
Não sei se ajuda.
Um abraço,
Rui Pinto
Marcadores