|
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.