Try this macro from Ron de Bruin's site.

Sub Print_Odd_Even()
Dim Totalpages As Long
Dim StartPage As Long
Dim Page As Integer

StartPage = 1 '1 = Odd and 2 = Even

'Or use the InputBox suggestion from Gord Dibben
'StartPage = InputBox("Enter 1 for Odd, 2 for Even")

Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = StartPage To Totalpages Step 2
ActiveSheet.PrintOut from:=Page, To:=Page, _
Copies:=1, Collate:=True
Next
End Sub


Gord Dibben MS Excel MVP

On Wed, 23 Sep 2009 10:43:01 -0700, Chi
wrote:

Hi,

Would you please show me how to print only the old page numbers ?

Ex: In the page break view, I see that the file has 100 pages, but I only
want to print page 1,3,5.....

Please help
Thanks
Chi