Sub file_printrange_set()
	ActiveSheet.PageSetup.PrintArea = "$A$1"
	'A1を印刷範囲に設定します
End Sub

Cyber Click!