Sub file_print()
	ActiveSheet.PrintOut
	'現在のシートを印刷します。
End Sub

Cyber Click!