Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3176 / 13646 ツリー ←次へ | 前へ→

【63743】バーコード印字 ばーこーど 09/12/7(月) 16:16 質問[未読]
【63744】Re:バーコード印字 seg 09/12/7(月) 16:45 発言[未読]

【63743】バーコード印字
質問  ばーこーど  - 09/12/7(月) 16:16 -

引用なし
パスワード
   お世話になります。
XP、EXCEL2003でのVBAマクロの関しての質問です。
<処理内容>
 1. シート上のB1にバーコード(MSコントロール9.0)を設定して
   A1とリンクさせます。
 2. A1には、通信で約1秒間隔で数値が送られてきます。
 3. B1に描画されたバーコードをプリンタで印字する。
   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 の実行をなくすと異常は発生しませんが、
  セル描画バーコードがプリンタ印字に反映しません。

VBA初心者ですが、問題点の解決方法を教示ください。

【63744】Re:バーコード印字
発言  seg  - 09/12/7(月) 16:45 -

引用なし
パスワード
   ▼ばーこーど さん:
一部のソースしか見てないのですが、リソースはちゃんと開放
していますか?

GlobalMemoryStatus を用いてLogを作成し
どの部分でメモリーを消費しているのか確認してみると良いかも。

3176 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free