| |
お世話になります。
ＸＰ、ＥＸＣＥＬ２００３でのＶＢＡマクロの関しての質問です。
＜処理内容＞
1. シート上のＢ１にバーコード（ＭＳコントロール９．０）を設定して
Ａ１とリンクさせます。
2. Ａ１には、通信で約１秒間隔で数値が送られてきます。
3. Ｂ１に描画されたバーコードをプリンタで印字する。
2.〜3.を繰り返す。
＜作成マクロ＞
データ受信、完了 ’A1にデータセット
↓
*****バーコード描画→プリンタ出力***
Dim mys As Worksheet
Dim myRange As Range
Set mys = Worksheets("CODE39")
Set myRange = Range("A1")
myRange.Value = 10000 + number’デバッグ用、実際は、通信データ
With mys
.PageSetup.TopMargin = 0 'これを入れないとセル描画バーコードが
プリンタ印字に反映しない。
.PrintOut '印字範囲を"B1"に設定。
End With
Set myRange = Nothing
************************************
データ受信へ （これを繰り返す）
＜問題点＞
●9000回前後で、”リソース不足”、”メモリ不足”が発生する。
物理メモリ-利用可能メモリは、十分あります。
.PageSetup.TopMargin の実行をなくすと異常は発生しませんが、
セル描画バーコードがプリンタ印字に反映しません。
ＶＢＡ初心者ですが、問題点の解決方法を教示ください。
|
|
ばーこーど
- 09/12/7(月) 16:16 -
