MS AccessデータベースでPDF417生成する

MS Accessデータベースで PDF417を生成します

Barcodesoftの PDF417ソフトウェアを使えば、MS Accessデータベースに PDF417を簡単に印刷できます。

1. あなたのコンピュータに PDF417デモをインストールしてください。

2. コマンドプロンプトを右クリックして、管理者としてコマンドプロンプトを実行します。
code 128 管理者としてコマンドプロンプトを実行します

次のコマンドを入力して、cruflbcs.dllを登録します
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil" regsvr32.exe cruflbcs.dll

64ビットDLLを登録するには、次のコマンドを入力してください
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil" %systemroot%\System32\regsvr32.exe cruflbcs_x64.dll

次のウィンドウがポップアップ表示された場合、登録は成功しています。
cruflbcs.dll 登録成功

3. Microsoft®Access®を起動します。

Access 2000またはAccess 2003を使用している場合は、[メニュー] ===> [ツール] ==> [マクロ] ===> [セキュリティ]の順にクリックします。低セキュリティレベルを選択します。
PDF417 Access マクロセキュリティ

Access 2007/2010/2013/2016/2019を使用している場合は、Microsoft Officeボタンをクリックしてください。
Office 2010 button Office 2016 button Office 2019 button
[オプション] => [セキュリティセンター] ==> [マクロの設定]の順にクリックし、[すべてのマクロを有効にする]を選択します。

PDF417 Access マクロコンフィグレーション

4. Alt + F11キーを押してMicrosoft®Visual Basic Editorを開きます。
PDF417 Access VBA

5. Visual Basicエディタから、メニューツール===>参照を選択します。ダイアログがポップアップします。 [参照]ボタンをクリックし、 'C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil'フォルダからcruflbcs.dllを選択します。 crUFLBcs 4.0を選択してください。そしてOKボタンをクリックしてください。

PDF417 参照を置く

6. Ctrl + Mを押します。ダイアログがポップアップします。 C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil フォルダの下のbarcodesoft.basを選択します。次に「開く」をクリックします。

PDF417 インポート vba

下記のコードスニペットからコピーすることもできます。

Public Function PDF417(strToEncode As String) As String
Dim obj As cruflBCS.CPDF417
Set obj = New cruflBCS.CPDF417
PDF417 = obj.EncodeCR(strToEncode, 0, 0, 0)
Set obj = Nothing
End Function

7. Visual Basicを閉じてAccessデータベースに戻ります。テキストボックスを作成します。その制御元にこのマクロを入力します。
=PDF417([data.code])

'data'はデータベースのテーブル名、 'code'はデータベースのフィールド名です。

PDF417 バーコード access マクロ

8. テキストボックスを右クリックします。コンテキストメニューから[プロパティ]を選択します。フォントとしてBcsPDF417を選択してください。

PDF417 access フォント

MicrosoftおよびOfficeのロゴは、米国Microsoft Corporationの米国およびその他の国における商標または登録商標です。