VBAの印刷について教えてください

私は、VBAを始めて、まだ３日目の初心者ですので、詳しく教えて下さい。
エクセルの１つのブックの中にシートが１０枚あるのですが、シートに印刷ボタンを表示して、ボタンを押したときに、シート１，４，５の印刷ボタンと、また、違う印刷ボタンを押したときにシート２．３、６が印刷されるようにしたいと思っていますので、よろしくお願いします。

No.2 ベストアンサー 回答者： mitsu-s 回答日時： 2002/01/08 21:20

前の方の言う通りマクロの記録で動作を記録してからソースコードを加工する方法が一番簡単だと思いますよ。

Private Sub １つ目のコマンドボタン名_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名１").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名４").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名５").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Private Sub ２つ目のコマンドボタン名_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名２").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名３").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("シート名６").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

こんな感じでどうでしょう？

この回答への補足

あと少し教えてください。
ユーザーホームのボタンとコマンドボタンは違うのですか。
違うのでしたら、コマンドボタンの作成を教えてください。

補足日時：2002/01/08 23:09

No.4 回答者： mitsu-s 回答日時： 2002/01/09 14:27

>ユーザーホームのボタンとコマンドボタンは違うのですか。

>違うのでしたら、コマンドボタンの作成を教えてください。
ボタンは

簡単に言うと、
ボタンはクリックした時にマクロが実行されるように割り当てる。
コマンドボタンはコントロール自体にマクロを記述する。

というイメージになるのでしょうか。

で、作成方法は、
「表示」－「ツールバー」－「コントロールツールボックス」にチェックを入れます。
表示されたコントロールツールボックスの中からコマンドボタンをクリックし、シート上へ配置します。

作成したコマンドボタンをダブルクリックすると、
Visual Basic Editorが起動され、

Private Sub CommandButton1_click()

End Sub
と表示されます
この
Private Sub Command… から End Sub の間に
自分が処理したいコードを書き込みます。

ちなみに、CommandButton1_click()というのは
commandButton1 という名前のコマンドボタンを
クリックした場合に End Sub まで記述してある
コードを実行します。

この回答へのお礼

ありがとうございました。
私は、初心者ですので、詳しく書いてくれてましたので助かりました。

お礼日時：2002/01/09 19:24

No.3 回答者： sgh 回答日時： 2002/01/09 09:16

>シートに印刷ボタンを表示して、印刷は出来ないのですか。

メニューから「表示」「ツールバー」「フォーム」をクリックすると、ツールバーが出てきます。
ボタンらしきアイコンをクリックして、シート上に配置すると、「マクロの登録」画面が出てきますので、作成したマクロを登録してください。
ちなみに、オートシェイプにもマクロは登録できます。

この回答へのお礼

ありがとうございました。
本よりわかりやすかったです。

お礼日時：2002/01/09 19:23

No.1 回答者： sgh 回答日時： 2002/01/08 20:51

こんなのでいかがでしょうか？

Sub Print145()
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut
Sheets("Sheet4").Select
ActiveWindow.SelectedSheets.PrintOut
Sheets("Sheet5").Select
ActiveWindow.SelectedSheets.PrintOut
End Sub

EXCELの場合は、マクロの記録を使って、動作をコード化してもらい、不要なところを削除するのが簡単です。

この回答への補足

早速試してみました、印刷は出来たのですが、出来れば下記のようにしたいのですが、教えてください。
シートに印刷ボタンを表示して、印刷は出来ないのですか。

補足日時：2002/01/08 23:03