Posted by Grant Foraker on November 21, 2005 at 10:01:54:
Converted my Misc 1099 print program to a dialog. After opening the printer I get it's information ...
GetPrinterInfo:
PRINT (1,FMT.SELECTSYSFONT2)
PRINT (1, FMT.PAGEINFOPHYSOFFSET)
GOSUB GETRESULT
XOFF = LORESULT
YOFF = HIRESULT
GOSUB CALCLINEHEIGHT
LET LHGT = LINEHEIGHT
PRINT (1, FMT.SETBKMODETRANSPARENT)
PRINT (1) (TR);(FF) ! BUG FIX
Return
If the operator clicks "OK" the program proceeds to the print overlay via ENTER. If the operator clicks "Line Up", a line up pattern is printed and the EVENTWAIT is reset. If the operator click "CANCEL" then the program returns to it's menu ...
------------------------v.ibs ---------------------------------------
IF SEL$ NE 'B'
PRINT (0) (CS)
PRINT (0) (WC);(BF)
ENDIF
CLEAR
ERRORTO 9800
!
PRINT (SetWindowCaption = "Vendor Analysis Menu",1)
!
INCLUDE '^CPL80.INC'
LET SEL$ = 'V' ! SET RETURN CODE
LET MENU$ = 'V'
!
INCLUDE '^MENU80C.INC'
!
LET ZMTITLE1$ = ' VENDOR '
LET ZMTITLE2$ = ' ANALYSIS '
!
INCLUDE '^INMODE.INC'
----------------------------------------------------------------------
!==================== ^INMODE ======================================!
! !
CLOSE
OPEN (0) TERM$
PRINT (0) (UpperCaseInput)
OPEN (50) TERM$
PRINT (50) (NormalInput)
When the program gets to the CLOSE it will hang for 20-25 seconds before continuing. I traced this with the debugger.
If a line up pattern is printed and then the "CANCEL" is clicked the CLOSE does not hang. If I move the GetPrinterInfo, so it it not executed unless the "Line Up" or "OK" has been clicked there is no hang.
I've watched the pdfFactory printer spool dialog and the print job goes from spooling to cancelling and disappears in less than a second but the menu program continues hung at the CLOSE.