Excel VBA質問箱 IV

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

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


3674 / 13644 ツリー ←次へ | 前へ→

【60666】印刷範囲の制御 yoshihama/k 09/3/7(土) 7:21 質問[未読]
【60668】Re:印刷範囲の制御 マクロマン 09/3/7(土) 9:06 発言[未読]
【60780】Re:印刷範囲の制御 yoshihama/k 09/3/13(金) 23:09 お礼[未読]

【60666】印刷範囲の制御
質問  yoshihama/k  - 09/3/7(土) 7:21 -

引用なし
パスワード
   おはようございます!!

 マクロでExcelファイル印刷範囲を制御するため、どのように対処すれば、
よいでしょうか?また、合計欄を設けたいのですが、
自動計算可能になるのでしょうか?
ご伝授ください。
Sub Macro1()
  ActiveSheet.PageSetup.PrintArea = "$A$1"
  Range("A1:E16").Select ---->範囲可変ですので、対処方法は分からない。
                 範囲の下限範囲はA列の空欄です。
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
   A  B  C  D   E
1   あ          1 
2   い          1


16   た          1
17          合計 16  ------>印刷を実行すると、指定されて
                    いる範囲と自動設けている
                    「合計・・・」を印刷されるよ
                    うにするにはどうすればいいで
                    しょうか?

【60668】Re:印刷範囲の制御
発言  マクロマン  - 09/3/7(土) 9:06 -

引用なし
パスワード
   参考になりますでしょうか?

MsgBox Activesheet.Range("E" & Cells.Rows.Count).End(xlUp).Address

【60780】Re:印刷範囲の制御
お礼  yoshihama/k  - 09/3/13(金) 23:09 -

引用なし
パスワード
   マクロマン さん:
>参考になりますでしょうか?
>
大変参考になりました!
ありがとうございました。

3674 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free