В модуль ЭтаКнига:  
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
   If MsgBox("Вы хотите напечатать " & ExecuteExcel4Macro("GET.DOCUMENT(50)") & " страниц?", vbYesNo) = vbNo Then  
      Cancel = True  
   End If  
End Sub  
 
Скомпилировано отсюда: http://www.msoffice.nm.ru/faq/macros.htm

В надстройку можно, только ее нужно всем юзерам поставить.  
И еще нужно будет через модуль класса делать.  
В модуль ЭтаКнига:  
 
Dim Cls As New Class1  
Private Sub Workbook_Open()  
Set Cls.XLApp = Application  
End Sub  
 
В модуль класса Class1:  
 
Public WithEvents XLApp As Application  
Private Sub XLApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)  
If MsgBox("Вы хотите напечатать " & ExecuteExcel4Macro("GET.DOCUMENT(50)") & " страниц?", vbYesNo) = vbNo Then  
Cancel = True  
End If  
End Sub  
 
 
Не проверял.