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

  1. 1. ここでは、次のようなAccess® 2003で作成された固定資産管理リストを使って説明します。
Access® 画面
  1. 2. 次のように「ラベル印刷」という名前でフォームを作成し、その中に「ラベル印刷」ボタンを追加します。
Access® 画面
  1. 3. 「ラベル印刷」ボタンのイベントプロシージャに次のプログラムを入力します。
Private Sub ラベル印刷_Click()

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

        Dim ObjDoc As bpac.Document

        Set ObjDoc = CreateObject("bpac.Document")

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

        '(本Accessファイルとテンプレートファイルは同じフォルダに置く)

        Dim bRet As Boolean

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



        If (bRet <> False) Then

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

            ObjDoc.GetObject("Name").Text = Me![固定資産名].Value



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

            ObjDoc.GetObject("Section").Text = Me![管理部門].Value



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

            ObjDoc.GetObject("Number").Text = Me![管理No].Value



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

            ObjDoc.GetObject("QRコード1").Text = Me![管理No].Value



            '印刷を実行

            ObjDoc.StartPrint "DocumentName", bpoAutoCut

            ObjDoc.PrintOut 1, bpoAutoCut

            ObjDoc.EndPrint



            '印刷を実行

            ObjDoc.StartPrint "DocumentName", bpoAutoCut

            ObjDoc.PrintOut 1, bpoAutoCut

            ObjDoc.EndPrint

        End If



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

        Set ObjDoc = Nothing

Exit_印刷_Click:

        Exit Sub

Err_印刷_Click:

        MsgBox Err.Description

        Resume Exit_印刷_Click

End Sub

補足

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

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

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

  1. 1. ここでは、次のようなAccess® 2003で作成されたテーブルを使って説明します。
Access® 画面
  1. 2. 次のようなフォームを作成し、その中に「ラベル印刷」、「Write」、「Read」ボタンを追加します。
Access® 画面
  1. 3. Visual Basic® Editorを起動して、次のコードを入力します。
Option Compare Database

Const DEVICE_NAME = "Brother RL-700S"

Const ANTENNA_READER_WRITER = "Reader/Writer side"

Const ANTENNA_PRINTER = "Printer side"

'***********************************************

' RFIDタグ印刷処理

'***********************************************

Private Sub cmdPrint_Click()

    Dim objDoc As bpac.Document

    Dim objRfid As bpac.Rfid



    Set objRfid = CreateObject("bpac.Rfid")

    Set objDoc = CreateObject("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



    If objDoc.Open(CurrentProject.Path & "¥Name_Plate.lbl") = False Then

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

        GoTo CleanUp

    End If



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

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



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

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



    ' タグデータ書き込み

    If objRfid.WriteTagData("", bmbUser, 0, txtName.Value) = False Then

        MsgBox "書き込み失敗"

        GoTo CleanUp

    End If



    '印刷を実行

    Dim printOption As Long

    printOption = (bpoRfid Or bpoAutoCut)

    objDoc.StartPrint "DocumentName", printOption

    objDoc.PrintOut 1, printOption

    objDoc.EndPrint

CleanUp:

    objDoc.Close

    objRfid.Close

    Set objDoc = Nothing

    Set objRfid = Nothing

End Sub

'***********************************************

' RFIDタグ書き込み処理

'***********************************************

Private Sub cmdWrite_Click()

    Dim objRfid As bpac.Rfid

    Set objRfid = CreateObject("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 strCell As String

    strCell = txtName.Value



    'UIDの読み取り

    Dim arrTagId

    arrTagId = objRfid.ReadTagId()

    If objRfid.ErrorCode = 0 Then

        'データの書き込み

        If objRfid.WriteTagData(arrTagId(0), bmbUser, 0, strCell) <> False Then

            MsgBox ("書き込み終了" & Chr(13) & strCell)

        Else

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

            GoTo CleanUp

        End If

    Else

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

    End If



CleanUp:

    objRfid.Close

    Set objRfid = Nothing   'b-PACオブジェクトを解放

End Sub

'***********************************************

' RFIDタグ読み取り処理

'***********************************************

Private Sub cmdRead_Click()

    Dim objRfid As bpac.Rfid

    Set objRfid = CreateObject("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



    'UIDの読み取り

    Dim arrTagId

    arrTagId = objRfid.ReadTagId()

    If objRfid.ErrorCode = 0 Then

        'データの書き込み

        Dim dataSize As Integer

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

        Dim strUserdata

        strUserdata = objRfid.ReadTagData(arrTagId(0), bmbUser, 0, dataSize)

        If objRfid.ErrorCode = 0 Then

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

        Else

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

            GoTo CleanUp

        End If

    Else

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

    End If



CleanUp:

    objRfid.Close

    Set objRfid = Nothing   'b-PACオブジェクトを解放

End Sub

補足

  • RL-700S SDKで使用できるメソッドは、b-PAC SDK Ver.3.0 ドキュメント(b-PACトップページよりダウンロード可能です)をご覧ください。
  1. 4. フォームのデザインモードを終了後、ラベル印刷したいデータを表示し、「ラベル印刷」ボタンをクリックします。
Access® 画面
「ラベル印刷」ボタン P-touch Editorで作成したラベルレイアウトファイルをテンプレートにして、入力した値をラベルを印刷します。RFIDタグには「氏名」を書き込みます。
「Write」ボタン 「氏名」でRFIDタグの内容を書き換えます。
「Read」ボタン RFIDタグの内容を読み込みます。

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

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

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

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

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

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

スペシャルサイト

このページをシェアする