BRIAN,
HAVE INCLUDED RELEVANT INCLUDE FILES AT START AND PROGRAM CODE AT END.


!
!     CONTAINED IN INCLUDE FILE -PRTVARC.INC. USED IN ALL PRINT OVERLAYS
!


!***************************************************************************************!
!     # BUFFER READ - PATH FOR PDF AND HTML PRINTER OUTPUT FILES FOR SHELLEXECUTE/LAUNCH
!***************************************************************************************!
!
!  VARIABLE DECLARATIONS
!
     LENGTH 254  &  LOCAL  HTMPDFPATH$
!
!  RECORD FORMAT            FIELD DESCRIPTIONS        TYPE LENGTH POS!
HTMPDFPATH: FORMAT_
        HTMPDFPATH$          ! PATH FOR PDF/HTML FILE   S    254    0
!
!***************************************************************************************!
!     VARIABLES FOR DOCUMENT MANAGER/PDF/HTML/TEXT DOCUMENT COPY
!***************************************************************************************!
!
!  VARIABLE DECLARATIONS
!
     LENGTH   1  &  LOCAL  ADPHXCHAR$             
     LENGTH   2  &  LOCAL  ADPHXAX$,ADPHXCX$             
     LENGTH   3  &  LOCAL  ADPHXDIR$             
     LENGTH 254  &  LOCAL  ADPHXPATH$,ADPHXFILE$             
     LENGTH 3.0  &  LOCAL  ADPHXLEN   
!
!***************************************************************************************!
        
!
!     -PRTEND.INC USED AT END OF ALL PRINT JOBS
!
!
!     ROUTINE FOR ENDING PRINT PROGRAMS FOR WINDOWS PRINTERS
!     TESTING ZPT$ NE 'A,S,T,X' - NOT ARCHIVED,SPOOLER,TEXT,EXCEL - RESET DEFAULT FONT
!     TESTING ZPT$ = 'A'        - ARCHIVE SPOOLER - RESET DEFAULT FONT
!     TESTING ZPT$ = 'P'        - PRINT A TRAILING FORM FEED TO A PRINTER
!******************************************************************************!
!
     IF POS(ZPT$,'ASTX') = 0                        ! SKIP ARCHIVE,SPOOLER,TEXT,XCEL
        IF PRNTCORN$ = 'C'                          ! COMPRESSED PRINT/DOCUMENT MANAGER
           Gosub GDI.InitLogFont
           lfHeight$ = IntelD(12*20)
           lfFaceName$ = "Courier New"+NullByte$
           lfWeight$ = IntelD(FW.NORMAL)
           Gosub SetFont
           PRINT (1) (TR);(LineSpacing=6)
        ENDIF
     ENDIF   
     IF ZPT$ = 'A'                                   ! ARCHIVED
        IF ARCV$ = 'D'                               ! DOCUMENT MANAGER ARCHIVE 
           Gosub GDI.InitLogFont
           lfHeight$ = IntelD(12*20)
           lfFaceName$ = "Courier New"+NullByte$
           lfWeight$ = IntelD(FW.NORMAL)
           Gosub SetFont
           PRINT (1) (TR);(LineSpacing=6)
        ENDIF
     ENDIF 
!
     IF ZPT$ = 'P'                                   !  PRINT TRAILING FF FOR PRINTER
        PRINT (1,2800)
     ENDIF
!
!******************************************************************************!



!
!     -DOCCOPY.INC USED AT END OF ALL PRINT JOBS
!    'D00' IS A COMET CONFIGURED DIRECTORY WHERE I COPY FROM DOCUMENT MANAGER/PDF/HTML/TEXT PRINTS
!    THEN DECIDE IF I AM SAVING ARCHIVES/WORKING DOCUMENT MANAGER/PDF/HTML/TEXT DOCUMENTS
!    THIS FILE IS ALWAYS DELETED ON COMPLETION
!
!     ROUTINE TO COPY DOCUMENT MANAGER/PDF/HTML/TEXT PRINTS TO 'D00'
!******************************************************************************!
!
DOCCOPY:
     ADPHXDIR$ = 'D00'
     ADPHXLEN = LEN(HTMPDFPATH$)
DOCCOPY10:
     ADPHXCHAR$ = SUB(HTMPDFPATH$,ADPHXLEN,1)
     IF ADPHXCHAR$ = '\' GO DOCCOPY20
     ADPHXLEN = ADPHXLEN-1
     GO DOCCOPY10
DOCCOPY20:
     ADPHXFILE$ = SUB(HTMPDFPATH$,(ADPHXLEN+1),254)     	     
     ADPHXFILE$ = STRIP(ADPHXFILE$)
     ADPHXPATH$ = PATH(ADPHXDIR$)
     ADPHXPATH$ = ADPHXPATH$+ADPHXFILE$
     PRINT (CopyFile=HTMPDFPATH$,ADPHXPATH$,2048)
     HTMPDFPATH$ = ADPHXPATH$
     RETURN     	     
!
!******************************************************************************!


!
!     PROGRAM CODE AT END OF PRINT JOB
!
!
Include '-PRTEND.INC'
!
     CLOSE (1)
!
     IF POS(ZPT$,'DZ') > 0                          ! GET DATA PATH FOR DOC MGR/PDF/HTM/TEXT PRINTERS
        READ (#,HTMPDFPATH)                         
     	  HTMPDFPATH$ = STRIP(HTMPDFPATH$)
     	  GOSUB DOCCOPY
     ENDIF
!     	      
     IF ZPT$ = 'A'                                  ! ARCHIVED
     	  IF ARCV$ = 'D'                              ! DOC MGR ARCHIVE
           READ (#,HTMPDFPATH)
     	     HTMPDFPATH$ = STRIP(HTMPDFPATH$)
     	     GOSUB DOCCOPY                            ! COPY DOCUMENT TO 'D00'
     	     GOSUB BYTECHK                            ! CHECK FOR ZERO BYTES IN DOCUMENT
     	     IF NOBYTES$ = 'Y'                        ! IF ZERO BYTES DELETE DOCUMENT FROM 'D00'
     	     	  GOSUB DOCDEL
     	     	  GO 9994                               ! PROGRAM END
     	     ENDIF
     	  ENDIF 
     ENDIF
!     
!
!    ZPT$ = 'D' - OUTPUT TO DOC MGR
!    ZPT$ = 'Z' - PDF/HTML/TEXT PRINTER
!    ZPT$ = 'A' - OUTPUT TO DOC MGR ARCHIVE
!
!    I CODED A STOP AFTER THE READ TO SEE WHAT IS IN HTMPDFPATH FROM COMETPDF USER FOLDER
!    AND GET BLANKS. THE WRITING OF THE COMETPDF FILE IS STILL BEING PERFORMED AT THIS POINT (SHOWING IN THE PROGRESS TOOBAR)
!    I TRIED A PAUSE (5 MINUTES) AFTER THE CLOSE BUT SAME RESULT.
!    SO I AM SENDING BLANKS TO THE DOCCOPY ROUTINE AND THE PROGRAM HANGS.
!    WORKS FINE FOR HTML BUT NOT FOR PDF.