スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VB6やAccessからBarTenderを操作する方法

世界で一番利用されているバーコードラベル作成ソフト『BarTender』。

かなりの優れもので、いろいろな印刷物に対応しています。

さらに、VBスクリプトやActiveXを利用してアプリケーションから利用できるので、とても便利です。

ヘルプファイルや、ネットを検索すればコードサンプルも結構掲載されていますので、

アプリケーションに組み込んで利用するのも簡単です。

しかし、コードサンプルはVB.NETやVC#などからBarTenderを操作するものばかりで、

VB6やAccess2003から操作しているサンプルが少なかったので、自分で作っちゃいました。

(VB6を利用している人もかなり少ないとは思うのですが。。。)

是非参考にしてください。


サンプルでは、Access MDBのテーブルからデータを読み込んで表示する例になっています。

BarTenderファイルでMDBを読み込む設定は事前に行ってください。
※データベースの追加ウイザードを使えば、簡単に設定できます。

なお、VB側でBarTenderのActiveXオブジェクトを利用しますので、
VB6やAccessのコードエディタで、参照設定から Bar Tender 10.1 を先に設定してください。

コード内で行っているのは、
①BarTender起動
②作成した用紙を開く
③データベースを開く
④テーブルから該当レコードリード
⑤プレビュー
です。

プレビュー画面を閉じると、処理を終了しています。
※実際の印刷はプレビュー画面で行うものとしています。


Option Compare Database

'//******************************************************************************
'// BarTender の操作
'//------------------------------------------------------------------------------
'// 【引数】
'// sCD : コード
'// sBarTender用紙 : BarTenderで作成したbtwファイル
'//******************************************************************************
Sub BarTenderSub(sCD As String, sBarTender用紙パス As String)
   Dim btApp As BarTender.Application
   Dim btFormat As New BarTender.Format
   Dim btDb As BarTender.Database
   Dim btPreview As New BarTender.PrintPreview

   Set btApp = CreateObject("BarTender.Application")

   btApp.Visible = True 'Application Visible を設定する

   Set btFormat = btApp.Formats.Open(sBarTender用紙, False, "") 'BarTender ファイルを開く

   'データベースは btw 側で先に設定しておく必要があります。
   Set btDb = btFormat.Databases.GetDatabase(1) 'データベースを選択する

   btDb.OLEDB.SQLStatement = "SELECT * FROM [テーブル] WHERE [コード] = '" & sCD & "'"

   btFormat.Activate

   Set btPreview = btFormat.PrintPreview 'プレビューオブジェクトを開く

   btPreview.ShowDialog '表示する

   btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) 'BarTender プロセスを終了する

End Sub


ランキングに参加しています。
クリックのご協力をお願い致します。
いつもありがとうございます。
にほんブログ村 IT技術ブログへ
にほんブログ村
スポンサーサイト
スポンサードリンク
最新記事
カテゴリ
カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
最新トラックバック
ブロとも申請フォーム

この人とブロともになる

月別アーカイブ
激安特価情報
Amazonタイムセール
楽天市場タイムセール
Yahoo出店記念セール
NTT-X Store 激安特価!
激安家電のGENO PLUS
コストコ・イケアの通販
つけたまま眠れるファンデ
家電品を安値で買うならこちら!
ケーズデンキ
ベルメゾンアウトレット
激安ブランドコスメ 週末セール
モバコレ SALE
au Brand Garden
アウトレットモール BRANDELI
ブックオフオンラインのオトナ買い
ビッグカメラ◆週末特別セール
ソフマップ 中古・アウトレット
【宿代全額ポイントバック】夏休み早期予約キャンペーン
ネットプライス 送料294円
イオンモールオンライン
EDIONネットショップ
最新コメント
天気予報

-天気予報コム- -FC2-
カウンター
検索フォーム
リンクに表示されるテキスト
ランキング参加中
クリックしていただけると、 こまつもとは大変嬉しいです。



人気ブログランキングへ

ランキングに参加しています。 クリックのご協力をお願い致します。 いつもありがとうございます。 にほんブログ村 通販ブログへ
ブログランキング・にほんブログ村へ
にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村 ゲームブログへ
にほんブログ村 IT技術ブログへ



人気ブログをblogramで分析

趣味・個人

ランキング

リンクリックブログランキング

私を登録 by BlogPeople



RSSリンクの表示
リンク
QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。