|
▼shin さん:
こんにちは。
>実際に以下のプログラムをコピーして使用させていただいたのですが、行を挿入したらやはり、全ページ同じ行数でプレビューできませんでした。
なるほど・・、つまり、行を挿入しても常に同じ行数のプレビューをしたいということでしょうか?
もっちょうと簡単な狭いセル範囲の例にしましょう(投稿が大変なので)
新規ブックに前回のコード(pr_settei、VDRGOFF、HDRGOFF)を標準モジュールにコピーしておいてください(mainは、例題用にちょっと変更後述します)。
・新規ブックのアクティブシートのセルA1に「タイトル」とでも入れておいてください。
・同様にセルB1には「サブタイトル」と入力します。
・セル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プロシジャーを再度実行することにより、
ページを再設定しなければなりません。
|
|