• ベストアンサー

複数のEXCELシートの印刷順の指定

EXCEL97の一つのブックに200程度のワークシートがあります。ワークシート名はそれぞれ1~200までの数値になっており、ランダムに並んでいます。シート名の降順で印刷をおこなうEXCEL VBAのコードを教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • wildcard
  • ベストアンサー率54% (54/100)
回答No.1

すべてのワークシートでページ設定が完了しているならば、下記のマクロでokですよ。ワークシートが200でないなら、 For i=200 の箇所を訂正して下さい。Excel2000にて動作確認済みです。 Sub All_Print()   Dim i As Integer   For i = 200 To 1 Step -1     Sheets(CStr(i)).PrintOut Copies:=1   Next i End Sub

minami373
質問者

お礼

ありがとうございます。 VeryVeryバッチリ出来ました。実はもう一つ質問があるのですが、また、別の質問でアップします。その質問も教えていただけたら助かります。 ほんとにほんとにありがとうございました。

関連するQ&A

  • Excel2016ワークシート順に印刷できずバグ?

    複数ワークシートを含むExcel2016のブック全体を印刷すると、ワークシートの順に印刷されなくなりました。以前は同じファイルがワークシートの順に印刷されました。 プリンタの設定、環境は変更していません。 Excel2016を使っていますが、Windows10のアップデートやOfficeのアップデートは行っています。 Excel2016でこのような問題が生じていることがExcel自体の問題であるかどうかをご存知の方はいらっしゃいますでしょうか。

  • VBAで別のExcelブックのボタンのマクロ登録

    Excelブック1とExcelブック2があります。 Excelブック1はVBAで 1)Excelブック2を開いて 2)Excelブック1のワークシート(Sheet1)と  モジュールシート(Module1)を  Excelブック2にコピーします。 3)ワークシート(Sheet1)にはコントロール(ボタン)が貼り付けてあって  このボタンをクリックするとモジュールシート(Module1)の中の  Excute_Button()というプロシージャ(マクロ)を呼び出すため  Excelブック1のVBAで  wb.Worksheets("Sheet1").Shapes.Range(Array("Button 1")).Select  Selection.OnAction = "Excute_Button"  と記述してボタンのマクロの登録をします。   (wbはExcelブック2を指しています) 4)Excelブック2を保存して閉じる。 という処理をしています。 この後、Excelブック1を閉じて、 Excelブック2を開いてワークシート(Sheet1)のボタンをクリックすると Excelブック1が開いてしまいます。 Excelブック2のボタンのマクロの登録のマクロ名を見てみると Excelブック1のファイル名!Excute_Button となっています。 Excelブック1のVBAで、ここを単にExcute_Buttonだけにするには どのようにすればよいでしょうか。

  • EXCEL2007 VBA 印刷タイトルには、連続した行全体または列全

    EXCEL2007 VBA 印刷タイトルには、連続した行全体または列全体を指定してください。 OS:windowsXP SP3 開発したエクセル:EXCEL2003 実行したエクセル:EXCEL2007 ファイルは2003形式で保存しています。 VBA付のEXCELマクロを起動すると、データを加工して、新しいブックにはきだします。 VBAのコードの中で、シートの印刷タイトルを設定しています。 Set s2 = Workbooks("ブック名").Sheets(”シート名”) ・ ・ ・ s2.PageSetup.PrintTitleRows = s2.Rows(1).Address & ":" & s2.Rows(4).Address こんな感じです。 excel2003では、何の問題もないのですが、excel2007で実行すると、エラーにはならないものの、作成したEXCELをプレビューすると、 印刷タイトルには、連続した行全体または列全体を指定してください。 というエラーが出て、プレビューできません。 作成したファイルの印刷設定は空欄になっていました。 With s2.PageSetup .PrintTitleRows = "$1:4$" .PrintTitleColumns = "" End With このソースもダメでした。 VBAのコードがNGならと、編集するシートにあらかじめ印刷設定を行ってみましたが、新しいブックにコピーした時点?でダメなようです。 どなたか、この問題を解決してください! 宜しくお願いします。

  • エクセル ワークシート操作

    エクセル VBAにてブックを閉じるときに作業をして追加した ワークシートを昇順、もしくは降順(名前、日付など)に 並び替えてから閉じるように する方法がわからないのですが? どのようにやるのでしょうか?

  • Excel で、1枚の用紙に複数のシートを印刷したい

    エクセル(Excel2000)で、 A6のサイズに収まるようなシートを複数作り(同一ブック内)、A4の印刷用紙に 4つのシートが印刷できるようにしたいと思っています。 つまり、 (印刷用紙1枚目) +---------------+ |::::::::::::::::::::|::::::::::::::::::::| |::::::::::::::::::::|::::::::::::::::::::| |::sheet1:::|::sheet2:::| |::::::::::::::::::::|::::::::::::::::::::| |::::::::::::::::::::|::::::::::::::::::::| +---------------+ |::::::::::::::::::::|::::::::::::::::::::| |::::::::::::::::::::|::::::::::::::::::::| |::sheet3:::|::sheet4:::| |::::::::::::::::::::|::::::::::::::::::::| |::::::::::::::::::::|::::::::::::::::::::| +---------------+ (印刷用紙2枚目以下同様) としたいのですが、どうすればよいのでしょうか。  

  • 複数シートの印刷設定について

    はじめまして、こんにちは。 複数シートの印刷について教えて下さい。 印刷したいエクセルブックにはシートが6枚あり、その中から4枚のシートをVBAを使って印刷できるようにしたいと思っています。 ですが、シート4については必ずある訳でなく、無い場合もあるので”シート4があれば、シート4も印刷する”という風にしたいと思うのですが、どのように書けばいいのでしょうか。 vntSelSheet = Array("シート1", "シート2", "シート3" ,"シート4" ) Worksheets(vntSelSheet).Select Worksheets(vntSelSheet).PrintOut

  • 複数のエクセルブックの中のシート指定して一括印刷

    複数のエクセルブックの中のシート指定して一括印刷 複数のエクセルブック(400枚)がある中で、シートが1~4あります。 そのエクセルブックの中のシート1とシート3だけを印刷していきたいのですが、 400回エクセルを開いてシート指定しないと印刷できないでしょうか? できれば、全ブックのシート指定をして、一括での印刷は可能でしょうか? 良きアドバイス等がありましたら教えて頂けたらと思います。 宜しくお願い致します。

  • 複数ワークシートの同一印刷範囲指定(エクセル)

    エクセルでのマクロについての質問です。例えば同一ブック内に、シート1で作成した「○○請求書」をコピーしてシート1と全く同じ内容の99個のワークシートを作成しました。このとき、シート1からシート100まで一部の範囲だけ(例えばセルA3からH50)を同時に印刷範囲指定するにはどのようなマクロを作成すればよいのでしょうか、マクロの参考書等も見て自分なりにチャレンジしてはみたのですがうまくいきません。(印刷範囲まで指定したシートをコピーすればよかったのかもしれませんが・・・)

  • Excel のブック、シート作成者

    Excel使い始めたものです。 Excel2013とExcel2010、2007、 保存場所はNAS上です。 ブックとワークシートの作成者、 直前とその一つ前の保存、印刷者って わかるものでしょうか。 特にワークシートがわかると助かります。 よろしくお願いいたします。

  • [Excel2003]複数のブックの各シートを印刷したい

    お世話になります。 複数のブックの、全シートを印刷する方法はあるのですが 複数ブックの、各シートごとの印刷をする方法が思いつきません。 例えば book1にはsheet1、sheet2があり book2にもsheet1、sheet2があり 全ブック(book1とbook2)の各sheet1(book1のsheet1とbook2のsheet1)を印刷 全ブック(book1とbook2)の各sheet2(book1のsheet2とbook2のsheet2)を印刷 ということは可能なんでしょうか? 表現がわかりづらかったらすみません。 なにかいいお知恵があれば、教えていただけるとありがたいです。 どうぞよろしくお願い致します。

専門家に質問してみよう