/* Macro AREXX pour Finalwriter 97 */
/* EPS-PDF génère le fichier EPS et utilise GHOSTSCRIPT pour le convertir en PDF. */
/* $VER: EPS-PDF 2.0 */

Options Results

Requesttext '"Conversion EPS -> PDF" "Quel sera le nom du fichier PDF (sans .pdf) ?" ""'
prog=result

PostscriptFile prog
PrintSetup PRINTTO psfile
PSPrintPrefs PAGETYPE A4
Print

Open(fiche,"T:Tmp",'Write')
    WriteLN(fiche,"stack 40000")
    WriteLN(fiche,"Ghostscript:GS -dNOPAUSE -sDEVICE=pdfwrite -sPAPERSIZE=a4 -dBATCH -sOutputFile="prog||".pdf" prog)
Close(fiche)

showmessage 1 0 '"Conversion en fichier PDF" "" "" "OK" "" ""'

address command 'Execute T:Tmp'
address command 'copy ram:env/sys/def_pdf.info to 'prog||".pdf.info"
address command 'Delete' prog
address command 'Delete' prog||".info"
address command 'Delete T:Tmp'
address command 'Delete ENV:File'

showmessage 1 0 '"Conversion en PDF terminée" "" "" "OK" "" ""'