Это было предложено мне много лет назад Томом Гриром через Tek-tips. Мы использовали этот код в течение почти десятилетия и всегда работали безупречно:
/ImageData
currentfile
<< /Filter /SubFileDecode
/DecodeParms << /EODString (*EOD*) >>
>> /ReusableStreamDecode filter
[-->PUT YOUR EPS HERE<--]
*EOD*
def
/IDForm
<< /FormType 1
/BBox [154 321 441 521]
/Matrix [ 1 0 0 1 0 0]
/PaintProc
{ pop
/ostate save def
/showpage {} def
/setpagedevice /pop load def
ImageData 0 setfileposition ImageData cvx exec
ostate restore
} bind
>> def
И использовать свой EPS:
gsave
IDForm execform
grestore
Мы встраиваем многочисленные EPS-файлы во все наши задания на печать, чтобы они были переносимыми. Если вы делаете то же самое, вам нужно продолжать переименовывать в функцию, которая читает данные и функцию формы соответственно.