[[20140825162626]]　『１つのシートをページ指定して印刷する』（ねね）　ページの最後に飛ぶ

『１つのシートをページ指定して印刷する』（ねね）

お世話になります。

１つのシートに２つの表があります。

A5:AH50

AI5:BK50

印刷ボタンを作れるみたいなのですが
マクロはやったことがありません。

印刷ボタン「Ａ1」を押すとその下の表（A5:AH50）を印刷し
印刷ボタン「ＡＩ１」を押すとその下の表（AI5:BK50）を印刷する事は
できますか？

＜使用アプリ：Excel97-2003、使用 OS：unknown ＞

 Private Sub CommandButton1_Click()
    Range("A5:AH50").PrintOut
 End Sub
（???） 2014/08/25(月) 18:23

[[20040124193926]]を見ながら
コントロールツールボックスのコマンドボタンを作り
ダブルクリックして教えて頂いた

 Private Sub CommandButton1_Click()
    Range("A5:AH50").PrintOut
 End Sub

を入れたのですがうまくいきません。
入力した後になにかしなければならないのですか？

初めての挑戦なのですが、他に参照できるものがあれば
教えて下さい。

（ねね） 2014/08/26(火) 16:05

「うまくいかない」をも少し詳しく書けると幸せになれると思います。

（例）
ボタンを押したら「○○」のメッセージが出ました
ボタンを押してもウンともスンとも言いません（メッセージも出ません）
ボタンを押してプリントアウトしたら、二個一で出力されました
（ryopo^2） 2014/08/26(火) 16:20

.PrintOut を、.PrintPreview に変えるとどうなりますか？
（???） 2014/08/28(木) 08:39

コントロールツールボックスのコマンドボタンを作り
ダブルクリックするとプロシージャ？の画面がでてきて

すでに下記が表示されています

Private Sub CommandButton1_Click()

End Sub

カーソルが２行目にあるのでそこに教えて頂いた
メッセージを入れてウインドウの×ボタンに閉じると
エクセル画面に戻りコマンドボタンは四方に選択マーク？が
ついています。
１回クリックしても反応しないので２回クリックすると
またプロシージャ画面が出てきます。

（ねね） 2014/08/28(木) 09:00

参考に
２つの範囲をそれぞれ印刷範囲に設定すると印刷としては２ページの印刷になるので
印刷時に１ページを指定すると１番目の範囲、２ページを指定すると２番目の範囲を印刷出来ます。

（wisemac21） 2014/08/28(木) 09:36

マクロの貼り付けは問題ないようですね。
あとはブックを保存してから閉じて、もう一度開く際に、マクロ実行を有効にしてください。
（???） 2014/08/28(木) 10:49

デザインモードを終了してください。
http://www.excel.studio-kazu.jp/lib/e4a/e4a.html

（cai） 2014/08/28(木) 11:00

デザインモードを終了したら
印刷できました。

基本的な事がわかっていなくてすみません。
エクセルは奥が深いですね。
いろいろ挑戦してみたいです。

いろいろご指導ありがとうございます。

（ねね） 2014/08/28(木) 11:11

コメント返信：