Problems with Print Macro

I have created a small macro and assigned it to a button that selects a
number of worksheets and then prints these to the selected printer - 2
problems happen either -
- only first 5 pages of 12 come out on printer OR
- get error 1004

Macro code is -
==============================================
Sub Print3()
'
' Print3 Macro
'

'
Sheets(Array("MoM", "Development", "Delivery Schedule", "Incident
Management", _
"Defect Management", "Task Management", "Trends", "Financials", _
"Consultancy", "Active Customers", "Risks and Issues")).Select
Sheets("MoM").Activate
Application.Dialogs(xlDialogPrint).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets(Array("MoM")).Select
End Sub
=========================================
Can anyone help? Thanks Jim