Tema: Armar un PDF
Ver Mensaje Individual
  #2
Antiguo 2 de septiembre de 2020, 14:09
Gusaiello
Forero Activo
Concurso: Segundo puesto: Ganador/a del Segundo puesto en un concurso - Issue reason: Generador de código QR encriptado Activista del Foro: Activista del Foro - Issue reason: Por aportar ejecrcicios para los novatos 
Última Actividad 21.09.2026 13:16
Posts Posts: 236
Likes enviados Enviados: 150
Likes recibidos Recibidos: 139

No se si esto te servirá por que yo uso AcuCobol GT y para generar pdf uso PDFCreator el ual simula una impresora.

Código COBOL:
  1.            IF CHOSEN-PRINTER = "PDFCreator"
  2.               STRING NOMBRE-CLI DELIMITED BY "  "
  3.                      "-"
  4.                      LETFAC-AUX
  5.                      "-"
  6.                      SUCFAC-AUX
  7.                      "-"
  8.                      NUMFAC-AUX
  9.                      ".PDF"     DELIMITED BY SIZE INTO NOMBRE-ARCHIVO
  10.               END-STRING
  11.  
  12.               MOVE 1 TO COPIAS
  13.               MOVE SPACES TO CARPETA-FACTURAS
  14.               STRING UNIDIR
  15.                      CLIDIR
  16.                      "FACTURAS" DELIMITED BY SIZE INTO CARPETA-FACTURAS
  17.               CALL "C$MAKEDIR" USING CARPETA-FACTURAS
  18.  
  19.               create @CLSPDFCREATOR OF PDFCREATOR handle in PDF-cre
  20.               create @CLSPDFCREATOROPTIONS OF PDFCREATOR
  21.                                                   handle in PDF-OPT
  22.               MODIFY PDF-cre, cSTART("NoprocessingAtStartup",0)
  23.               modify pdf-CRE, @cOption("Useautosave",1)
  24.  
  25.               MOVE SPACES TO ADJUNTO
  26.               STRING CARPETA-FACTURAS DELIMITED BY SPACE
  27.                      ""
  28.                      NOMBRE-ARCHIVO   DELIMITED BY SIZE INTO ADJUNTO
  29.  
  30.               modify pdf-CRE, @cOption("autosavedirectory",
  31.                                                        CARPETA-FACTURAS)
  32.               modify pdf-CRE, @cOption("autosaveFilename",
  33.                                                          NOMBRE-ARCHIVO)
  34.               modify pdf-CRE, @cOption("autosaveFormat",0)
  35.               modify pdf-CRE, @cOption("AutosaveStartStandardProgram",0)
  36.  
  37.               modify pdf-CRE, @cClearCache()
  38.            END-IF.

Una vez configurado PDFCreator guarda, en este caso una factura, con el nombre indicado y en la carpeta indicada.

Espero que te sea de utilidad.
Gusaiello is offline   Responder Con Cita