PrintOut


Posted by jim on January 29, 2002 1:40 PM

Hi group,

I have added commandbuttons on two differant sheets
that activate PrintOut. My code is >

CommandButton1:
Range:("A1:X25").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,_
Copies:=1, Collate:=True

CommandButton2:
Range:("AA4:AP26").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3,_
Copies:=1, Collate:=True

My problem:

Sheet1 needs to be printed @ 69%, while
Sheet3 needs to be printed @ 88%

What is the code for setting the Adjust to "" % normal
size?

Thanks for any help,

Jim

Posted by Ivan F Moala on January 29, 2002 6:52 PM

Hi Jim
With ActiveSheet.PageSetup
.Zoom = 68
End With


Ivan



Posted by jim on January 29, 2002 7:37 PM