Excel VBA質問箱 IV

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

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


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

16936 / 76732

←次へ　｜　前へ→


	【65258】Re:印刷範囲の設定方法について

suika - 10/5/1(土) 15:36 -


	引用なし

	パスワード

▼りんさん：
こんにちわ。suikaです。

早速のご返信、どうも有難うございます。

りんさんに教えて頂いた、下記２つのコードを私のコードに組み込んで検証して
みました。

検証するに当たり、３通りのサンプルデータを準備しました。
　1.データの行数⇒400行
　2.　　〃　　　⇒800行
　3.　　〃　　　⇒1300行

＜検証結果＞
データの行数に関係なく、印刷範囲がピッタシです。
列ラベルが不要なページに跨っていないので、わざわざ、手作業で印刷ページ数
の指定を行う必要性も、無くなりました。

りんさん、どうも有難うございます。助かりました。

最近、仕事でマクロを使い始めたのですが、右も左も分からない、ど素人の私の
質問に回答して頂き、感謝感激です^^

逆引き辞典で調べたのですが、分からず、ネット検索で色々調べている内に、
このＶＢＡ質問箱に辿り着きました。

また、何か分からない事があれば、投稿させて頂きますので、その時は、また
お力をお貸し下さい。本当に、有難うございました。

>
>その１
>　単純に使用範囲で判定する場合
>
>　 With Application.ActiveSheet
>　　　 'シートのデータの最下行を印刷範囲の一番したとする
>　　　 With .UsedRange
>　　　　　 Rmax = .Cells(.Count).Row
>　　　 End With
>　　　 '
>　　　 .PageSetup.PrintArea = "$A$1:$L$" & Rmax
>　 End With
>
>その２
>　データはないけど書式とか連番とかで使用範囲が必要な部分より大きい場合
>
>　 With Application.ActiveSheet
>　　　'データが入っている最下位置を判断する基準列をBとした場合
>　　　Rmax = .Cells(.Rows.Count, "B").End(xlUp).Row
>　　　.PageSetup.PrintArea = "$A$1:$L$" & Rmax
>　 End With

2 hits

▼

【65255】印刷範囲の設定方法について suika 10/4/30(金) 22:32