[ツリー表示へ] [ワード検索] [Home]
タイトル ： ビットマップ内のバーコードデータが更新されない 投稿日 ： 2009/04/05(Sun) 17:51 投稿者 ： ゆき
| いつも勉強させて頂いています。 VB6からラベルプリンタを使用し、バーコードの付いた連続番号ラベルを発行する事を考えています。 以下の様に、バーコードデータの作成→bmp化→クリップボードへコピー→エクセルで印刷です。 ただ、これをDo〜Loopでまわそうとしているのですが、Do〜Loopの2回目のbmp内のバーコード内容が1回目の内容から変わってくれず困っています。 何故こうなるのかも分からず戸惑ってます。 何か良案あれば宜しくご教授お願いします。 Dim COUNT As Long: COUNT = 0 Do Until COUNT = 20 LABELDATA = "ABCDE" + COUNT ’’’バーコードデータの作成 Call Shell("C:\QR_BarCode.exe\mkqrimg.exe /O""C:\QR_BarCode.exe\QR.bmp"" /T" & LABELDATA & "") BMPPATH = GetObject("Scripting.FileSystemObject").GetAbsolutePathName("C:\QR_BarCode.exe") クリップボードへ貼り付け エクセル貼り付け COUNT = COUNT + 1 Loop |
をクリックするとツリー全体を一括表示します） - ビットマップ内のバーコードデータが更新されない - ゆき 09/04/05-17:51No.13567