Sub file_pagesetup_page()
	With ActiveSheet.Pagesetup
	'印刷の向き
		.Orientation = xlPortrait　　'縦　デフォルト
		.Orientation = xlLandscape　 '横
		'指定できるのはどちらか片方です

	'拡大縮小印刷
		'拡大/縮小
		.Zoom = 100
		'横*縦ページに印刷
		.FitToPagesWide = 1　'横
        	.FitToPagesTall = 1　'縦
		'指定できるのはZoomかFitかどちらか片方です

	'用紙サイズ
		.PaperSize =xlPaperA4
		'細かい用紙についてはPaperSizeプロパティを参照して下さい

	'印刷品質
		.PrintQuality = 360
		'360 x 180dpiのような指定の場合は次のようにします
		.PrintQuality = Array(360, 180)

	'先頭ページ番号
		.FirstPageNumber = xlAutomatic '自動
		.FirstPageNumber = 2
	End With
End Sub