Hi fernando

'Place in "ThisWorkbook" module
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
HowManyPages
End Sub


'Place in a "General" module
Sub HowManyPages()
Dim Cmd As String
Cmd = "GET.DOCUMENT(50,""" & ActiveSheet.Name & """)"
If Application.ExecuteExcel4Macro(Cmd) = 1 Then
Application.EnableEvents = False
ActiveSheet.PrintPreview
Application.EnableEvents = True
Else
MsgBox "Too many sheets"
End If
End Sub


--
XL2002
Regards

William



"fernando" wrote in message
...
| Hello,
|
| I need to find out how many pages does a sheet contain
| (can be 1 or 2 pages only), before sending the following
| line: sheet.PrintPreview, ex
|
| PageNum = sheet.Number_Of_Pages_To_Be_Printed
| if PageNum = 1 then
| sheet.PrintPreview
| else
| alert user
| end if
|
| This will print a 1 page list, if the number of items
| exceeds the 1st page, the printing has to be cancelled
|
| Thanks in advance!