指定の範囲を印刷するマクロ

質問

こんにちは、エクセル2010を使っています。

ちょっとやってみたい事があるので、マクロに詳しい方、教えて頂けませんでしょうか。

シートにボタンを作りました、それでそのボタンを押すと印刷画面を開きたいのですが、同時に範囲を選択した状態で印刷画面を開きたいのです。

選択する範囲は　Ａ１～Ｙ４１です。

シートのタブからコードを入力するとして、そのコードを教えて頂けませんか？

それでは詳しい方よろしくお願いいたします。

回答No.3

tom04 · ベストアンサー

こんにちは！

コマンドボタンを挿入しているとして、
印刷プレビューを表示させるまでで、印刷はしません。

Private Sub CommandButton1_Click()
With ActiveSheet
.Range("A1:Y41").Select '←不要かも・・・
.PageSetup.PrintArea = "$A$1:$Y$41"
.PrintPreview
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

ありがとうございます、この通りバッチリでした！

回答No.2

noname#203218

マクロの記録をすれば良いこと。人に頼らず貴方で出来る事。

下記動作をマクロに記録させるだけ

改ページプレビューをそのセル範囲に設定する。
印刷

マクロの記録で検索して。２００３と２００７以降ではエクセルのメニューレイアウトが違うので・・・

お礼

マクロの記録ってあるのですね、初めて知りました。

検索で調べてみますが、直接の回答ではないので、確実なＮｏ３の型の回答を採用させて頂きました。

ありがとうございます！

回答No.1

mt2008

求めているのはこういう事かな？

Range("A1:Y41").Select
Application.Dialogs(xlDialogPrint).Show Arg12:=1

お礼

ＢＩＮＧＯ！

ありがとうございます。

完璧です。