Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64926 / 76807

←次へ　｜　前へ→


	【16458】Re:改ページプレビュー

ichinose - 04/7/28(水) 12:22 -


	引用なし

	パスワード

▼shin さん：
こんにちは。
>実際に以下のプログラムをコピーして使用させていただいたのですが、行を挿入したらやはり、全ページ同じ行数でプレビューできませんでした。

なるほど・・、つまり、行を挿入しても常に同じ行数のプレビューをしたいということでしょうか？
もっちょうと簡単な狭いセル範囲の例にしましょう（投稿が大変なので)

新規ブックに前回のｺｰﾄﾞ（pr_settei、VDRGOFF、HDRGOFF）を標準モジュールにコピーしておいてください（mainは、例題用にちょっと変更後述します）。

・新規ブックのアクティブシートのセルＡ１に「タイトル」とでも入れておいてください。
・同様にセルＢ１には「サブタイトル」と入力します。

・セルA3～E20に以下のようなデータを入れて下さい。

aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ddd　　　ddd　　　ddd　　　ddd　　　ddd
ddd　　　ddd　　　ddd　　　ddd　　　ddd
ddd　　　ddd　　　ddd　　　ddd　　　ddd
eee　　　eee　　　eee　　　eee　　　eee
eee　　　eee　　　eee　　　eee　　　eee
eee　　　eee　　　eee　　　eee　　　eee
fff　　　fff　　　fff　　　fff　　　fff
fff　　　fff　　　fff　　　fff　　　fff
fff　　　fff　　　fff　　　fff　　　fff

mainプロシジャーを以下のように変更して標準モジュールにコピーして下さい。
'==================================================================
Sub main()
　 Dim rng As Range
　 Set rng = Range("$A$3:$E$5,$A$6:$E$8,$A$9:$E$11,$A$12:$E$14,$A$15:$E$17,$A$18:$E$20")
　 Call pr_settei(rng)
　 ActiveSheet.PrintPreview
End Sub

まず、この状態でmainを実行してみてください。
プレビューは、セルA3～E5、セルA6～E8、・・・というページ区切りで
同じ文字が3行づつ表示されていますか？

ここで7行目に行を挿入して、セルA3～E21のデータが以下になるようにします。

aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ddd　　　ddd　　　ddd　　　ddd　　　ddd
ddd　　　ddd　　　ddd　　　ddd　　　ddd
ddd　　　ddd　　　ddd　　　ddd　　　ddd
eee　　　eee　　　eee　　　eee　　　eee
eee　　　eee　　　eee　　　eee　　　eee
eee　　　eee　　　eee　　　eee　　　eee
fff　　　fff　　　fff　　　fff　　　fff
fff　　　fff　　　fff　　　fff　　　fff
fff　　　fff　　　fff　　　fff　　　fff

ここで、プレビューを見てみると、
「bbb」表示されるページだけ4行になっていますよね？

ここを3行したいなら、
ここで再度、mainプロシジャーを実行してみて下さい。

aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa
aaa　　　aaa　　　aaa　　　aaa　　　aaa

bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb
bbb　　　bbb　　　bbb　　　bbb　　　bbb

bbb　　　bbb　　　bbb　　　bbb　　　bbb
ccc　　　ccc　　　ccc　　　ccc　　　ccc
ccc　　　ccc　　　ccc　　　ccc　　　ccc

ccc　　　ccc　　　ccc　　　ccc　　　ccc
ddd　　　ddd　　　ddd　　　ddd　　　ddd
ddd　　　ddd　　　ddd　　　ddd　　　ddd

ddd　　　ddd　　　ddd　　　ddd　　　ddd
eee　　　eee　　　eee　　　eee　　　eee
eee　　　eee　　　eee　　　eee　　　eee

eee　　　eee　　　eee　　　eee　　　eee
fff　　　fff　　　fff　　　fff　　　fff
fff　　　fff　　　fff　　　fff　　　fff

というようにプレビューでは表示されるはずなんですが・・・。
こういう結果がほしいのですよね？

つまり、挿入処理の後に、mainプロシジャーを再度実行することにより、
ページを再設定しなければなりません。

0 hits

▼

【16420】改ページプレビュー shin 04/7/27(火) 14:35