トクダ 2011-4-22 10:23
[返信] [編集]
ＥＸＣＨＡＮＧＥさん、ありがとうございます。
ＥＸＣＨＡＮＧＥさんのアドバイス通りやってみましたが、
改行されてしまいました。
説明が下手でごめんなさい。
いまは下記のようにしています。
*****************************************************************************
01 MEISAII91.
02 FILLER PIC X(03) VALUE ""制御コード"".
WRITE PRNT-R FROM MEISAII91 AFTER 0. <-- この時点ではプリンタは動きません。
データが来てる様子もないです。
BEFOR 0 でも駄目でした。
CLOSE PRNT-F. <-- この後、一行改行されます。
STOP RUN.
ＯＣＲフォント指定が有効になります。
*****************************************************************************
他に試してみたやり方です。
その１
*****************************************************************************
01 MEISAII91.
02 FILLER PIC X(03) VALUE ""制御コード"".
WRITE PRNT-R FROM MEISAII91 AFTER 1. <-- １行改行されます。
CLOSE PRNT-F. <-- 改行されません
STOP RUN.
これはＯＣＲフォント指定が有効になります。
*****************************************************************************
その２
*****************************************************************************
01 MEISAII91.
02 FILLER PIC X(03) VALUE ""制御コード"".
WRITE PRNT-R FROM MEISAII91 AFTER 0. <-- １行改行されません。
STOP RUN.
CLOSEしないで終わってみました。
これはＯＣＲフォント指定が有効になりません。
*****************************************************************************
その３
*****************************************************************************
01 MEISAII91.
02 FILLER PIC X(03) VALUE ""制御コード"".
01 MEISAII92.
02 FILLER PIC X(04) VALUE "TEST".
WRITE PRNT-R FROM MEISAII91 AFTER 0. <-- １行改行されません。
WRITE PRNT-R FROM MEISAII92 AFTER 1. <-- １行改行されます。
STOP RUN.
一行印刷して、CLOSEしないで終わってみました。
これはＯＣＲフォント指定が有効になります。
*****************************************************************************
試してみると改行(ＣＲ）がないとあかんのかなぁと思ったりしました。
書き方がまずかったりするんでしょうか？
|
