vba 印刷設定 余白 5

| ヘッダー・フッターの設定 », ページ設定は[ファイル]-[印刷]-[ページ設定]をクリックする、もしくは[ページレイアウト]タブのページ設定区分、右下の矢印をクリックすると現れるウィンドウで設定できます。(以下このウィンドウを「ページ設定」とする), ページ設定の項目はたくさんありますがまずは、アクティブシートを印刷するときによく設定する項目についてのみ自動設定をするマクロを作成します。, よく設定する項目として下記の5点を設定していきます。(1)印刷範囲の設定(2)余白(3)印刷の向き(4)用紙サイズ(5)拡大縮小印刷, (1)印刷範囲の設定手動で印刷範囲を設定する場合は、印刷したい範囲(例としてA1:I100の範囲)を選択した状態で[ページレイアウト]タブ-[印刷範囲]-[印刷範囲の設定]ボタンをクリックします。, ActiveSheet.PageSetup.PrintArea = "A1:I100", VBAでは次のようにします。カッコ内の0.6などの数値をcm単位で指定します。下のコードでは左の余白0.6cm、右0.6cm上1.9cm、下1.9cmヘッダー0.8cm、フッター0.8cmに指定します。, With ActiveSheet.PageSetup    .LeftMargin = Application.CentimetersToPoints(0.6) '左    .RightMargin = Application.CentimetersToPoints(0.6) '右    .TopMargin = Application.CentimetersToPoints(1.9) '上    .BottomMargin = Application.CentimetersToPoints(1.9) '下    .HeaderMargin = Application.CentimetersToPoints(0.8) 'ヘッダー    .FooterMargin = Application.CentimetersToPoints(0.8) 'フッターEnd With, (3)印刷の向き手動では、ページ設定の[ページ]タブ-[印刷の向き]で設定します。, VBAでは次のコードの1行目で縦向き、2行目で横向きを指定します。どちらか片方のみ使用してください。, ActiveSheet.PageSetup.Orientation = xlPortrait '縦ActiveSheet.PageSetup.Orientation = xlLandscape '横, VBAでは下記のコードの1行目でA4用紙サイズを指定します。2行目がA3サイズ、3行目がB5サイズを指定します。目的の用紙サイズの1行のみ使用してください。, ActiveSheet.PageSetup.PaperSize = xlPaperA4 'A4ActiveSheet.PageSetup.PaperSize = xlPaperA3 'A3ActiveSheet.PageSetup.PaperSize = xlPaperA5 'B5, その他のサイズは下記のMicrosoftサイト内を参照してください。xlpapersize 列挙 (Excel), (5)拡大縮小印刷手動ではページ設定の[ページ]タブ-[拡大縮小印刷]で設定します。, VBAでの方法は、次のよく使う設定3パターンを見ていきます。・シートを1ページに印刷・すべての列を1ページに印刷・拡大縮小率を設定, 'シートを1ページに印刷With ActiveSheet.PageSetup.Zoom = False.FitToPagesWide = 1.FitToPagesTall = 1End With'すべての列を1ページに印刷With ActiveSheet.PageSetup.Zoom = False.FitToPagesWide = 1.FitToPagesTall = FalseEnd With'拡大縮小率を設定ActiveSheet.PageSetup.Zoom = 80, 以上で設定の各要素を見てきましたので、これらをまとめて一括でページ設定をできるようにします。(1)~(5)の必要な部分をコピペして1つのマクロにまとめます。, 設定後PrintCommunicationプロパティをTrueにしてプリンタの設定にも変更を反映させます。これをしないと設定項目を変更するごとにプリンタも設定することになるのでコードの実行時間が長くなります。, Sub macro20200328a()'印刷設定' 印刷範囲 A1:I100' 余白 左右0.6cm 上下1.9cm ヘッダーフッター0.8cm' 用紙向き 縦' 用紙サイズ A4' 拡大縮小 シートを1ページに印刷, Application.PrintCommunication = False    '印刷範囲    ActiveSheet.PageSetup.PrintArea = "A1:I100"    '余白    With ActiveSheet.PageSetup        .LeftMargin = Application.CentimetersToPoints(0.6)        .RightMargin = Application.CentimetersToPoints(0.6)        .TopMargin = Application.CentimetersToPoints(1.9)        .BottomMargin = Application.CentimetersToPoints(1.9)        .HeaderMargin = Application.CentimetersToPoints(0.8)        .FooterMargin = Application.CentimetersToPoints(0.8)    End With    '用紙の向き    ActiveSheet.PageSetup.Orientation = xlPortrait '縦    '用紙サイズ    ActiveSheet.PageSetup.PaperSize = xlPaperA4 'A4, '拡大縮小    'シートを1ページに印刷    With ActiveSheet.PageSetup        .Zoom = False        .FitToPagesWide = 1        .FitToPagesTall = 1    End With        Application.PrintCommunication = True    End Sub, 上記マクロをよく見てみるとActiveSheet.PageSetupの部分が共通していますので、この共通部分はWithステートメントでまとめることができます。まとめると次のコードのようになります。, '印刷設定' 印刷範囲 A1:I100' 余白 左右0.6cm 上下1.9cm ヘッダーフッター0.8cm' 用紙向き 縦' 用紙サイズ A4' 拡大縮小 シートを1ページに印刷, Application.PrintCommunication = False        With ActiveSheet.PageSetup        '印刷範囲        .PrintArea = "A1:I100"                '余白        .LeftMargin = Application.CentimetersToPoints(0.6)        .RightMargin = Application.CentimetersToPoints(0.6)        .TopMargin = Application.CentimetersToPoints(1.9)        .BottomMargin = Application.CentimetersToPoints(1.9)        .HeaderMargin = Application.CentimetersToPoints(0.8)        .FooterMargin = Application.CentimetersToPoints(0.8)                '用紙の向き        .Orientation = xlPortrait '縦                '用紙サイズ        .PaperSize = xlPaperA4 'A4                '拡大縮小        'シートを1ページに印刷        .Zoom = False        .FitToPagesWide = 1        .FitToPagesTall = 1            End With        Application.PrintCommunication = True    End Sub, 以上ではアクティブシートに対してのページ設定でしたがActiveSheetの部分をSheets("Sheet1")などとすれば特定のシートに対してページ設定ができます。, 記事のコードは,記事内に実行環境の記載がない場合は(Excel2000, winXP)で実行できたコードですが、動作は保証できませんのご注意ください。.

ドラえもん 牧場物語 攻略 どこでもドア 5, バイク ヘッドライトグリル 車検 8, 庭 雑草対策 犬 5, 関数電卓 余り Sharp 5, Sistar ソユ 結婚 4, Php Get ページ遷移 6, 山田孝之 妻 亡くなる 9, D払い Id 上限 変更 39, どっち も ドア うるさい 7, スプラ トゥーン 味方 イライラ 36, 中国 重慶 雨雲レーダー 8, ポケ森 あつ森 住民 15, Exos Heroes Reddit 10, Unity 子オブジェクト 非表示 6, Fits 奥行 65 5, Instagram Basic Display Api 4, 桜田ひより 顔 小さい 11, 発達障害 彼女 別れ 5, 年上男性 Line 既読無視 5, Twitch 流れるコメント 非表示 4, ストレス 目の 痛み 5, パグ 里親 茨城 8, エレコム マウス 動かない Bluetooth 5, Vba 稼働 時間計算 8, Hc Sr501 誤動作 13, 北秋田市 ゴミ 分別 6, Dtv コンテンツの取得に失敗しました H0005 17, 金運 画像 強力 8, トヨタ ディスプレイオーディオ ミラーリング 6, Gmail で Ymobileメール 6, 外 構 紹介 6, 北秋田市 ゴミ 分別 6, Windows10 上キー 押しっぱなし 56, 婚活 サイト 2ch 4, 肘 スピリチュアル 意味 5, 褥瘡 原因 栄養 14, Line スタンプ 閲覧履歴 削除 4, Cmsis Dsp Example 5, ナショナル オーブンレンジ 取扱説明書 6, Vba コマンドボタン 複数 6, バイク タイヤ 扁平率 下げる 6, 損保ジャパン 入通院定額給付金 いつ支払われる 8, Arrows M359 手帳型ケース 4, カラス 嫉妬 なんj 18, 声優 結婚 噂 7, Wordpress Acf Function 5, 新型ハリアー 内装 ブラウン 7, シティー ハンター 遼 香 別れ 46, レイド 夢特性 リセット 5, Bnc/rca 変換 ヨドバシ 7, 船橋市 給付金 振り込み 6, Access フォーム フィルター できない 6, Canta 解散 理由 6, めっちゃ 効く 湿布 肩こり 29, Vba If 抜ける Exit 4, トイプードル 黒 値段 10, Gta5 白粉製造 おすすめ 20, ドア 閉められない 病気 13, ミニチュアダックス 里親 千葉 34, クレヨンしんちゃん Op Pleasure 6, ディーン アンドデルーカ 付録 歴代 25, Invisible Love アザージャケット 4, アパート 嫌がらせ 仕返し 26, ブルーレイレコーダー データ移行 他社 7, 愛は花 君はその種子 英語 4, Defi カプラー 修理 4, コムテック Zdr 015 レビュー 6, これからの運勢 無料 当たる 4, Wf1200hp2 中継機 設定 42, F5 Access Ios13 証明書 11, Pubg Mobile Jp 4, アンプ バリバリ ノイズ 原因 9, タモリ クラブ 見逃し 6,

Leave a Reply