過去の桐井戸端BBS (桐ver.8)
20526 ラベル印刷で用紙の枚数を印刷したい サザン 2003/05/24-16:28
桐ver8にて

ラベルの作成を行っていますがうまくいかないので
どなたかアドバイスお願い致します。

例えば
[数量]が"100"だとして[入数]が"30"だとすると
100÷30=3余り10となります。

ラベルは"30"が3枚と"10"が1枚計4枚印刷されるようにしたいのです。

また、その4枚にはそれぞれ"1/4"、"2/4"、"3/4"、(できれば余りに)"4/4"と印刷したいです。

宜しくお願い致します。

20529 Re:決められた枚数の印刷方法 宮城 2003/05/24-17:18
記事番号20526へのコメント
サザンさん、こんにちは。

一括処理か KEVか、考え方は次の通り。

ラベル印刷用の表を作っておきます。

項目は、入数、連番、総箱数、表示連番ぐらい。表示連番だけ文字列、後は数値。
表示連番には項目計算式を次のように。

#文字列([連番])+"/"+#文字列([総箱数])

&数量、&入数、&正規箱数、&端数、&総箱数、&カウンタ、&終了状態を変数宣言しておきます。
ラベル印刷用の表を開き、行削除、圧縮をかけます。

&数量、&入数の入力は大丈夫ですよね?

&正規箱数=#INT(&数量/&入数)
&端数=#MOD(&数量,&入数)
&総箱数=&正規箱数+1

ラベル作成用の表を編集対象表にして、

繰り返し &カウンタ=1,&正規箱数
 行追加 終了状態=&終了状態¥
    ,[入数]=&入数¥
    ,[総箱数]=&総箱数
繰り返し終了
行追加 終了状態=&終了状態¥
   ,[入数]=&端数¥
   ,[総箱数]=&総箱数
置換 [連番]=#連番

あとはレポート印刷。

20547 Re:決められた枚数の印刷方法 サザン 2003/05/24-22:08
記事番号20529へのコメント
宮城さん
お返事ありがとうございます。

恐らく今回の私の悩みは一括処理などで行うのかなと思っていました。
一括処理はこれから勉強するところだったので
宮城さんに頂いたアドバイスを参考に試行錯誤やってみたいと思います。

また宜しくお願いします。

戻る