印刷設定


'印刷設定
With シート.PageSetup
.PrintArea = "$A$1:$AC$19" '印刷範囲
.LeftMargin = Application.CentimetersToPoints(1) '左余白
.RightMargin = Application.CentimetersToPoints(0) '右余白
.TopMargin = Application.CentimetersToPoints(1.8) '上余白
.BottomMargin = Application.CentimetersToPoints(1.8) '下余白
.CenterHorizontally = True '水平中央寄せ True:する False:しない
.CenterVertically = True '垂直中央寄せ True:する False:しない
.Orientation = xlLandscape '印刷の向き xlPortrait:縦 xlLandscape:横
.PaperSize = xlPaperA4 '用紙サイズ
.Zoom = False
.FitToPagesWide = 1 '横 1ページに印刷
.FitToPagesTall = 1 '縦 1   〃
End With
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR