【 質問箱 Ｎｏ.199 回答 】
     ⇒⇒⇒⇒  質問箱 No.82(98年　8月号)の趣旨   質問者：元山 よし子
               ＜DOS/V,95PIPSで4連用紙でラベル印刷したい＞

                                                  回答者：高  橋  周  助
 <４連ラベル>      1998.8.19
 /******* A.準備 *****************************************************/
     LET V40="顧客名簿"; /*ﾊﾞｲﾝﾀﾞ名*/
     LET X10= 0; /*ラベル番号初期化｡ 左側から 1 → 2 → 3 → 4 */
     LET X26= 0; /*印刷済みレコード件数*/
     LET X27=10; /*左余白桁数          */
     LET X28=40; /*ラベル横間隔        */
 /******* B.実行 *****************************************************/
     DISP OPEN,[18,3],"◆ ◆ ◆  宛名ラベル  印刷中  ◆ ◆ ◆";
     FOR X1=1 TO BINDER(V40);
       G;%V40/%X1;
       IF T<H THEN CONTINUE;
       FOR X2=H TO T;
         /*** B-A.データ読み込み *************************************/
         CLEAR V11,19;
         LET V11=[X2,@郵便番号  ];
         LET V12=[X2,@住所１    ];  IF V12="" THEN CONTINUE;
         LET V13=[X2,@住所２    ];
         LET V14=[X2,@氏名      ];  IF V14="" THEN CONTINUE;
         LET V15=[X2,@敬称      ];
         LET X10=X10+1;  IF X10=5 THEN LET X10=1;
         /*** B-B.印刷用ﾃﾞｰﾀ編集 *************************************/
         IF X10=1 THEN CLEAR V21,29;
         LET X11=X28-LEN(V11);  LET V21=V21+V11+STRING$(32,X11);
         LET X12=X28-LEN(V12);  LET V22=V22+V12+STRING$(32,X12);
         LET X13=X28-LEN(V13);  LET V23=V23+V13+STRING$(32,X13);
         LET X14=X28-LEN(V14)-1-LEN(V15);
                                LET V24=V24+V14+" "+V15+STRING$(32,X14);
         /*** B-C.ラベル印刷 *****************************************/
         IF X10=4 THEN GOSUB ４連ラベルSUB;
       NEXT;
     NEXT;
     /******* B-D.未印刷データが 残った場合の 最終印刷 ***************/
     IF X10<>0 AND <>4 THEN GOSUB ４連ラベルSUB;
 /******* Z.終わり ***************************************************/
 $終:CLOSE;  STOP;
 
 <４連ラベルSUB>
     PRINT LF2;
     PRINT SP%X27,V21,LF;
     PRINT SP%X27,V22,LF;
     PRINT SP%X27,V23,LF;
     PRINT SP%X27,V24,LF4;
     LET X26=X26+X10;
     DISP CLR,[18,3],"印刷済みラベル枚数： ",X26," 枚";
     RETURN;

□