サポート&ダウンロード

Access VBA を使った、テンプレートファイル作成例

テンプレートファイル(ラベルレイアウトファイル)の作成

  1. 1. ここでは、次のような Access で作成された固定資産管理リストを使って説明します。
    Access 画面
  2. 2. 次のように ラベル印刷」という名前でフォームを作成し、その中に「ラベル印刷」ボタンを追加します。
    Access 画面
  3. 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 ドキュメント(b-PAC SDK ドキュメントのダウンロード)をご覧ください。
  4. 4. フォームのデザインモードを終了後、「ラベル印刷」フォームでラベル印刷したいデータを表示し、「ラベル印刷」ボタンをクリックします。
    Access® 画面

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

ダウンロード

FAQ(よくあるご質問)

お問い合わせ

サポート&ダウンロード