changing Print Preview default value

[Giselle]

hello to all

I have shown a code fragment that shows a report in Print preview mode.

With Worksheets("PrintRpts")
.PrintOut copies:=PrintNumber, preview:=PrntPrev
End With

My sub is used to show many such previews in sequence. Typically I give a
quick inspection, then Print the copy. The preview displays properly, but
the 'zoom' button is always highlighted by default. How can I use code to
have the 'Print...' button highlighted by default.

Giselle

 

[Norman Jones]

Hi Giselle,

Try:

With Worksheets("PrintRpts")
SendKeys "{TAB}"
.PrintOut copies:=PrintNumber, preview:=PrntPrev
End With

 

[anny]

thankyou
anny