Sub file_pagesetup_sheet()
	With ActiveSheet.PageSetup
	'印刷範囲
		.PrintArea = "A1:G33"
	'印刷タイトル
		.PrintTitleRows = "$1:$1"
		'行のタイトル
        	.PrintTitleColumns = "$A:$A"
		'列のタイトル
	'印刷
		.PrintGridlines = True
		'枠線
		.PrintHeadings = True
		'行列番号
        	BlackAndWhite = True
		'白黒印刷
		.PrintComments = xlPrintNoComments
		'コメント なしに設定
		'引数としてシートの末尾xlPrintSheetEnd
		'画面表示イメージxlPrintInPlaceがあります
		.Draft = True
		'簡易印刷
	End With
End Sub