|
亜矢 さん
見づらくてすいませんが、印刷プレビューからの
マクロの記録で以下取得できます。
--------------
Sub Macro1()
With ActiveSheet.PageSetup
.LeftHeader = "" }
.CenterHeader = "" }
.RightHeader = "" }ヘッダー&フッター
.LeftFooter = "" }
.CenterFooter = "" }
.RightFooter = "" }
.LeftMargin = Application.InchesToPoints(0.787) }
.RightMargin = Application.InchesToPoints(0.787) }
.TopMargin = Application.InchesToPoints(0.984) }余白
.BottomMargin = Application.InchesToPoints(0.984) }
.HeaderMargin = Application.InchesToPoints(0.512) }
.FooterMargin = Application.InchesToPoints(0.512) }
.PrintHeadings = False ←見出し
.PrintGridlines = False ←枠線
.PrintComments = xlPrintNoComments ←印刷タイトル
.PrintQuality = 300 ←印刷品質
.CenterHorizontally = False ←余白の水平
.CenterVertically = False ←余白の垂直
.Orientation = xlPortrait ←回転角度
.Draft = False ←簡易印刷
.PaperSize = xlPaperA4 ←紙のサイズ指定
.FirstPageNumber = xlAutomatic ←ページ番号
.Order = xlDownThenOver ←降順、昇順
.BlackAndWhite = False ←白黒印刷
.Zoom = 100 ←倍率
.PrintErrors = xlPrintErrorsDisplayed ←セルのエラー
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ←印刷
End Sub
--------------
後はご自身でユーザ定義の用紙を選ぶマクロの記録を実施すれば、
.PaperSize = ○○○
○○○の部分が分かると思いますので、出来るかと思います。
|
|