[[20071023104315]]　『印刷範囲』（EHO）　ページの最後に飛ぶ

『印刷範囲』（EHO）

 いつもお世話になっております。
    列数は固定で、データのある行数だけ印刷範囲に設定して、
    印刷を実行する
 というマクロを作ろうとしています。

 ＡからＪ列はいつも同じですが
 行数は毎回変わります。
 ★をつけた範囲にプラス2行も含めて
 印刷範囲を設定したいのですが
 以下のコードで行き詰っています。。。
 どなたかよろしくお願いいたします。

 Sub 印刷範囲()
    Range("A1:J1").Select
    Range(Selection, Selection.End(xlDown)).Select '←★
    '= ActiveSheet.PageSetup.PrintArea

 End Sub

 こうですか？

 Sub 印刷範囲()
    Range("A1", Range("J1").End(xlDown).Offset(2, 0)).Select
    '= ActiveSheet.PageSetup.PrintArea
 End Sub

 プラス2行って空白行でいいんですよね？

 (1or8)

 早速ありがとうございます!!
 実行してみると、少し違う結果になりました。
 ★の部分で選択できた範囲にプラス2行したいです。
 具体的に言うと
 ★の部分・・・データが入っていまして
 一行空欄があって、その下に合計行があるので
 この空欄行のために★のコードではすべてを選択できなかったんです。
 そのため、分かりにくい質問になり、申し訳ありません。
 あと、印刷範囲の設定もよく分かっていないので、
 お願いできないでしょうか。。。
 （EHO）

 こんな感じでどうでしょう？(ROUGE)
'----
With Range("A1:J1").CurrentRegion
    .Cells.Resize(.Rows.Count + 2).Select '←★
    '= ActiveSheet.PageSetup.PrintArea
End With

 こんな感じもどうでしょう？ (1or8)

 Sub 印刷範囲()
    Dim PrtArea As String
    PrtArea = Range("A1", Range("A1").SpecialCells(xlLastCell)).Address
    ActiveSheet.PageSetup.PrintArea = PrtArea
 End Sub

 みなさんありがとうございます！
 ROUGEさんので、範囲の指定は完璧にできました(＾＾)
 あと印刷範囲の設定がうまくいかないのですが、
 もう一度お願いできないでしょうか。。。
 (EHO)

 こういうことですか？(ROUGE)
'----
With ActiveSheet.Range("A1:J1").CurrentRegion
    ActiveSheet.PageSetup.PrintArea = .Cells.Resize(.Rows.Count + 2).Address
End With

 ありがとうございます!!
 したかったことが完璧にできました！
 助かりました。ありがとうございます(｡｡)
 (EHO)

コメント返信：

[ 一覧(最新更新順) ]

[[20071023104315]] 『印刷範囲』（EHO） ページの最後に飛ぶ

[[20071023104315]]　『印刷範囲』（EHO）　ページの最後に飛ぶ