Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12544 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9973】連続シート多数印刷 正男 03/12/26(金) 14:39 質問
【9988】Re:連続シート多数印刷 Kein 03/12/26(金) 22:09 発言
【9973】連続シート多数印刷
質問  正男  - 03/12/26(金) 14:39 -
引用なし
パスワード
   今年の暮れも押し迫って参りました。
皆さん、いかがお過ごしのことでしょうか。

さて、次のようにして300から500部の印刷をしたいと思っています。

１．シート上にオブジェクト等を配置して、それを雛形にします。
　　（ちょうど、これをACCESSのレポートのように考えます。）

２．VBAを用いて、その雛形シートを別シートにコピーし、オブジェクトや
セルにデータを記入し、PrintOutメソッドで印刷をする。

３．VBAで、印刷をしたシートを削除する。

４．データを変えて、２と３を繰り返す。

このようにして多数のシートを印刷していますが、
約50枚印刷したところで、printoutメソッドのエラーが出て
止まってしまいます。

回避策として、印刷前に各シートを1枚のシートに改頁を入れながら、末尾に
追加していき、最後に、全頁を含んだ1枚のシートを印刷してみようか、
と思っています。

このように、あるシートの印刷領域を別のシートの印刷領域の末尾に
追加するにはどのようにすればよいのか、お教えください。

どうぞ、よいお年を。
【9988】Re:連続シート多数印刷
発言  Kein  - 03/12/26(金) 22:09 -
引用なし
パスワード
   >それを雛形にします。
ということなら
>印刷をしたシートを削除する。
必要は無いのでは・・?
>データを変えて
ということなら、単にセルの値を変えるだけじゃダメなんでしょーか ?
イマイチ意味が分からないんですが・・。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12544 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free