VBAサンプル集
複数シートの印刷(PrintOut)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2013-05-14

複数シートの印刷(PrintOut)


複数シートの印刷方法です。


シートは、ワークシートが「Sheet1」「Sheet2」「Sheet3」があり、その他で、グラフシートもあるとします。


ワークシートのみ印刷する場合です。




Sub sample1()
  Sheets(Array("Sheet1", "Sheet2", "Sheet3")).PrintOut
End Sub


シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。



その場合は、


Sub sample2()
  Dim i As Integer
  Dim mySht As Variant
  For Each mySht In ActiveWorkbook.Sheets
    If TypeName(mySht) = "Worksheet" Then
      mySht.PrintOut
    End If
  Next
End Sub


TypeName(mySht) = "Worksheet"

これで、ワークシートかの判定をしています。


ただし、この場合は、プリントスプールが別々になります。


共有プリンターで印刷する場合は、他の人の印刷と混ざってしまう可能性があります。



そこで、1つのスプールで印刷する場合は、




Sub sample3()
  Dim mySht As Variant
  Dim i As Long
  For i = 1 To Sheets.Count
    If TypeName(Sheets(i)) = "Worksheet" Then
      If IsEmpty(mySht) Then
        ReDim mySht(0)
      Else
        ReDim Preserve mySht(UBound(mySht) + 1)
      End If
      mySht(UBound(mySht)) = Sheets(i).Name
    End If
  Next i
  If Not IsEmpty(mySht) Then
    Sheets(mySht).PrintOut
  End If

End Sub


配列の使い方はいろいろあります。

Dim mySht() As String

としても良いです。

その場合は、IsEmpty(mySht)での判定はできませんので、適時修正が必要です。


また、mySht(1 To ・・・)として、1から使用するのも良いでしょう。


一応、ワークシートが無かった時の判定も入れていますが、普通は不要だと思います。



配列を使用せずに、以下のような方法も、


Sub sample4()
  Dim mySht As Variant
  Dim FirstFlg As Boolean
  FirstFlg = False
  For Each mySht In ActiveWorkbook.Sheets
    If TypeName(mySht) = "Worksheet" Then
      If FirstFlg = False Then
        mySht.Select
        FirstFlg = True
      Else
        mySht.Select False
      End If
    End If
  Next
  If FirstFlg = True Then
    ActiveWindow.SelectedSheets.PrintOut
  End If

End Sub


Select False

を使用しています。

Falseを指定することで、それまでの選択を有効に残しています。


ここまでで、Forと、For Eachを使っていますが、特に使い分けしているわけではありません。


サンプルとして、2通りを例示しているにすぎませんので、承知おき下さい。



もちろん、全てのシートを印刷するなら、


Sub sample5()
  ActiveWorkbook.PrintOut
End Sub


これで良いですね。





同じテーマ「マクロVBAサンプル集」の記事

1行置きにする行挿入(Insert)
シートの追加・削除(Add,Delete)
シートの複数選択(Select)
複数シートの印刷(PrintOut)
重複削除してコピー(AdvancedFilter)
ブックを安全確実に開く方法(Open)
ブックを閉じる(Close)
他ブックを開いて閉じる(Open,Close)
ブックを開かずにセル値を取得(ExecuteExcel4Macro,Excel.Application)
罫線を簡単に引く(Borders,BorderAround)
マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ


新着記事NEW ・・・新着記事一覧を見る

ユーザーに絶対に停止させたくない場合のVBA設定|VBA技術解説(4月1日)
CharactersプロパティとCharactersオブジェクト|VBA技術解説(3月31日)
指数近似/対数近似/累乗近似(掲載順位とCTR)|エクセル関数超技(3月31日)
練習問題32(連続数値部分を取り出し記号で連結)|VBA練習問題(3月24日)
連続数値部分を取り出し記号で連結|エクセル関数超技(3月24日)
数式バーの高さを数式の行数で自動設定|VBAサンプル集(3月21日)
LET関数(数式で変数を使う)|エクセル入門(3月21日)
スピルに対応したXSPLITユーザー定義関数(文字区切り)|VBAサンプル集(3月15日)
XMATCH関数(範囲から値を検索し一致する相対位置)|エクセル入門(3月14日)
XLOOKUP関数(範囲を検索し一致する対応項目を返す)|エクセル入門(3月14日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.変数宣言のDimとデータ型|VBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.繰り返し処理(For Next)|VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
10.セルに文字を入れるとは(Range,Value)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ