|
I have a PDF file stored in the IFS. I'd like to be able to initiate a
print from the iSeries. I've been able to use GhostScript to do this from
a PC command line, however, I'd rather use this Infoprint Transform Manager
that we have. So, I do something like the following program, and I release
the resulting spool to a printer with transforms enabled. I always get a
'CPFB567 : Input image too small.' Incidentally, I tried to print
PostScript using a similar method and got the same error a couple years ago
and gave up. Does anyone have any insight into what I might be doing
incorrectly?
C Eval fd=$Open('/testsmall.pdf':
C 1)
C
C CallP $QCMDEXC('OVRPRTF FILE(QSYSPRT) +
C DEVTYPE(*USERASCII)':100)
C Open QSYSPRT
C
C DoU len<1
C Eval
len=$Read(fd:%addr(rddata):%size(rddata))
C If Len>0
C Except
C EndIf
C EndDo
C
C Close QSYSPRT
C CallP $QCMDEXC('DLTOVR FILE(QSYSPRT)':100)
C
C Callp $Close(fd)
C
OQSysPrt E
O PrtRec 1
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.