Visual Basic® Scriptでの作成例

RL-700S以外のプリンターをご使用の場合

  1. 1. 下記をテキストエディターで入力し、「固定資産.vbs」というファイル名で保存します。
'b-PACオブジェクトを生成

Set ObjDoc = CreateObject("bpac.Document")



'P-touch Editorで作成したテンプレートファイルをオープン

'lbxファイルをVBSファイルと同じフォルダに置いておく

bRet = ObjDoc.Open(".¥固定資産名.lbx"



If (bRet <> False) Then   '正常にオープン?

        '「固定資産名」のテキストオブジェクトに「TN-9500」を設定

        ObjDoc.GetObject("Name").Text = "TN-9500"

        '「管理部門」のテキストオブジェクトに

        '「情報機器事業部企画G」を設定

        ObjDoc.GetObject("Section").Text = "情報機器事業部企画G"



        '「管理No」のテキストオブジェクトに「1234567」を設定

        ObjDoc.GetObject("Number").Text = "1234567"



        'バーコードオブジェクトに「1234567」を設定

        ObjDoc.GetObject("QRコード1").Text = "1234567"



        '印刷を実行

        ObjDoc.StartPrint "DocumentName", bpoAutoCut

        ObjDoc.PrintOut 1, bpoAutoCut

        ObjDoc.EndPrint

        ObjDoc.Close

End If



'b-PACオブジェクトを解放

Set ObjDoc = Nothing

補足

  • 他にイメージオブジェクトを入れ替えたり、フォント情報を設定することも可能です。
  • b-PACで使用できるメソッドはb-PAC SDK Ver.3.0 ドキュメント(b-PACトップページよりダウンロード可能です)をご覧ください。

スクリプトの実行

エクスプローラーで「固定資産.vbs」を実行すると、P-touch Editorで作成したラベルレイアウトファイルをテンプレートにして、スクリプトで設定した値でラベルを印刷します。

ラベルプリンター 導入事例

ピンゴルフジャパン株式会社様
ピンゴルフジャパン株式会社様
  • 作業効率改善
  • 飲食・小売
  • 従業員数70名
株式会社福山臨床検査センター様
株式会社福山臨床検査センター様
  • 作業効率改善
  • 医療・福祉
  • 従業員数389名

小規模オフィス、営業所、店舗、学校、工場、ホテルなどでの導入事例をご紹介

ご購入を検討中のお客様へ

ご利用中のお客様へ(サポート)

開発をご検討中のお客様へ

スペシャルサイト

このページをシェアする