しなやか暮らし研究所パソコン処理 Excelの自動化印刷

印刷

プリンターを選択して、選択範囲を印刷準備	Application.ActivePrinter = "Printer driver name" ExecuteExcel4Macro _ "PRINT(1,,,1,,TRUE,,,,,,1,""Printer driver name"",,TRUE,,FALSE)"
シートの印刷	Worksheets("Sheet1").PrintOut

シートの印刷設定

Range("A1:S" & CInt(I + 2)).Select
'        Worksheets(担当).PrintOut
With ActiveSheet.PageSetup　　　　　　　　　　　　　　'※１
'            .PrintTitleRows = "$1:$10"　　　　　　　　'行タイトル ※２
'            .PrintTitleColumns = "$A:$E"　　　　　　　'列タイトル ※３
     .PrintArea = "$A$1:$Q$" & CInt(I + 2) 　　　　　　'印刷範囲 ※４
     .LeftMargin = Application.InchesToPoints(0.2)　　　'左余白（25.2mmに対する％）※５
     .RightMargin = Application.InchesToPoints(0.2)　　　'右 〃
     .TopMargin = Application.InchesToPoints(0.75)　　　'上 〃
     .BottomMargin = Application.InchesToPoints(0.75)　　'下 〃
     .HeaderMargin = Application.InchesToPoints(0.512)　　'ヘッダー余白
     .FooterMargin = Application.InchesToPoints(0.512)　　'フッター 〃
     .PrintHeadings = False　　　　　　　　　'行列番号 True:印刷する  False:しない
     .PrintGridlines = True 　　　　　　　　　'セル枠線 True:印刷する  False:しない
     .PrintNotes = False　　　　　　　　　　　'セルメモ True:印刷する  False:しない
     .PrintQuality = 300　　　　　　　　　　　'印刷品質（ドライバ制約に注意）
     .CenterHorizontally = False　　　　　　　'水平中央寄せ True:する  False:しない
     .CenterVertically = False　　　　　　　　'垂直中央寄せ True:する  False:しない
     .Orientation = xlLandscape　　　　　　　　'印刷の向き xlPortrait:縦  xlLandscape:横
     .Draft = False　　　　　　　　　　　　　　'簡易印刷 True:する  False:しない
     .PaperSize = xlPaperA4　　　　　　　　　　'用紙サイズ xlPaperA4:A4 ※６
     .FirstPageNumber = xlAutomatic　　　　　　'先頭ページ番号 ※７
     .Order = xlDownThenOver　　　　　　　　　　'ページ付番順 ※８
     .BlackAndWhite = False　　　　　　　　　　'白黒印刷 True:する  False:しない
     .Zoom = 55　　　　　　　　　　　　　　　　'印刷倍率 ※９
     .FitToPagesWide = 1　　　　　　　　　　　　'横 1ページに印刷 ※10
     .FitToPagesTall = 1　　　　　　　　　　　　'縦 1　　　〃　　 ※10
     .PrintErrors = xlPrintErrorsDisplayed　　'セルのエラー ※11
End With
'        ActiveSheet.PrintPreview
If NeedPrint = "Yes" Then ActiveSheet.PrintOut

Print関数の引数

PRINT(「印刷範囲」「,先頭ページ」「,終了ページ」「,部数」「,画像」「,プレビュー」「,メモ印刷」「,カラー印刷」「,給紙方法｣「,品質｣「,解像度」「,印刷対象」)

印刷範囲
　1　全てを印刷する
　2　指定ページを印刷する
先頭ページ　省略可
　「印刷範囲」で2を指定した時の先頭ページを数値で指定する。
終了ページ　省略可
　「印刷範囲」で2を指定した時の終了ページを数値で指定する。
部数　省略可
　印刷部数を数値で指定する。省略すると1
画像　省略可
　TRUE　画像を印刷しない
　FALSE　画像を印刷する
　省略すると現在の設定を使用する。 
プレビュー　省略可
　TRUE　プレビューを表示する
　FALSE　プレビューを表示しない
　省略するとFALSE
メモ印刷　省略可
　1　ワークシートのみ印刷
　2　メモのみ印刷
　3　ワークシートとメモを両方印刷
　省略すると現在の設定を使用する。
カラー印刷　省略可
　Macintosh版EXCELのみで使用
給紙方法　省略可
　Macintosh版EXCELのみで使用
品質　省略可
　WINDOWS版EXCELのみで使用
　印刷品質をDPIで指定する
　省略すると現在の設定を使用する。
解像度　省略可
　WINDOWS版EXCELのみで使用
　縦方向解像度をDPIで指定する
　省略すると現在の設定を使用する。
印刷対象　省略可
　1　選択されているシートの現在選択されているセル範囲
　2　選択されているシートの定義されている印刷範囲　または　シート全体
　3　ブックに含まれるシートすべての定義されている印刷範囲　または　シート全体

14 15 16