Sub file_printrange_clear()
	ActiveSheet.PageSetup.PrintArea = ""
	'設定されている印刷範囲をクリアします
End Sub

Cyber Click!