ＯＣＲ用フォントについて
1:ＯＣＲ用フォントについて
トクダ 04/18 11:57
こんにちは。
ＯＣＲ用フォントについてアドバイスをお願いします。

伝票にOCR用フォントで印刷したいのですが可能でしょうか。
下記の古い環境なんですが・・・
出来ればＳＭＡＲＴ�兇�ら印刷したいです。
難しいようならＣＯＢＯＬ８５からでも。

よろしくおねがいします

環境
ＯＳ -> ＷｉｎｄｏｗｓＮＴ
Ａ−ＶＸ -> Ａ−ＶＸ�� Ｒ ３．５１
ＷＳエミュレータ -> ＰＣ／ＷＳエミュレータ(32) Ver6.00
プリンタ -> 日本語カラーシリアルプリンタＮ１１４３−０５

2:Re: ＯＣＲ用フォントについて
温泉好きのうさぎ 04/20 21:14
N1143-05というと、CKSP150C のことだと思われます。
KSP系のプリンタでは、OCR文字を印字する機能はありませんが、字体をHSパイカモードとすることで、OCR装置で読み取ることができます。

HSパイカモードで印字するためには以下のESCシーケンスの制御符号を使用します。
16進数による表現方法　""277BF9""

元の字体に戻すには、HDパイカモードの指定をします。その制御符号は、""277BF8"" です。

3:Re: ＯＣＲ用フォントについて
トクダ 04/21 11:53
温泉好きのうさぎさん

アドバイスいただいた通り、ESCシーケンスでHSパイカモードを使ってみたら出来ました！
ありがとうございます。
ふだん制御符号はあまり使わないので勉強になりました。
あとESCシーケンスを見ていると、擬似OCRフォントというのがありました。
それを使っても出来ました。

ただ、ひとつ問題が・・・
フォント指定だけCOBOLでやって、印刷はSMART�兇任笋蹐Δ箸靴討い泙后�
私のCOBOlの書き方の問題かもしれませんが。
制御符号を送った後に、何らかの形で改行しないと設定が有効にならないんです。
改行しないで有効にする方法はないでしょうか？

COBOL
*************************************
WRITE XXXX FROM YYYY AFTER 0.
*************************************
AFTER 0 にすると、改行はしないですが有効になりません。
AFTER 1 にすると、改行して有効になります。

AFTER 0 で ファイルをCLOSEすると、改行されて有効になります。
AFTER 0 で ファイルをCLOSEしないで終了すると、改行されませんが有効になりません。

AFTER 0 でも COBOLでなにか印刷すると、有効になっています。一行余分に改行するわけではありません。

説明が分かりにくいかもしれませんが、
アドバイスいただけると助かります。


4:Re: ＯＣＲ用フォントについて
ＥＸＣＨＡＮＧＥ 04/21 19:06
ＭＯＶＥ ""制御コード"" ＴＯ　ＡＡ．
ＷＲＩＴＥ　ＰＲ−ＲＥＣ　ＦＲＯＭ　ＡＡ　ＢＥＦＯＲＥ　０．

というやり方で出来たような記憶があるのですが、だめでしょうか？

5:Re: ＯＣＲ用フォントについて
トクダ 04/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しないで終わってみました。
これはＯＣＲフォント指定が有効になります。
*****************************************************************************

試してみると改行(ＣＲ）がないとあかんのかなぁと思ったりしました。
書き方がまずかったりするんでしょうか？


前次1-新書板
BluesBB ©Sting_Band