prepress-tips

カンプ出力の自動化

最終更新：2008年05月23日 12:03

prepress-tips

- view

管理者のみ編集可

最終更新日時： 2008/05/23

adobe reader を使う

psファイルに出力する

perlスクリプトと perl で

AdobePS と acrobat用ppd を使って

Edit

adobe reader を使う

コマンドラインでPDFファイルを印刷する　その２　その３
これらの頁を読むと adobe reader を使ってコマンドラインから印刷ができるみたい。試しにサンプルを作ってみた。

コマンドラインから印刷するサンプルスクリプト

実行法は次の通り。
1. ソースをコピーして test.js に保存する（プリンタ名は適切に変えておく）。
2. "C:\WINDOWS\system32\wscript.exe" のエイリアスを作って
  プロパティを開き次のように変える。
  - リンク先 → 後ろに test.js sample.pdf を追加
  - 作業フォルダ → 空欄にする
3. エイリアスをダブルクリックすると sample.pdfが印刷されるはず。
adobe reader のコマンドライン・オプションについては以下の頁が参考になった。
Adobe Reader 8.1の起動オプション，　エクセルからPDFファイルを印刷する
動作は Adobe Reader のバージョンに依存するらしく、
Adobe Reader 8.1 では動いたが Adobe Reader 8.0 では動かなかった。

psファイルに出力する

しかしこれでは設定をいろいろと変えることができないので、専用のプリンタ
ドライバを用意しかつ出力をいったんファイルに書くよう工夫してみた。

oki ml3050cv の場合

oki ml9500ps の場合

oki ml9800ps-e / ml9800ps-x の場合

ricoh iamgio neo c240ps の場合

部数はうまく変わるが、
用紙サイズの自動変更はほとんどのプリンタでうまく動かない。

perlスクリプトと perl で

perlスクリプトと pelr で書き直してみた。

perlスクリプト

実行はソースをコピーして test.pls に保存し次の通り。
C:\WINDOWS\system32\cscript.exe //nologo test.pls sample.pdf

perl

実行はソースをコピーして test.pl に保存し次の通り。
perl test.pl sample.pdf

AdobePS と acrobat用ppd を使って

プリンタドライバをいくつもインストールするのは面倒。用紙サイズの自動切り替えもうまくいかないので、AdobePSプリンタドライバと acrobat用ppd を使って少し工夫してみた。
- AdobePSプリンタドライバは Adobeダウンロードからダウンロード。
  （ Windows 用ユニバーサルインストーラ1.0.6日本語版）
- ppdは acrobat distillerフォルダの xtrasフォルダの中の J の付いたものを使用。
- プリンタドライバのインストールは oki ml3050cvの場合とほぼ同じ。
  - 部数は 2部（部単位のチェックははずす）。
  - oki ml3050cv を使うときは言語レベルを 2 にする。
Adobe Reader のプリントアウトの設定は次のようにする。
- [ 部単位で印刷 ] のチェックをはずす。
- [ 自動回転と中央配置 ] のチェックを入れる。
- [ ページサイズに合わせて用紙を選択 ] のチェックを入れる。
これらはレジストリエディタで設定することができる。
1. 以下のレジストリ設定の内容をコピーしユニコードで test.reg に保存する。
2. 次のコマンドを実行する。 regedit /s test.reg

レジストリ設定

Adobe Reader が設定する用紙サイズはプリンタによっては定型の用紙サイズとして認識されないので補正する。
- ps中で次の行を検索しさらにその次の行を補正する。
  %%BeginFeature: *CustomPageSize True
用紙サイズ変更時センタリングの位置が変わってしまうので補正する。
- ps中で次の行を検索しさらにその次の行を補正する。
  Adobe_AGM_Core/driver_check_media_override gx
プリンタによっては psファイルの前後に PJLコマンドを付ける必要がある。
- 前に：　　<esc>%-12345X@PJL JOB<lf>
  @PJL ENTER LANGUAGE = POSTSCRIPT <lf>
- 後ろに：　<eot><esc>%-12345X@PJL EOJ<lf>

psを補正するスクリプト例（ perl ）

#-- psの補正

sub ps_alt {
    my    ( $out, $ps, $count, $opt, ) = @_;

    {  # 入力psのオープン
        open( PSIN, $ps ) ||
            do{ print "  open error PSIN !\x0a"; exit; };
        binmode( PSIN );
    }

    {  # 出力psのオープン
        open( PSOUT, ">$out" ) ||
            do{ print "  open error PSOUT !\x0a  $out\x0a"; exit; };
        binmode( PSOUT );
    }

    {   # ヘッダ
        $opt =~ /^r/i && do {
            print PSOUT
                "\x1b\%-12345X\@PJL JOB\x0a" .
                "\@PJL ENTER LANGUAGE = POSTSCRIPT \x0a";
        };
    }

    my    ( $tf, $ok ) = ( 0, 0, 0 );
    my ( $psize_chg_w, $psize_chg_h ) = ( 0, 0 );
    my    $buf= '';
    while( 1 ) {
        length( $buf ) < 1024 &&
            read( PSIN, $buf, 1024, length( $buf) );
        $buf eq '' && eof( PSIN ) && last;

        {  # タイトル
            $tf ||
                $buf =~ /^(%%Title:\s*).*?([\x0d\x0a]+)/i && do {
                    $tf = 1; $buf = substr( $buf, length( $& ) );
                    print PSOUT $1.$out.$2; next;
            };
        }

        {  # 部数
            my    $copies  = '%%BeginNonPPDFeature: NumCopies';
            my    $copies2 = '/languagelevel';
            $ok ||
                $buf =~ /^($copies\s*).*?([\x0d\x0a]+).*?($copies2\s)/i && do {
                    $ok = 1; $buf = substr( $buf, length( $& ) );
                    print PSOUT $1.$count.$2.$count.' '.$3; next;
            };
        }

        {  # 頁サイズ
            my    $psize = '%%BeginFeature: \*CustomPageSize True';
                $buf =~ /^($psize\s*)([0-9. ]*)([\x0d\x0a]+)/i && do {
                    $buf = substr( $buf, length( $& ) );
                    ( $psize_chg_w, $psize_chg_h ) = ( 0, 0 );

                    my    ( $s1, $s2, $s3 ) = ( $1, $2, $3 );
                    $s2 =~ /^([0-9.]+) +([0-9.]+) +([0.]+ +[0.]+ +1 *)/i || do {
                        print "  page size - unknown format !\x0a";
                        print PSOUT $s1.$s2.$s3; next;
                    };

                    my    ( $w, $h, $x, $r ) = ( $1, $2, 0, $3 );
                    $w < $h || ( ( $w, $h, $x ) = ( $h, $w, 1 ) );
                    my    @hm = ( 297, 364, 420, 453 );
                    my    @hi = map do { $_ / 25.4 * 72; }, @hm;
                    my    %hm2wm = (
                              "297" => "210", "364" => "257",
                              "420" => "297", "453" => "328",
                          );
                    my    %hi2wi = ();
                    map do {
                        $hi2wi{ $_ / 25.4 * 72 } = $hm2wm{ $_ } / 25.4 * 72;
                    }, @hm;
                    my    ( $hh, $d ) = ( 453 / 25.4 * 72, 0.5 / 25.4 * 72 );
                    map do {
                        $h - $d < $_ && $w - $d < $hi2wi{ $_ } &&
                            ( $hh = $_ );
                    }, reverse @hi;
                    my    $ww = $hi2wi{ $hh };
                    ( $ww - $d < $w && $w < $ww + $d && $hh - $d < $h ) || do {
                        $ww < $w && $w < $ww + $d && ( $ww = $w );
                        $hh < $h && $h < $hh + $d && ( $hh = $h );
                        $x && ( ( $ww, $hh, $w, $h ) = ( $hh, $ww, $h, $w ) );
                        $s2 = "$ww $hh $r";
                        print "  page size changed :\x0a" .
                              "    $w → $ww  $h → $hh\x0a";
                        ( $psize_chg_w, $psize_chg_h ) =
                            ( ( $ww - $w ) / 2, ( $hh - $h ) / 2 );
                    };
                    print PSOUT $s1.$s2.$s3; next;
            };
        }

        {  # センタリング
            my    $ct = 'Adobe_AGM_Core/driver_check_media_override gx';
            ( $psize_chg_w == 0 && $psize_chg_h == 0 ) ||
                $buf =~ /^($ct\s*\[ *1 +0 +0 +-1 +)([0-9.-]+) +([0-9.-]+)( *\] *ct[\x0d\x0a]+)/i && do {
                    $buf = substr( $buf, length( $& ) );
                    my    $ct_wh = sprintf "%.3f %.3f", $2 + $psize_chg_w, $3 + $psize_chg_h;
                    print PSOUT $1.$ct_wh.$4; next;
            };
        }

        $buf =~ /^.*?[\x0d\x0a]+/i && do {
            $buf = substr( $buf, length( $& ) ); print PSOUT $& ; next;
        };

        print PSOUT $buf; $buf = '';
    }

    {  # フッタ
        $opt =~ /^r/i && do {
            print PSOUT
                "\x04\x1b\%-12345X\@PJL EOJ\x0a";
        };
    }

    {  # 入力ps・出力psのクローズ
        close( PSOUT );
        close( PSIN );
    }

    return $ok;
}

Edit

「カンプ出力の自動化」をウィキ内検索

人気記事ランキング

最近更新されたページ

急上昇Wikiランキング

急上昇中のWikiランキングです。今注目を集めている話題をチェックしてみよう！

人気Wikiランキング

atwikiでよく見られているWikiのランキングです。新しい情報を発見してみよう！

新規Wikiランキング

最近作成されたWikiのアクセスランキングです。見るだけでなく加筆してみよう！

全体ページランキング

最近アクセスの多かったページランキングです。話題のページを見に行こう！

カンプ出力の自動化

adobe reader を使う

psファイルに出力する

perlスクリプト と perl で

AdobePS と acrobat用ppd を使って

更新履歴

perlスクリプトと perl で