Progress 4GL 生成PDF文件

adminelvis

OUTPUT TO "c:\small.pdf".

PUT UNFORMATTED
   "%PDF-1.4" SKIP( 1 )
   .
PUT UNFORMATTED
   "1 0 obj" SKIP
   "<< /Type /Catalog /Outlines 2 0 R /Pages 3 0 R >>" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "2 0 obj" SKIP
   "<< /Type /Outlines /Count 0 >>" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "3 0 obj" SKIP
   "<< /Type /Pages /Kids [ 4 0 R ] /Count 1 >>" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "4 0 obj" SKIP
   "<< /Type /Page /Parent 3 0 R /Resources << /Font << /F1 5 0 R >>  >> /MediaBox [0 0 595 842] /Contents 6 0 R >>" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "5 0 obj" SKIP
   "<< /Type /Font /Subtype /Type1 /Name /F1 /BaseFont /Helvetica /Encoding /WinAnsiEncoding >>" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "6 0 obj" SKIP
   "<< /Length 495 >>" SKIP
   "stream" SKIP
   "BT /F1 4 Tf 222 756 Td (Hello World!Elvis) Tj ET" SKIP
   "endstream" SKIP
   "endobj" SKIP( 1 )
   .
PUT UNFORMATTED
   "trailer" SKIP
   "<< /Size 6 /Root 1 0 R >>" SKIP
   "%%EOF" SKIP( 1 )
   .

OUTPUT CLOSE.
OS-COMMAND SILENT( "small.pdf" ).