Re: Error 30 on printers

Posted by Grant Foraker on March 10, 2017 at 13:27:39:

In Reply to: Re: Error 30 on printers posted by Barbara Brazil on March 09, 2017 at 15:21:45:

The logic between the OPEN and the ERROR is old and outdated. Could the 9890 logic be losing the "File" name?

GOSUB SetPrinterSpecifications
--------------------------------------------------------------------------------
SetPrinterSpecifications:
OPEN (1) ZLP$, EXCP = 9890
LET MESSAGE$ = QPNBR$ + '-' + QCOPY$ + '-' + QREV$
PRINT (1) (TR);(SpoolMessage = MESSAGE$)
PRINT (1) (TR);(SetOrientation = DMOrient.Landscape)

GOSUB INITPAGEINFO

! Exclude non-printable area
PRINT (1) (TR);(GetPageInfo = PTR.PAGEINFO.PHYSICALOFFSET)
GOSUB GETRESULT
XOFF = 360 - LORESULT
YOFF = 360 - HIRESULT
!
PRINT (1) (TR);(SetViewPortOrg = XOFF, YOFF) ! 1/4" margin on PDF
RETURN
--------------------------------------------------------------------------------
9890!
IF EXCP EQ 31 AGAIN ! BUSY, TRY AGAIN
IF EXCP EQ 30 GOTO ProgramError ! PRINTER PROBLEM
GOTO 9990
---------------------------------------------------------------------------------
ProgramError:
9800!
SELECT CASE EXCP
CASE 33 ! EXTRACT ERROR
ENTER 'WEXREC' ! DISPLAY EXTRACTS
ERRORTO ProgramError ! RESET
AGAIN
CASE ELSE
GOTO FatalError
ENDSELECT
!
FatalError:
ERROR
--------------------------------------------------------------------------------

Follow Ups:

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.