print scaling

G

geebee

hi,

i have the following:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

is there a way i can amend this so that i can instruct to print at 80
percent of original size?

thanks in advance,
geebee
 
J

JLGWhiz

Try:

ActiveWindow.SelectedSheets.PageSetup.Zoom = 80
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

I didn't test this so you might have to loop through the sheets to set the
zoom.
 
G

geebee

hi,

would this pretty much be the same syntax for Access VBA?

ActiveWindow.SelectedSheets.PageSetup.Zoom = 80
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

how could i amend this to print an Access form?

thanks in advance,
geebee
 
Top