print zoom

[geebee]

hi,

i have the following:

ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="printer"


i would like to know how i can add a zoom number in this statement. I tried
ActiveWindow.SelectedSheets.PageSetup.Zoom = 60
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="printer"

but to no avail.. could someone please help?

thanks in advance,
geebee

 

[Dave Peterson]

If you're only printing a single sheet:

with activesheet
.PageSetup.Zoom = 60
.PrintOut ActivePrinter:="printer"
end with

And that's the correct name for the activeprinter???