- ベストアンサー
あるシートを10枚印刷するマクロを組みました。
あるシートを10枚印刷するマクロを組みました。 これの前後にauto open,close を足せば、アイコンをクリックするだけで、10枚印刷することができると思うのですが、どのように書けばいいか調べたのですが、わかりませんでした。 初歩的な質問だとは思いますが、よろしくお願いします。
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- マクロ auto_open がうまくゆかない
マクロで たとえば auto_open() Sheets("sheet1").select というように編集しても ファイルをオープンした時全然このマクロ自体が有効にならず、手動で、「セキュリティの警告 マクロが無効にされました オプション」 となっている「オプション」をクリックしてはじめて sheet1 が自動表示されます。 AUTO_ OPEN はファイルを開いた時に即有効になるんではないかと思いますが、どうしてでしょうか。
- ベストアンサー
- Windows Vista
- エクセルでデータがあるシートだけ印刷するマクロ
エクセルのマクロで印刷するマクロを使っていますが、5つある ワークシートを全て選択して印刷するマクロでこれをデータ(数値)が 入っているワークシートだけ印刷するマクロにしたいのですがどのようにすればいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- 指定のシート枚数をマクロで印刷
こんにちは。 エクセルマクロを使用しての印刷に関して、皆様の知恵をお借りしたく投稿させて頂きました。 現在は ・マクロを実行し印刷したいエクセルブックを開く。 ・指定した名前のエクセルシートの選択。 ・選択した名前のシートの印刷。 となります。 それを ・マクロを実行し印刷したいエクセルブックを開く。 ・2枚目のシートから4枚目のシートまでを選択。 ・空白のシートを追加(両面印刷する際に奇数だと次のファイルが同じ紙の裏面に印刷されてしまうため) ・2枚目から4枚目シート+空白シートの印刷。 と変更したいのです。 ※2~5枚目シート選択、1~6枚目シート選択など、変更できると助かります。 ※偶数シートの印刷の場合は空白シート追加は不要となります。 1000近くのエクセルブックを印刷しているのですが、シート名が統一されていないため、マクロが止まってしまい困っておりました。 なんとか知恵をお貸し頂けないでしょうか。 宜しくお願い致します。 下記に現在使用しているマクロのコードを提示致します。 --------------------------------------------------------------------------------------------------------- Sub Excelファイルの指定したシートのみ印刷_資料2から資料3Ver() '複数のファイルを選択する Dim vntFileName As Variant Dim vntGetFileName As Variant Dim B As Boolean Dim W As Workbook 'ファイルを開くダイアログを開きます vntFileName = _ Application.GetOpenFilename( _ FileFilter:="xlsxファイル(*.xlsx),*.xlsx" & _ ",エクセルファイル(*.xls),*.xls" _ , FilterIndex:=1 _ , Title:="印刷するファイルを選択" _ , MultiSelect:=True _ ) If IsArray(vntFileName) Then For Each vntGetFileName In vntFileName Set W = Workbooks.Open(vntGetFileName) If B Then Sheets(Array("資料2", "資料3", "資料4")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 '通常設定のプリンタで出力 Else Sheets(Array("資料2", "資料3", "資料4")).Select Application.Dialogs(xlDialogPrint).Show '印刷ダイアログを表示 B = True End If W.Close False Next End If End Sub ----------------------------------------------------------------------------------------------------
- 締切済み
- オフィス系ソフト
- 複数のシートをマクロで印刷
印刷したい複数のシートをアクティブ状態にして以下のマクロを実行すると、余計に印刷されてしまいます。 Sub Test() Dim ws As Worksheet For Each ws In ActiveWindow.SelectedSheets ActiveWindow.SelectedSheets.PrintOut _ Copies:=1, Collate:=True Next ws End Sub 例えば、Sheet1とSheet2を選択して実行すると、Sheet1とSheet2が二部ずつ印刷されます。また、Sheet1とSheet2とSheet3を選択して実行すると、それぞれが三部ずつ印刷されます。 それぞれを一部ずつ印刷するためには、マクロをどう直せばいいでしょうか?
- ベストアンサー
- オフィス系ソフト
- マクロVBAで印刷
マクロはまったくの初心者です。 エクセルで入力シートにて明細書を作成したものを、出力シートに反映させ、 マクロで作成した印刷ボタンをクリックすると、1枚目には「お客様控え」・2枚目には「支店控え」・ 3枚目には「当社控え」となる様なマクロが出来てます。 これを「当社控え」だけを印刷するように変更したいんです。 出力シートには「お客様控え」としかなってないのに、印刷するとその3枚が印刷されます。 他の人が作ったもので、私は分からないためにマクロの変更・修正が出来ません。説明も分かりずらくて申し訳ございません。 どなたか分かる方教えてください。
- 締切済み
- Visual Basic
- シート1にある印刷ボタンを押してシート2とシート3を印刷するには?
シート1にある印刷ボタンを押して シート2とシート3を印刷するには どのようなマクロにすればよいですか?
- ベストアンサー
- オフィス系ソフト
- エクセルシートをまとめて印刷(ボタンを使い)
Excel(エクセル)印刷について質問です。 シートをまとめて印刷する場合に シフトを押しながらシートのタブを クリックすれば印刷出来るのは、 解りますが、毎日同じ入力を行うので 下記のような事が出来ないかと思います。 Sheet1にマクロで?ボタンを造り そのボタンを押すだけで、 Sheet2~4までをまとめて印刷したい。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 2つのシートを同時に印刷するボタン【画像あり】
タイトルの件、質問します。 下記の画像を例に、質問させて頂きます。 シート【印刷1】とシート【印刷2】を同時に印刷できるボタンを シート【印刷支持ボタン】に作成したい。というのが質問です。 現在は、シート【印刷1】で印刷を1回クリック→シート【印刷2】に移動して、印刷を1回クリックして 2つのシートを印刷しています。おそらく、マクロとかで、できる気がします。 ご存知の方、いらっしゃいましたら、宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- EXCELでワークシートを開いたらマクロを自動実行したい
いつもお世話になります。 EXCEL2000を使用しています。 EXCELファイルの中のあるワークシートを開いたときにマクロを自動実行することはできますか? AUTO_OPENだとファイルを開くたびに自動実行されるので、特定のワークシートを開いたときだけマクロを自動実行できるようにしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト