｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
   ■サンプルルーチン(スプーラ経由)の解説 
                     copyright エスアイエム 
─────────────────────────────────────
 ◆バーコードと罫線、複数フォントのサンプル(主処理) 
--＞ 印刷データは、スプールグローバルに可能されます。 
--＞ プリンタに印刷するには、 D ^ZVSJOB を起動して行います。 
--＞ プリンタに印刷する関数をコールすれば、ZVSJOB の起動を必要とせず 
    すぐに印刷できます。 
--＞ このでは、１ページの印刷ですが、多量のページを印刷する場合で 
    プリンタ印刷時に時間がかかりすぎる場合は、適当なページ数毎に 
    プリンタオープン、分割ページ印刷、プリンタクローズを 
    繰り返して処理すると効率良く処理が出来ます 
─────────────────────────────────────
 ZVSSAMP ;;;印刷管理ジョブテストレイアウト[25-JAN-2002]/for CACHE(DSM-J)/ 
  ;;;S.Mizuno/ on ESC-vcom++/小数点サポート/高解像度用/copyright S.I.M/[08-feb-2002] 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  W !!,"***＜＜＜ 高解像度用-レイアウト ＞＞＞***",! 
  S $ZT="TRAP^ZVSSAMP" ;;; 
  ;;;;;;;;;;[02-may-2001];;;;;;;;;;; 
  N %DEVICE S %DEVICE=0 ;;;$ZV[02-may-2001];;; 
  D  ;;;[30-nov-2001];;; 
  .U 0:WIDTH=0 Q  ;;;cache;;; 
  .;;;;;;U 0:0 ;;;msm;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S %PID=$ZN ;;;[24-JAN-2002];;; 
  S splno=$$VsOPEN^ZVSSPL(%PID,"テストの納品書(高解像度用)","A4","P","VCOM","LASERSHOT","","DPI") 
  S dmy=$$PAGESIZE^ZVSSPL(splno,66,160)    ;;;最大行数と桁数;;; 
  S PAGE=1 ;;;現在ページ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;D OPEN ;;;[08-feb-2002]これは実行してはいけない！;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S CRLF=$C(13)_$C(10) 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S dmy=$$VsAutoWrap^ZVSLPV1(1) ;;;自動改行を禁止;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;;[24-JAN-2002];;; 
  ;;;yesno=(0:自動改行する(横書き),1:しない(縦書き));;; 
  S setstr=$$VsInit^ZVSLPV1(splno)  ;;;＜＜標準的な初期化処理＞＞;;; 
  D FONT^ZVSSAMPF ;;;フォント指定情報ダウンロード;;;;;; 
  S setstr=$$VsOpenFonts^ZVSLPV1(splno)  ;;;＜＜標準的なオープン処理＞＞ 
  D FOPEN^ZVSSAMPF ;;;フォントオープン;;; 
  D ENAGDI ;;;グラフィックス描画を可能に;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S PATN=1,BIAS=1 D LAYOUT ;;;spool write test;;; 
  S PATN=2,BIAS=0 D LAYOUT ;;;spool write test;;; 
  S YYY=30.5 D SPLIT ;;; 
  S PATN=3,BIAS=0 D LAYOUT ;;;spool write test;;; 
  S YYY=61 D SPLIT ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D DISGDI ;;;グラフィックス描画を禁止;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D FCLOSE^ZVSSAMPF ;;;フォントクローズ;;; 
  S setstr=$$VsCloseFonts^ZVSLPV1(splno) ;;;＜＜標準的なクローズ処理＞＞ 
  S setstr=$$VsTerm^ZVSLPV1(splno)  ;;;＜＜標準的な終了処理＞＞;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D CLOSE ;;; 
  S dmy=$$VsCLOSE^ZVSSPL(splno) 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  W !!,"***＜＜＜ レイアウト 終了＞＞＞***",! 
  Q 
 LAYOUT ;;; 
  D BIAS ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;D FOPEN ;;;フォントオープン;;; 
  ;;;D FCLOSE ;;;フォントクローズ;;; 
  ;;;D ENAGDI ;;;グラフィックス描画を可能に;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S setstr=$$VsMainF^ZVSLPV1()   ;;;＜＜＜メインフォント印字モードに切替＞＞＞ 
  S X=Xb,Y=Yb ;;;各ブロックの先頭で[24-JAN-2002];;; 
  S dmy=$$VsPUTSEQ1^ZVSLPV1(splno,PAGE,Y,X,setstr) ;;;[24-JAN-2002];;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D DATAOUT ;;; 
  D PREPRNT ;;; 
  D SMALL ;;; 
  D LARGE ;;; 
  D GOUKEI ;;; 
  D KEISEN ;;; 
  S BAR="1008922140" D NW7 ;;;バーコード印刷(NW-7);;; 
  ;;;;;S BAR=$TR($J("1008922140",12)," ","0") D JAN12DG ;;;バーコード印刷(JAN12);;; 
  I PATN'=1 S BAR="20061890-ABCDEFGHIJKLMNOP" D CODE39 ;;; 
  D  ;;;閉じ穴;;; 
  .S xc=4,yc=1+Yb,xr=2,yr=1 D CIRCLE ;;; 
  .S xc=4,yc=26+Yb,xr=2,yr=1 D CIRCLE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 MAINFONT ;;;＜＜＜メインフォント印字モードに切替＞＞＞ 
  N setstr ;;;[24-JAN-2002];;; 
  S setstr=$$VsMainF^ZVSLPV1() ;;;printer Main Font;;; 
  S dmy=$$VsPUTSEQ1^ZVSLPV1(splno,PAGE,Y,X,setstr) ;;;[24-JAN-2002];;; 
  Q 
 LOCATE ;;;(X,Y);;;印刷位置指定;;; 
  N setstr ;;;[24-JAN-2002];;; 
  S setstr=$$VsXYPos^ZVSLPV1(X,Y,0,0) ;;;printer Main Font;;; 
  S dmy=$$VsPUTSEQ1^ZVSLPV1(splno,PAGE,Y,X,setstr) ;;;[24-JAN-2002];;; 
  Q 
 WRITE ;;;スプラーに書き込み;;; 
  S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Y,X,STR) ;;;[24-JAN-2002];;; 
  Q 
 PUTSEQ1 ;;;スプラーに書き込み;;; 
  S dmy=$$VsPUTSEQ1^ZVSLPV1(splno,PAGE,Y,X,STR) ;;;[24-JAN-2002];;; 
  Q 
 PUTSEQ2 ;;;スプラーに書き込み;;; 
  S dmy=$$VsPUTSEQ2^ZVSLPV1(splno,PAGE,Y,X,STR) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BIAS ;;; 
  D  ;;; 
  .I PATN=1 S Xb=20,Yb=1.5,XR=4 Q  ;;;上部/左部の空白(マージン);;; 
  .I PATN=2 S Xb=20,Yb=1.5+30.5,XR=4 Q  ;;;上部/左部の空白(マージン);;; 
  .I PATN=3 S Xb=20,Yb=1.5+61,XR=4 Q  ;;;上部/左部の空白(マージン);;; 
  S Ydecimal=.5,Ysmall=.2 ;;;罫線/小文字のY座標(小数点指定)[09-apr-2001];;; 
  S Yhin=.2 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 DATAOUT ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=2+Xb,Y=1+Yb D MAINFONT ;;;[24-JAN-2002]＜＜＜メインフォント印字モードに切替＞＞＞ 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=2+Xb,Y=1+Yb D LOCATE,MAINFONT S STR="99999999" D WRITE ;;;コード;;; 
  S X=12+Xb,Y=1+Yb D LOCATE,MAINFONT S STR="XXXXXXXX" D WRITE ;;;コード;;; 
  S X=92+Xb,Y=1+Yb D LOCATE,MAINFONT S STR="9999999999" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=12+Xb,Y=2+Yb D LOCATE,MAINFONT S STR="" D WRITE ;;;;;; 
  S X=92+Xb,Y=2+Yb D LOCATE,MAINFONT S STR="2001.99.99" D WRITE ;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=6+Xb,Y=3+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=6+Xb,Y=4+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮ  様" D WRITE 
  S X=6+Xb,Y=5+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+6+Xb,Y=6+Yb D LOCATE,MAINFONT S STR="〒999-9999" D WRITE ;;;POST;;; 
  S X=XR+18+Xb,Y=6+Yb D LOCATE,MAINFONT S STR="999-99-9999" D WRITE ;;;TEL;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+6+Xb,Y=7+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+6+Xb,Y=8+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+6+Xb,Y=9+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+43+Xb,Y=10+Yb D LOCATE,MAINFONT S STR="999999-XXXXXXXXXXXXXXXX" D WRITE ;;;;;; 
  S X=XR+9+Xb,Y=10+Yb D LOCATE,MAINFONT S STR="XXXXXXXXXXXXXXXXXXXXXXX" D WRITE ;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D  ;;;[16-apr-2001];;; 
  .I PATN=1 D  Q 
  ..S X=XR+72+Xb,Y=7+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮ" D WRITE 
  .D  Q 
  ..S X=XR+60+Xb,Y=3+Yb D LOCATE,MAINFONT S STR="〒999-9999" D WRITE ;;;;;; 
  ..S X=XR+60+Xb,Y=4+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ..S X=XR+66+Xb,Y=5+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮ" D WRITE 
  ..S X=XR+64+Xb,Y=6+Yb D LOCATE,MAINFONT S STR="099-999-9999" D WRITE ;;;TEL;;; 
  ..S X=XR+85+Xb,Y=6+Yb D LOCATE,MAINFONT S STR="099-999-9999" D WRITE ;;;FAX;;; 
  ..S X=XR+85+Xb,Y=7+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+75+Xb,Y=10+Yb D LOCATE,MAINFONT S STR="2001.99.99" D WRITE ;;;;;; 
  S X=XR+92+Xb,Y=10+Yb D LOCATE,MAINFONT S STR="9999999" D WRITE ;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+2+Xb,Y=12+Yb+Yhin D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+2+Xb,Y=13+Yb+Yhin D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+2+Xb,Y=14+Yb+Yhin D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+2+Xb,Y=15+Yb+Yhin D LOCATE,MAINFONT S STR=$TR($J("",30)," ","N") D WRITE 
  S X=XR+2+Xb,Y=16+Yb+Yhin D LOCATE,MAINFONT S STR=$TR($J("",30)," ","N") D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+67+Xb,Y=12+Yb+Yhin D LOCATE,MAINFONT S STR="     Z" D WRITE 
  S X=XR+67+Xb,Y=13+Yb+Yhin D LOCATE,MAINFONT S STR=" Z,ZZZ" D WRITE 
  S X=XR+67+Xb,Y=14+Yb+Yhin D LOCATE,MAINFONT S STR="   ZZZ" D WRITE 
  S X=XR+67+Xb,Y=15+Yb+Yhin D LOCATE,MAINFONT S STR="    ZZ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+74+Xb,Y=12+Yb+Yhin D LOCATE,MAINFONT S STR="    " D WRITE 
  S X=XR+74+Xb,Y=15+Yb+Yhin D LOCATE,MAINFONT S STR="   ＮＮＮＮ" D WRITE 
  S X=XR+74+Xb,Y=16+Yb+Yhin D LOCATE,MAINFONT S STR="   ＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+87+Xb,Y=12+Yb+Yhin D LOCATE,MAINFONT S STR="      99,999" D WRITE 
  S X=XR+87+Xb,Y=13+Yb+Yhin D LOCATE,MAINFONT S STR="  " D WRITE 
  S X=XR+87+Xb,Y=14+Yb+Yhin D LOCATE,MAINFONT S STR="      99,999" D WRITE 
  S X=XR+87+Xb,Y=15+Yb+Yhin D LOCATE,MAINFONT S STR="       9,999" D WRITE 
  S X=XR+87+Xb,Y=16+Yb+Yhin D LOCATE,MAINFONT S STR="         999" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+9+Xb,Y=18+Yb D LOCATE,MAINFONT S STR="XXXXXXXXX" D WRITE ;;;????;;; 
  S X=XR+24+Xb,Y=18+Yb D LOCATE,MAINFONT S STR="XXXXXXXXXXXXXXXXXX" D WRITE ;;;????;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+5+Xb,Y=20+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+5+Xb,Y=21+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+5+Xb,Y=22+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+5+Xb,Y=23+Yb D LOCATE,MAINFONT S STR="〒XXX-XXXX" D WRITE ;;;POST;;; 
  S X=XR+16+Xb,Y=23+Yb D LOCATE,MAINFONT S STR="XXXX-XXXX-XXXX" D WRITE ;;;TEL;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+5+Xb,Y=24+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+5+Xb,Y=25+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  S X=XR+5+Xb,Y=26+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=3 D  ;;; 
  .S X=XR+62+Xb,Y=21+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  .S X=XR+57+Xb,Y=22+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  .S X=XR+57+Xb,Y=23+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  .S X=XR+57+Xb,Y=24+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  .S X=XR+57+Xb,Y=25+Yb D LOCATE,MAINFONT S STR="ＮＮＮＮＮＮＮＮＮＮＮＮＮＮＮ" D WRITE 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=1 S X=XR+87+Xb,Y=26+Yb D LOCATE S STR="ＮＮＮＮ" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+69+Xb,Y=18+Yb+Ysmall D LOCATE S STR="合    計" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=1 D  ;;; 
  .S HBR=9 
  .S X=5+HBR,Y=8+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE ;;; 
  .S X=5+HBR,Y=10+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE ;;; 
  .S X=3+HBR,Y=12+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE ;;; 
  .S X=3+HBR,Y=14+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE ;;; 
  .S X=3+HBR,Y=16+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE ;;; 
  .S X=3+HBR,Y=18+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE 
  .S X=3+HBR,Y=20+Yb D LOCATE,FONT5SEL S STR="XXXXXX" D WRITE 
  .S X=5+HBR,Y=22+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE 
  .S X=5+HBR,Y=23+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE 
  .S X=5+HBR,Y=24+Yb D LOCATE,FONT5SEL S STR="ＮＮＮＮ" D WRITE 
  .S X=2+HBR,Y=25+Yb D LOCATE,FONT5SEL S STR="ＮＮ" D WRITE ;;; 
  .S X=7+HBR,Y=25+Yb D LOCATE,FONT5SEL S STR="ＮＮ" D WRITE ;;; 
  .S X=11+HBR,Y=25+Yb D LOCATE,FONT5SEL S STR="ＮＮ" D WRITE ;;; 
  .S X=5+HBR,Y=26+Yb D LOCATE,FONT5SEL S STR="9999" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q     
 FONT5SEL ;;; 
  S STR=$$VsFSelect^ZVSLPV1(5) D PUTSEQ1 ;;;[24-JAN-2002]＜＜＜副フォント印字モードに切替＞＞＞;;; 
  Q 
 PREPRFNT ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S STR=$$VsFSelect^ZVSLPV1(1) D PUTSEQ1 ;;;[24-JAN-2002]＜＜＜副フォント印字モードに切替＞＞＞;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
 PREPRNT ;;; 
  S X=XR+2+Xb,Y=20+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  S X=XR+2+Xb,Y=22+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  S X=XR+2+Xb,Y=24+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  S X=XR+2+Xb,Y=26+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=3 D  ;;; 
  .S X=XR+54+Xb,Y=20+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  .S X=XR+54+Xb,Y=22+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  .S X=XR+54+Xb,Y=24+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+15+Xb,Y=11+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  S X=XR+35+Xb,Y=11+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ" D WRITE ;;; 
  S X=XR+67+Xb,Y=11+Yb+Ysmall D LOCATE,PREPRFNT S STR="  ＸＸ" D WRITE ;;; 
  S X=XR+76+Xb,Y=11+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ    Ｘ" D WRITE ;;; 
  S X=XR+90+Xb,Y=11+Yb+Ysmall D LOCATE,PREPRFNT S STR="Ｘ    Ｘ" D WRITE ;;; 
  I PATN=1 D  ;;; 
  .S X=12,Y=7+Yb+Ysmall D LOCATE,PREPRFNT S STR="ＸＸＸＸＸＸＸ" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+2+Xb,Y=18+Yb+Ysmall D LOCATE,PREPRFNT S STR=" XXXX" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q      
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 SMALLFNT ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S STR=$$VsFSelect^ZVSLPV1(2) D PUTSEQ1 ;;;[24-JAN-2002]＜＜＜副フォント印字モードに切替＞＞＞;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
 SMALL ;;; 
  S X=88+Xb,Y=1+Yb+Ysmall D LOCATE,SMALLFNT S STR="   No." D WRITE ;;; 
  S X=88+Xb,Y=2+Yb+Ysmall D LOCATE,SMALLFNT S STR="DATE" D WRITE ;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN'=1 D  ;;; 
  .S X=XR+60+Xb,Y=6+Yb+Ysmall D LOCATE,SMALLFNT S STR="TEL" D WRITE ;;; 
  .S X=XR+81+Xb,Y=6+Yb+Ysmall D LOCATE,SMALLFNT S STR="FAX" D WRITE ;;; 
  .S X=XR+81+Xb,Y=7+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXX" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S X=XR+36+Xb,Y=10+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXXXX" D WRITE ;;; 
  S X=XR+2+Xb,Y=10+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXXX" D WRITE ;;; 
  S X=XR+70+Xb,Y=10+Yb+Ysmall D LOCATE,SMALLFNT S STR="DATE" D WRITE ;; 
  S X=XR+87+Xb,Y=10+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXX" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=3 D  ;;; 
  .S X=XR+57+Xb,Y=20+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXXXXXXXX" D WRITE ;;; 
  .S X=XR+57+Xb,Y=21+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXXX" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  I PATN=1 D  ;;; 
  .S X=XR+74+Xb,Y=22+Yb D LOCATE,SMALLFNT S STR="XXXXX" D WRITE ;;; 
  .S X=XR+52+Xb,Y=26+Yb+Ysmall D LOCATE,SMALLFNT S STR="XXXXXXXXXXXXXXX" D WRITE ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q      
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 LARGEFNT ;;; 
  S STR=$$VsFSelect^ZVSLPV1(3) D PUTSEQ1 ;;;[24-JAN-2002]＜＜＜副フォント印字モードに切替＞＞＞;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 LARGE ;;; 
  D  ;;; 
  .I PATN=1 S X=37+Xb,Y=0.5+Yb D LOCATE,LARGEFNT S STR="   Ｎ Ｎ 書" D WRITE Q  ;;; 
  .I PATN=2 S X=37+Xb,Y=0.5+Yb D LOCATE,LARGEFNT S STR="   Ｎ Ｎ 書" D WRITE Q  ;;; 
  .I PATN=3 S X=37+Xb,Y=0.5+Yb D LOCATE,LARGEFNT S STR="   Ｎ Ｎ 書" D WRITE Q  ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
 GOUKEIFNT ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  S STR=$$VsFSelect^ZVSLPV1(4) D PUTSEQ1 ;;;[24-JAN-2002]＜＜＜副フォント印字モードに切替＞＞＞;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
 GOUKEI ;;; 
  S X=XR+82+Xb,Y=18+Yb-.2 D LOCATE,GOUKEIFNT S STR="-ZZZ,ZZZ,ZZZ" D WRITE ;;;合計;;; 
  Q 
 KEISEN ;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D BOX1 ;;;ボックスの描画;;; 
  D BOX2 ;;;ボックスの描画;;; 
  D BOX3 ;;;ボックスの描画;;; 
  D BOX4 ;;;ボックスの描画;;; 
  D BOX5 ;;;ボックスの描画;;; 
  D BOX11 ;;;ボックスの描画;;; 
  D BOX12 ;;;ボックスの描画;;; 
  D BOX13 ;;;ボックスの描画;;; 
  D BOX14 ;;;ボックスの描画;;; 
  D BOX21 ;;;ボックスの描画;;; 
  D BOX22 ;;;ボックスの描画;;; 
  D BOX31 ;;;ボックスの描画;;; 
  D BOX32 ;;;ボックスの描画;;; 
  D BOX33 ;;;ボックスの描画;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  D HLINE1 ;;;直線の描画;;; 
  D VLINE1 ;;;直線の描画;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;罫線は行の中央に引くので0.5行分を増減する;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX1 ;;;BOLD=線の太さ;;; 
  S x1=XR+1.5+Xb,y1=11.1+Yb,x2=XR+99.5+Xb,y2=17+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=10 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX2 ;;; 
  S x1=XR+66.5+Xb,y1=18+Yb-Ydecimal,x2=XR+79.5+Xb,y2=19+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=10 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX3 ;;; 
  S x1=XR+79.5+Xb,y1=18+Yb-Ydecimal,x2=XR+99.5+Xb,y2=19+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=10 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX11 ;;; 
  S x1=1.5+Xb,y1=1+Yb-.4,x2=10.5+Xb,y2=2+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
 BOX12 ;;; 
  S x1=68.5+Xb,y1=1+Yb-.4,x2=71.5+Xb,y2=2+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
 BOX13 ;;; 
  S x1=73.5+Xb,y1=1+Yb-.4,x2=76.5+Xb,y2=2+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
 BOX14 ;;; 
  S x1=76.5+Xb,y1=1+Yb-.4,x2=79.5+Xb,y2=2+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q                                       
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX21 ;;; 
  I PATN'=1 Q  ;;; 
  S x1=XR+66.5+Xb,y1=3.3+Yb,x2=XR+99.5+Xb,y2=5+Yb 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=3 D BOX 
  Q 
 BOX22 ;;; 
  I PATN'=1 Q  ;;; 
  S x1=XR+66.5+Xb,y1=5+Yb,x2=XR+99.5+Xb,y2=6.7+Yb 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=3 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX31 ;;; 
  S x1=XR+1.5+Xb,y1=18+Yb-Ydecimal,x2=XR+8.5+Xb,y2=19+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
 BOX32 ;;; 
  S x1=XR+8.5+Xb,y1=18+Yb-Ydecimal,x2=XR+23.5+Xb,y2=19+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
 BOX33 ;;; 
  S x1=XR+23.5+Xb,y1=18+Yb-Ydecimal,x2=XR+66.5+Xb,y2=19+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX4 ;;; 
  I PATN'=1 Q  ;;; 
  S x1=XR+70.5+Xb,y1=22+Yb-Ydecimal,x2=XR+84.5+Xb,y2=27+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 BOX5 ;;; 
  I PATN'=1 Q  ;;; 
  S x1=10.5,y1=7+Yb,x2=24.5,y2=8+Yb 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  S x1=10.5,y1=8+Yb,x2=24.5,y2=27+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D BOX 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 HLINE1  ;;;直線(水平線)の描画;;; 
  S x1=XR+1.5+Xb,y1=12+Yb,x2=XR+99.5+Xb,y2=12+Yb 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D LINE 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 VLINE1 ;;;直線(垂直線)の描画;;; 
  S x1=XR+66.5+Xb,y1=11.1+Yb,x2=XR+66.5+Xb,y2=17+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D LINE 
  S x1=XR+73.5+Xb,y1=11.1+Yb,x2=XR+73.5+Xb,y2=17+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D LINE 
  S x1=XR+86.5+Xb,y1=11.1+Yb,x2=XR+86.5+Xb,y2=17+Yb+Ydecimal 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=5 D LINE 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 SPLIT ;;;直線(水平線)の描画;;; 
  S x1=1,y1=YYY,x2=150,y2=YYY 
  S dotx1=0,doty1=0,dotx2=0,doty2=0,BOLD=3 D LINE 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 LINE ;;;直線の描画;;; 
  S p1=0 ;;;パレット番号;;; 
  S p3=1 ;;;ペンスタイル有り;;; 
  S p4=0 ;;;実線;;;            
  S p5=BOLD ;;;太さ;;; 
  S STR=$$VsLine^ZVSLPV1(x1,y1,x2,y2,dotx1,doty1,dotx2,doty2,p1,p3,p4,p5) ;;;直線 
  D WRITE ;;;Draw escape;;; 
  Q 
 BOX ;;;ボックスの描画;;; 
  S p1=0 ;;;パレット番号;;; 
  S p3=1 ;;;ペンスタイル有り;;; 
  S p4=0 ;;;実線;;; 
  S p5=BOLD ;;;太さ;;; 
  S STR=$$VsBox^ZVSLPV1(x1,y1,x2,y2,dotx1,doty1,dotx2,doty2,p1,p3,p4,p5) ;;;直線 
  D WRITE ;;;Draw escape;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 CIRCLE ;;; 
  S (dotxc,dotyc,dotxr,dotyr)=0 ;;; 
  S p1=0 ;;;パレット番号;;;            
  S p2=2 ;;;塗りつぶし指定;;; 
  S p3=5 ;;;色/タイル番号/ハッチ番号;;; 
  S p4=0 ;;;ハッチパタンの時の色;;; 
  S STR=$$VsCircle^ZVSLPV0(xc,yc,xr,yr,dotxc,dotyc,dotxr,dotyr,p1,p2,p3,p4) 
  D WRITE ;;;Draw escape;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 OPEN ;;;[24-JAN-2002]/[08-feb-2002]これは実行してはいけない！;;;;;; 
  S STR=$$VsInitDlg^ZVSLPV1("$1$3$$$$$600$","") ;;;[25-JAN-2002];;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,STR) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 NW7 ;;;BAR-＞バーコード印刷(NW-7);;; 
  S setstr=$$VsPutNW7^ZVSLPV1(BAR,8,9+Yb,0,0) 
  S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Yb+30,1,setstr) ;;;[24-JAN-2002];;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;S BAR="a"_BAR_"a" 
  ;;;S n=2 D SPACING ;;;バーコード文字列印刷;;; 
  ;;;S setstr=$$WpPutSmall^ZVSLPV1(BAR,2,9+Yb,0,0) 
  ;;;S dmy=$$WpWrite^ZVSLPV1(setstr) 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 CODE39 ;;; 
  S setstr=$$VsPut39^ZVSLPV1(BAR,18,-.5+Yb,0,0) 
  S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Yb+30,40,setstr) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 JAN12DG ;;;JAN-CDOE;;; 
  S setstr=$$VsPutJAN^ZVSLPV1(BAR,4+Xb,32+Yb,0,0) 
  S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Yb+30,80,setstr) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 SPACING ;;;(BAR,n)-＞BAR;;; 
  S w="",w1="" 
  F J=1:1:$L(BAR) S w1=$E(BAR,J) S w=w_w1 S:J'=$L(BAR) w=w_$S(J=$L(BAR):"",1:$J("",n)) 
  S BAR=w 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 CLOSE ; 
  Q 
 ENAGDI ;;;プリンタグラフィックス描画可能;;; 
  S dmy=$$VsGDIEna^ZVSLPV1() ;;; 
  S dmy=$$VsPonAf^ZVSLPV1(splno,dmy) ;;;[24-JAN-2002];;; 
  Q                             
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 DISGDI ;;;画面グラフィックス描画;;; 
  S dmy=$$VsGDIDis^ZVSLPV1() ;;; 
  S dmy=$$VsPoffBf^ZVSLPV1(splno,dmy) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 TRAP ;---  ＴＲＡＰ --- 
  W $C(27)_"[4i" ;;;Screen mode;;; 
  W !,"$ZE=",$ZE ;;; 
  ;;;;;;;;;;[30-nov-2001];;;;;;;;;;; 
  N %DEVICE S %DEVICE=0 ;;;$ZV[02-may-2001];;; 
  D  ;;;[30-nov-2001];;; 
  .U 0:WIDTH=0 Q  ;;;cache;;; 
  .;;;;;U 0:0 ;;;msm;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
─────────────────────────────────────
  ◆バーコードと罫線、複数フォントのサンプル(フォント処理部) 
─────────────────────────────────────
 ZVSSAMPF ;;;[25-JAN-2002]/copyright S.I.M/ 
 FONT ;;;フォント指定情報ダウンロード/高解像度用/LaserShot;;; 
  ;;;;;;;;;;;;;メインフォント;;;;;;;;;;;;;;; 
  ;;;;S LogFont="ＭＳ 明朝/96/0/0/0/400/0/0/0/128/3/2/1/49/" 
  S LogFont="ＭＳ 明朝/76/0/0/0/400/0/0/0/128/3/2/1/49/" 
  S dmy=$$VsDownLD^ZVSLPV1(0,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  ;;;;;;;;;;;;;副フォント;;;;;;;;;;;;;;; 
  S LogFont="ＭＳ 明朝/54/0/0/0/400/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(1,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="ＭＳ 明朝/48/0/0/0/400/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(2,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="ＭＳ 明朝/128/0/0/0/800/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(3,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="ＭＳ ゴシック/96/0/0/0/800/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(4,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="ＭＳ 明朝/64/0/0/0/800/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(5,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  ;;;;;;;;;;;;;Sub Font download;;;;;;;;;;;;;;; 
  S LogFont="CN-CODE39/128/0/2700/2700/400/0/0/0/0/3/2/1/2/" 
  S dmy=$$VsDownLD^ZVSLPV1(55,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="CN-JANCODE/-256/0/0/0/400/0/0/0/0/3/2/1/2/" 
  S dmy=$$VsDownLD^ZVSLPV1(54,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="CN-NW7/-192/0/2700/2700/400/0/0/0/0/3/2/1/2/" 
  S dmy=$$VsDownLD^ZVSLPV1(53,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="ＭＳ 明朝/-48/0/2700/2700/400/0/0/0/128/3/2/1/17/" 
  S dmy=$$VsDownLD^ZVSLPV1(52,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  S LogFont="CN-CODE39 OCR/128/0/2700/2700/400/0/0/0/0/3/2/1/2/" 
  S dmy=$$VsDownLD^ZVSLPV1(51,LogFont) ;;; 
  S dmy=$$VsPonBf^ZVSLPV1(splno,dmy) ;;; 
  ;;;;;;;;;;;;;Sub Font download;;;;;;;;;;;;;;; 
  Q   
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 FOPEN ;;;フォントオープン;;; 
  S setstr="" 
  S dmy=$$VsFOpen^ZVSLPV1(1) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFOpen^ZVSLPV1(2) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFOpen^ZVSLPV1(3) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFOpen^ZVSLPV1(4) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFOpen^ZVSLPV1(5) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsPonAf^ZVSLPV1(splno,setstr) ;;;[24-JAN-2002];;; 
  ;;;S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Y,X,setstr) ;;;[24-JAN-2002];;; 
  Q 
 FCLOSE ;;;フォントクローズ;;; 
  S setstr="" 
  S dmy=$$VsFClose^ZVSLPV1(1) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFClose^ZVSLPV1(2) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFClose^ZVSLPV1(3) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFClose^ZVSLPV1(4) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsFClose^ZVSLPV1(5) ;;; 
  S setstr=setstr_dmy 
  S dmy=$$VsPoffBf^ZVSLPV1(splno,setstr) ;;;[24-JAN-2002];;; 
  ;;;S dmy=$$VsWrite^ZVSLPV1(splno,PAGE,Y,X,setstr) ;;;[24-JAN-2002];;; 
  Q 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
─────────────────────────────────────
─────────────────────────────────────
　　　　　　　　　　　　　　10-1
　　　　　｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜