Print multiple sheets

[RI]

Hi,

I am trying to print multiple worksheets from a VBA-macro:
Application.Worksheets(Sheets).Select
Application.Dialogs(xlDialogPrint).Show

In the printer dialog, we select a tray from the printer. The problem is
that only the first sheet is printing from the selected tray. The other
worksheets are using the default printersettings, the wrong tray ;-(

Does anyone know a solution?

Thanx
R.I.