Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3685 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　----＞範囲可変ですので、対処方法は分からない。
　　　　　　　　　　　　　　　　　範囲の下限範囲はＡ列の空欄です。
　　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 -
引用なし
パスワード
   マクロマン さん：
>参考になりますでしょうか？
>
大変参考になりました！
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3685 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free