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

  1. 1. Visual Basic® で、次のようなフォームを作成します。
VB入力フォーム画面
  1. 2. 「プロジェクト」-「参照の追加...」で「参照の追加」のダイアログボックスを表示し、「COM」タブの画面で「BrssCom」を追加します。
  2. 3. 「ラベル印刷」ボタンをダブルクリックし、次のイベントハンドラを入力します。
Private Sub btnPrint_Click(ByVal sender As System.Object, _

     ByVal e As System.EventArgs) Handles btnPrint.Click

     'b-PACオブジェクトを生成

     Dim ObjDoc As bpac.Document

     ObjDoc = CreateObject("bpac.Document")

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

     'LBXファイルを実行ファイルと同じフォルダに置いておく

     Dim bRet As Boolean

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

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

         '「固定資産名」のテキストオブジェクトにデータを設定

         ObjDoc.GetObject("Name").Text = txtName.Text

         '「管理部門」のテキストオブジェクトにデータを設定

         ObjDoc.GetObject("Section").Text = txtSection.Text

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

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

         'バーコードオブジェクトにデータを設定

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

         '印刷を実行

         ObjDoc.StartPrint("DocumentName", bpac.PrintOptionConstants.bpoAutoCut)

         ObjDoc.PrintOut(1, bpac.PrintOptionConstants.bpoAutoCut)

         ObjDoc.EndPrint()

         'ファイルをクローズ

         ObjDoc.Close()

     Else

         Msgbox "LBXファイルがありません。"

     End If

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

     ObjDoc = Nothing

 End Sub

補足

  • 他にイメージオブジェクトを入れ替えたり、フォント情報を設定することも可能です。
  • b-PACで使用できるメソッドは、b-PAC SDK Ver.3.0 ドキュメント(b-PACトップページよりダウンロード可能です)をご覧ください。
  1. 4. プログラムを起動し、各項目を入力後、「ラベル印刷」ボタンをクリックします。
VB入力フォーム画面

P-touch Editorで作成したラベルレイアウトファイルをテンプレートにして、範囲選択した行のセルの値でラベルを印刷します。

補足

作成したソフトを他のPCにインストールする場合、そのPCにb-PACがインストールしてある必要があります。b-PACは次のいずれかの方法でインストール先PCにインストールできます。

  • b-PACクライアント用コンポーネントのインストーラーをダウンロードしてインストールする。
  • Windows® Installerでインストールプロジェクトを作成し(Visual Studio® 2005の「ファイル」-「追加」-「新しいプロジェクト」で「新しいプロジェクトの追加」のダイアログを表示し、「その他のプロジェクトの種類」- 「セットアップと配布」で「セットアッププロジェクト」を選択する)、そのインストールプロジェクトにb-PACコンポーネントのマージモジュール (MSMファイル)を追加する(「プロジェクト」-「追加」-「マージモジュール」で「C:¥Program Files¥Brother bPAC SDK¥Redist¥BrssCom.msm」を追加する)。

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

  1. 1. Visual Basic® で、次のようなフォームを作成します。
VB入力フォーム画面
  1. 2. 「プロジェクト」-「参照の追加...」で「参照の追加」のダイアログボックスを表示し、「COM」タブの画面で「BrssCom」と「RfidptcomS」を追加します。
  2. 3. 次のプログラムを入力します。
Public Class Form1

    Const DEVICE_NAME = "Brother RL-700S"

    Const ANTENNA_READER_WRITER = "Reader/Writer side"

    Const ANTENNA_PRINTER = "Printer side"



    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

        Dim objRfid As bpac.Rfid

        Dim objDoc As bpac.Document

        objRfid = New bpac.Rfid()

        objDoc = New bpac.Document()



        If (objRfid.Open(DEVICE_NAME) = False) Then

            MsgBox("デバイスオープン失敗")

            GoTo CleanUp

        End If



        If (objRfid.SetActiveAntenna(ANTENNA_PRINTER) = False) Then

            MsgBox("アンテナ設定失敗")

            GoTo CleanUp

        End If



        Dim filePath As String

        filePath = CurDir() + "¥" + "Name_Plate.lbl"

        If (objDoc.Open(filePath) = False) Then

            MsgBox("ファイルオープン失敗")

            GoTo CleanUp

        End If



        '「Company」のテキストオブジェクトにデータを設定

        objDoc.GetObject("company").Text = txtCompany.Text



        '「Name」のテキストオブジェクトにデータを設定

        objDoc.GetObject("name").Text = txtName.Text



        ' タグデータ書き込み

        If (objRfid.WriteTagData("", bpac.MemoryBank.bmbUser, 0, txtName.Text) = False) Then

            MsgBox("データ書き込み失敗")

            GoTo CleanUp

        End If



        '印刷を実行

        Dim printOption As bpac.PrintOptionConstants

        printOption = (bpac.PrintOptionConstants.bpoAutoCut Or bpac.PrintOptionConstants.bpoRfid)

        objDoc.StartPrint("DocumentName", printOption)

        objDoc.PrintOut(1, printOption)

        objDoc.EndPrint()

CleanUp:

        objRfid.Close()

        objDoc.Close()

    End Sub



    Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click

        Dim objRfid As bpac.Rfid

        objRfid = New bpac.Rfid()



        If (objRfid.Open(DEVICE_NAME) = False) Then

            MsgBox("デバイスオープン失敗")

            GoTo CleanUp

        End If



        If (objRfid.SetActiveAntenna(ANTENNA_READER_WRITER) = False) Then

            MsgBox("アンテナ設定失敗")

            GoTo CleanUp

        End If



        Dim arrTagId() As Object

        arrTagId = objRfid.ReadTagId()

        If (objRfid.ErrorCode <> 0) Then

            MsgBox("タグID読み取り失敗")

            GoTo CleanUp

        End If



        ' タグデータ書き込み

        If objRfid.WriteTagData(arrTagId(0), bpac.MemoryBank.bmbUser, 0, txtName.Text) <> False Then

            MsgBox("読み取り終了" & Chr(13) & txtName.Text)

        Else

            MsgBox("データ読み取り失敗")

            GoTo CleanUp

        End If



CleanUp:

        objRfid.Close()

    End Sub



    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

        Dim objRfid As bpac.Rfid

        objRfid = New bpac.Rfid()



        If (objRfid.Open(DEVICE_NAME) = False) Then

            MsgBox("デバイスオープン失敗")

            GoTo CleanUp

        End If



        If (objRfid.SetActiveAntenna(ANTENNA_READER_WRITER) = False) Then

            MsgBox("アンテナ設定失敗")

            GoTo CleanUp

        End If



        Dim arrTagId() As Object

        arrTagId = objRfid.ReadTagId()



        If (objRfid.ErrorCode <> 0) Then

            MsgBox("タグID読み取り失敗")

            GoTo CleanUp

        End If



        ' タグデータ読み取り

        Dim dataSize As Integer

        Dim userData As String

        dataSize = objRfid.GetBlockSize(arrTagId(0), bpac.MemoryBank.bmbUser) * objRfid.GetNumberOfBlocks(arrTagId(0), bpac.MemoryBank.bmbUser)

        userData = objRfid.ReadTagData(arrTagId(0), bpac.MemoryBank.bmbUser, 0, dataSize)

        If (objRfid.ErrorCode = 0) Then

            MsgBox("読み取り終了" & Chr(13) & userData)

        Else

            MsgBox("データ読み取り失敗")

            GoTo CleanUp

        End If

CleanUp:

        objRfid.Close()

    End Sub

End Class

補足

使用できるメソッドは、b-PAC SDK Ver.3.0 ドキュメント(b-PACトップページよりダウンロード可能です)をご覧ください。

  1. 4. プログラムを起動し、各項目を入力後、「ラベル印刷」ボタンをクリックします。
VB入力フォーム画面
「ラベル印刷」ボタン P-touch Editorで作成したラベルレイアウトファイルをテンプレートにして、入力した値をラベルを印刷します。RFIDタグには「氏名」を書き込みます。
「Write」ボタン 「氏名」でRFIDタグの内容を書き換えます。
「Read」ボタン RFIDタグの内容を読み込みます。

補足

作成したソフトを他のPCにインストールする場合、そのPCにb-PACがインストールしてある必要があります。b-PACは次のいずれかの方法でインストール先PCにインストールできます。

  • b-PACクライアント用コンポーネントのインストーラーをダウンロードしてインストールする。
  • Windows® Installerでインストールプロジェクトを作成し(Visual Studio® 2005の「ファイル」-「追加」-「新しいプロジェクト」で「新しいプロジェクトの追加」のダイアログを表示し、「その他のプロジェクトの種類」- 「セットアップと配布」で「セットアッププロジェクト」を選択する)、そのインストールプロジェクトにb-PACコンポーネントのマージモジュール (MSMファイル)を追加する(「プロジェクト」-「追加」-「マージモジュール」で「C:¥Program Files¥Brother bPAC SDK¥Redist¥BrssCom.msm」を追加する)。

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

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

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

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

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

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

スペシャルサイト

このページをシェアする