Setting a default zoom

[Nik]

Hi,
I am trying to build a script for word XP so that I can have a menu item

Print File (2 up)...

that will have the 2x pages to a sheet automatically set.

I tried a script like this:

With Dialogs(wdDialogFilePrintSetup)
.printzoomcolumn = 2
.PrintZoomRow = 1
.Show
End With

but when I ran it - the pages per sheet was still set at 1.
This is probably the wrong approach but I couldnt see what else
to do. I tried using the macro editor to create a new fileprint
macro but "create" was disabled for this.

Thanks for your help, Nik