Excel VBA テクニック集
印字

印字方法を紹介します。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

最前面のシートの印字

     Excel_App.ActiveSheet.PrintOut

最前面のシートのページ指定印字

     Excel_App.ActiveSheet.PrintOut From:=1, To:=3

すべてのシートをまとめて印字

    Dim Sheets_T() As String
    Dim I As Integer
        
    ReDim Sheets_T(Excel_App.Worksheets.Count - 1)
    For I = 1 To Excel_App.Worksheets.Count
        Sheets_T(I - 1) = Excel_App.Worksheets(I).Name
        Next I        
    Excel_App.Worksheets(Sheets_T()).Select
    Excel_App.Worksheets(Sheets_T()).PrintOut

Excel VBA テクニック集印字

Excel VBA テクニック集
印字