スキルアップ・問題解決なら、モーグにおまかせ！

対象がセル範囲の場合、指定したセル範囲だけを印刷します。対象セル範囲に埋め込まれている図形なども一緒に印刷されます。セル範囲が複数ある場合には、改ページの設定などは関係なく、それぞれ別のページに印刷されます。また、ページ設定で行タイトル/列タイトルを指定していた場合にはその範囲も一緒に印刷されます。なお、引数PrToFileNameはExcel2000で追加された機能です。

　構文  Object.PrintOut(From, To, Copies, Preview, ActivePrinter, 
                        PrintToFile, Collate, PrToFileName)

 設定項目      内容
 Object        Rangeオブジェクト
 From          印刷を開始するページの指定。省略すると1ページから。
 To            印刷を終了するページの指定。省略すると最後のページまで。
 Copies        印刷部数の指定。省略すると1部印刷。
 Preview       印刷プレビュー実行(True)、プレビューなし(False：既定値)
               [省略可能]
 ActivePrinter アクティブなプリンタ名の指定。　[省略可能]
 PrintToFile   ファイルに出力(True)、プリンタに出力(False：規定値)[省略可能]
 Collate       部単位で印刷(True：規定値)、ページ単位で印刷(False)[省略可能]
 PrToFileName  ファイルに出力する際のファイル名の指定[省略可能]

次のサンプルは、アクティブブックの各ワークシートのセル範囲A1〜F10だけを、プレビューせずに10部づつアクティブプリンターに印刷します。

Sub PrintOutSamp1()

　  Dim ws As Worksheet

　  For Each ws In Worksheets
     　　ws.Range("A1:F10").PrintOut Copies:=10
    Next ws

End Sub