Здравствуйте!

Подскажите, пожалуйста, макрос печати активного листа всех открытых книг , с последующим их сохранением и закрытием.
Заранее спасибо!