ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   print scaling (https://www.excelbanter.com/excel-programming/421653-print-scaling.html)

geebee

print scaling
 
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

print scaling
 
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" wrote:

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


geebee

print scaling
 
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" wrote:

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" wrote:

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

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

"geebee" wrote:

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" wrote:

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" wrote:

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



All times are GMT +1. The time now is 11:12 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com