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

Hi Giselle,

Try:

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


---
Regards,
Norman



"Giselle" wrote in message
...
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

thankyou
anny

"Norman Jones" wrote in message
...
Hi Giselle,

Try:

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


---
Regards,
Norman