Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12931】印刷の設定について ゆっこ♪ 04/4/19(月) 21:33 質問
【12933】Re:印刷の設定について IROC 04/4/19(月) 21:43 回答
【12937】Re:印刷の設定について ゆっこ♪ 04/4/19(月) 21:59 お礼
【12931】印刷の設定について
質問  ゆっこ♪  - 04/4/19(月) 21:33 -
引用なし
パスワード
   質問させてください。。
１００レコード毎にデータが存在する部分を
改ページさせるように設定するには、ＶＢＡでは
どのようにコーディングすればよいのでしょうか？

補足＞
出力する内容は、動的に作成した帳票です。
帳票はヘッダー項目と明細の表で形成されています。
ヘッダーに対する表のデータが終わると今度は、別のヘッダーと表が
来るといったパターンです。。

ＶＢＡでの印刷は初めてなのでご教授お願いいたします。
【12933】Re:印刷の設定について
回答  IROC  - 04/4/19(月) 21:43 -
引用なし
パスワード
   >１００レコード毎にデータが存在する部分を
１００行ごとなので、
For 〜 Next のループ処理で、step 100
にすれば良いかと思います。

>改ページさせるように設定するには、ＶＢＡでは
>どのようにコーディングすればよいのでしょうか？
改ページを設定する操作を
マクロの自動記録してみて下さい。

あとは、行の指定を変数にして、
ループさせれば出来ると思います。
【12937】Re:印刷の設定について
お礼  ゆっこ♪  - 04/4/19(月) 21:59 -
引用なし
パスワード
   ▼IROC さん：
>>改ページさせるように設定するには、ＶＢＡでは
>>どのようにコーディングすればよいのでしょうか？
>改ページを設定する操作を
>マクロの自動記録してみて下さい。

次のようにやってできました♪
ありがとうございます。

　　Rows("101:101").Select
　　ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free