- ベストアンサー
指定の範囲を印刷するマクロ
こんにちは、エクセル2010を使っています。 ちょっとやってみたい事があるので、マクロに詳しい方、教えて頂けませんでしょうか。 シートにボタンを作りました、それでそのボタンを押すと印刷画面を開きたいのですが、同時に範囲を選択した状態で印刷画面を開きたいのです。 選択する範囲は Ａ１～Ｙ４１です。 シートのタブからコードを入力するとして、そのコードを教えて頂けませんか？ それでは詳しい方よろしくお願いいたします。
- gekikaraou
- お礼率41% (282/678)
- Excel（エクセル）
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは！ コマンドボタンを挿入しているとして、 印刷プレビューを表示させるまでで、印刷はしません。 Private Sub CommandButton1_Click() With ActiveSheet .Range("A1:Y41").Select '←不要かも・・・ .PageSetup.PrintArea = "$A$1:$Y$41" .PrintPreview End With End Sub こんな感じではどうでしょうか？m(_ _)m
その他の回答 (2)
マクロの記録をすれば良いこと。人に頼らず貴方で出来る事。 下記動作をマクロに記録させるだけ 改ページプレビューをそのセル範囲に設定する。 印刷 マクロの記録で検索して。２００３と２００７以降ではエクセルのメニューレイアウトが違うので・・・
お礼
マクロの記録ってあるのですね、初めて知りました。 検索で調べてみますが、直接の回答ではないので、確実なＮｏ３の型の回答を採用させて頂きました。 ありがとうございます！
- mt2008
- ベストアンサー率52% (885/1701)
求めているのはこういう事かな？ Range("A1:Y41").Select Application.Dialogs(xlDialogPrint).Show Arg12:=1
お礼
ＢＩＮＧＯ！ ありがとうございます。 完璧です。
関連するQ&A
- マクロのセルの範囲指定
お世話になります。マクロ初心者です。エクセルの業務でマクロを作成しようとしているのですが、マクロ実行で、セルの範囲が指定される方法はありますか？例えば シート名 開始 終了 Sheet1 Ａ１ Ｄ１０ を入力して、ボタンを押したらＡ１からＤ10までのセルが選択されることです。説明不足ですみません。宜しくお願いします。
- 締切済み
- Visual Basic
- Excelマクロで印刷範囲の指定をしたい
Excelで一覧表を作成し、 『印刷A3』と『印刷A4』というボタンを作り、 それぞれ印刷範囲が異なるようにマクロを組みたいと思い、『印刷A3』の場合は下記のマクロで問題ありませんでした。 【印刷A3】 ------------------------------------------------- Sub 印刷A3_Click() Worksheets(7).PageSetup.PrintArea = _ Range("A6").CurrentRegion.Address With Worksheets(7).PageSetup .Orientation = xlLandscape .PaperSize = xlPaperA3 .Zoom = 63 End With Worksheets(7).PrintOut Preview:=True End Sub ------------------------------------------------- セルA6以降の入力されているセルを選択できるのですが、『印刷A4』の場合は、列の範囲を23列までとし、23列目以降は印刷範囲外としたいです。 （列は最大で33列まであります） 行は『印刷A3』と同じように、入力されている全てのセルを範囲としたいです。 マクロ初心者のため、教えていただけると助かります。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 複数ワークシートの同一印刷範囲指定（エクセル）
エクセルでのマクロについての質問です。例えば同一ブック内に、シート１で作成した「○○請求書」をコピーしてシート１と全く同じ内容の９９個のワークシートを作成しました。このとき、シート１からシート100まで一部の範囲だけ（例えばセルA3からH50)を同時に印刷範囲指定するにはどのようなマクロを作成すればよいのでしょうか、マクロの参考書等も見て自分なりにチャレンジしてはみたのですがうまくいきません。（印刷範囲まで指定したシートをコピーすればよかったのかもしれませんが・・・）
- ベストアンサー
- Windows XP
- 【Excel】マクロで印刷範囲の設定
Excel2003を使用しています。 マクロで印刷範囲を設定するコードを書きました。ページを追加するマクロを実行したときに一緒に実行するようにしているのですが、コードで指定している範囲外にデータがあるせいか、その列まで印刷範囲に設定されてしまいます。このデータは印刷範囲には入れたくないのですが、どうしたらいいでしょうか？ ちなみに、印刷範囲部分のコードは .PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 24)) Y1セルとZ1セルにデータが入力されています。マクロを実行すると、印刷範囲がA1：Zjに設定されます。印刷範囲はX列までに設定したいのですが、可能でしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ボタンを配置して指定範囲を印刷
ロータスより乗り換えでよく使い方が判りません。 例えば シート１にボタンを配置して、そのボタンを押すと指定範囲を印刷するようにするにはどうすれば良いでしょうか？ マクロだけではなく、ボタンの作り方も教えていただけたら助かります。 ちなみにExcelは2007です。
- ベストアンサー
- オフィス系ソフト
- マクロを使って印刷範囲を指定したのに
エクセルでボタンをクリックすると印刷範囲を指定し印刷プレビューまで行えるようにマクロを登録しました。 （A～C列+J～U列）を印刷したいので、D～I列を非表示にし、その後A～Uを選択→印刷→選択した部分にチェック→印刷プレビュー→印刷の方法でマクロ登録しました。登録作業中は正しく印刷できましたが、実際にボタンをクリックするとプレビューには（A～C列+M～U列）しか表示されません。 何度やり直してもダメで、D：Oを非表示にしてA:AAを選択後に印刷プレビューする場合は（A～C列+P～AA列）が正しく印刷できました。非表示にする列が違う場合はできたのに、どこがいけないのでしょうか？ 以下のような感じになっています。 Columns("D:I").Select Selection.EntireColumn.Hidden = True Range("A4:U43").Select Selection.PrintOut Copies:=1, Preview:=True, Collate:=True ActiveWindow.LargeScroll Down:=-1 Columns("C:J").Select Selection.EntireColumn.Hidden = False End Sub 説明がうまくできないのですが、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで印刷範囲を自動で指定し、印刷するマクロ
エクセルの表の中から、ある特定の文字が入っている セルを探し、そのセルから「下に３、右に２」の範囲 （文字が入っているセルは含まない）を自動的に範囲 指定して印刷するマクロをつくりたいのですが、どうすればよいでしょうか？ たとえば、「○」が入力されているセルが A2だとすればA3からC5を自動的に範囲指定して印刷 するようにしたいのです。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについて
エクセルのマクロ初心者です。 マクロを使用して印刷プレビューが見れるようにしたいです。 vlookup関数を使いsheet1に入力し、sheet2,sheet3,sheet4、sheet5へデータを反映させています。 sheet1に入力画面を作成してあり、セルA2~A13に入力すればsheet2へ、セルＡ17～Ａ28はsheet3へ、セルＦ2～Ｆ13はsheet4へ、セルF17~F28はsheet5へデータを反映する作りです。 sheet2~sheet5はフォーマットを作成してあり、印刷するとＡ4で2枚印刷されるようになっています。 入力画面で入力した内容によってはＡ4用紙1枚ですむこともあります。（Ａ1～Ｍ15でＡ4用紙一枚、Ａ1～Ｍ31でＡ4用紙2枚） 教えて頂きたいことは。 ・入力画面にマクロのボタンを設置し、ボタンをクリックすると印刷プレビューが表示されるようにしたいです。 ・sheet2用、sheet3用、sheet4用、sheet5用、とボタンを設置したい。 ・印刷プレビュー後に、（実際には印刷後）に入力画面を表示したい。 ・印刷プレビューが見たいのはsheet2,sheet3,sheet4,sheet5です。 以上です。 説明が下手ですみません＞＜
- ベストアンサー
- オフィス系ソフト
- excelの印刷用マクロ。
excelで分からない事があり困っています。 横がA～I列、縦がＢ列のB-1から文字が入力されている最後の行までの範囲を選択して、印刷するマクロを作りたいのですが、どうすればよろしいでしょうか。印刷したいシートには、オートフィルタが掛かっている場合もあります。その場合は、その状態のまま印刷出来る様にしたいです。 どなたか分かる方が居ましたら回答お待ちしています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます、この通りバッチリでした！