print scaling

[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

 

[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.

 

[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

 

[JLGWhiz]

I don't have Access, but one way to find out is to try it.