白黒印刷（PageSetup.BlackAndWhite プロパティ）
PageSetup.BlackAndWhite プロパティ
PageSetup.BlackAndWhite プロパティ を True に設定すると白黒で印刷します。値の取得および設定が可能です。
【書式】
＜取得＞
object.PageSetup.BlackAndWhite
＜設定＞
object.PageSetup.BlackAndWhite = boolean
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- boolean ・・・ True に設定すると対象となるオブジェクト（ object ）を白黒で印刷します。
PageSetup.BlackAndWhite プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Sub Sample_PageSetupBlackAndWhite() Dim w As Worksheet Set w = ActiveSheet With w '印刷範囲を設定 .PageSetup.PrintArea = "B1:J26" '白黒で印刷 .PageSetup.BlackAndWhite = True '印刷プレビューを表示 .PrintPreview End With End Sub |
実行結果
サンプルVBAソース 実行前
実行後
関連記事
-
-
ワークシートの追加・削除（Add メソッド・Delete メソッド）
新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …
-
-
最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）
最近使用したファイル（RecentFile オブジェクト,RecentFiles …
-
-
ステータスバーにメッセージを表示（StatusBar プロパティ）
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
ウィンドウを整列（Windows.Arrange メソッド）
ウィンドウを整列（Windows.Arrange メソッド） Windows コ …
-
-
印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt（ポイント：約 0.03528 cm） …
-
-
ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
セルのコメントを印刷（PageSetup.PrintComments プロパティ）
PageSetup.PrintComments プロパティ PageSetup. …
-
-
行列番号を含めて印刷（PageSetup.PrintHeadings プロパティ）
PageSetup.PrintHeadings プロパティ PageSetup. …
-
-
ブックの表示を変更（View プロパティ）
ブックの表示を変更（View プロパティ） View プロパティ で、ブックの表 …
-
-
スクロール範囲を限定（ScrollArea プロパティ）
ScrollArea プロパティ ScrollArea プロパティ にセル範囲を …