Try this:

If you want to make sure that each and every time you print, only 1 page is
used, go to: File | Page setup.

In the "Page" tab, choose to scale to 1 page in width and remove the 1 in
the height box.

Pierre


"fernando" a écrit dans le message de
...
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!