как создать событие при печати документа

[funthing]

добрый день!
мне нужно, чтобы перед печатью документа некоторые данные с одной страницы копировались на другую страницу...подскажите, пожалуйста, как это реализовать

[pivas]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Здесь код по переносу данных
End Sub

[funthing]

pivas, большое спасибо!!