# prfiles Version. 1.04 (Sep. 23, 1999)
# Written by Hisao Kawaura
#
### description: 選択されたグラフファイル(*.tpz)を一括して印刷
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。

# Win32の場合は最初の設定を用いてください。Unixの場合は2番目番目の設定を
# 用い、lprのオプションを環境に合わせて設定してください。
# $prproc = "| tpv2prn -s";
# $prproc = "| tpv2ps | lpr";

# ファイルリストを表示するため、selectfileを用いる
if (selectfile(1, "(\\.[Tt][Pp][Zz]|\\.[Gg][Ee][Mm])"))
{
   # selectfileで複数選択されたファイル名は、特殊変数@_RETに返される
   open(PRINTER, $prproc);
   foreach $i (@_RET)
   {
      $graph->gropen($i);
      $graph->paintall(PRINTER);
   }
   close(PRINTER);
}

exit(0);