Roedd <<Johan wedi ysgrifennu:

this code doesn't work:
With Application.Dialogs(xlDialogPrint).copies = 2
.Show
End With

Application.Dialogs(xlDialogPrint).Show , , , 2

The arguments for built in dialogs are in the help file, but you have to
dig.

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.