Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26024 / 76807

←次へ　｜　前へ→


	【56120】Re:印刷時のユーザー定義サイズ

yasu - 08/6/3(火) 13:11 -


	引用なし

	パスワード

亜矢さん見づらくてすいませんが、印刷プレビューからのマクロの記録で以下取得できます。 -------------- 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 = ○○○ ○○○の部分が分かると思いますので、出来るかと思います。