Hello again!

I have a BeforePrint event to unhide, print, then hide rows again. The
problem is that I would still like to allow the use to see the print dialog
to choose their own particular settings (such as which tray, double-sided
printing, copies, etc.) Is this possible? Is there something else beside
the PrintOut command that I should have instead? Here's what I have now:
..
..
..
With ActiveSheet
.Rows("33:41").EntireRow.Hidden = False
.PrintOut
.Rows("33:41").EntireRow.Hidden = True
End With
..
..
..
It works just fine, but I would like the user to get the normal Print dialog
window.

Thanks in advance!

Ronny

application.Dialogs(xlDialogPrint).Show

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Ronny Hamida" <(E-Mail Removed)> wrote in message
news:83FD51CA-68AB-4431-8A2E-(E-Mail Removed)...
> Hello again!
>
> I have a BeforePrint event to unhide, print, then hide rows again. The
> problem is that I would still like to allow the use to see the print
dialog
> to choose their own particular settings (such as which tray, double-sided
> printing, copies, etc.) Is this possible? Is there something else beside
> the PrintOut command that I should have instead? Here's what I have now:
> .
> .
> .
> With ActiveSheet
> .Rows("33:41").EntireRow.Hidden = False
> .PrintOut
> .Rows("33:41").EntireRow.Hidden = True
> End With
> .
> .
> .
> It works just fine, but I would like the user to get the normal Print
dialog
> window.
>
> Thanks in advance!
>
> Ronny

Thank you, Bob!

"Bob Phillips" wrote:

> application.Dialogs(xlDialogPrint).Show
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Ronny Hamida" <(E-Mail Removed)> wrote in message
> news:83FD51CA-68AB-4431-8A2E-(E-Mail Removed)...
> > Hello again!
> >
> > I have a BeforePrint event to unhide, print, then hide rows again. The
> > problem is that I would still like to allow the use to see the print
> dialog
> > to choose their own particular settings (such as which tray, double-sided
> > printing, copies, etc.) Is this possible? Is there something else beside
> > the PrintOut command that I should have instead? Here's what I have now:
> > .
> > .
> > .
> > With ActiveSheet
> > .Rows("33:41").EntireRow.Hidden = False
> > .PrintOut
> > .Rows("33:41").EntireRow.Hidden = True
> > End With
> > .
> > .
> > .
> > It works just fine, but I would like the user to get the normal Print
> dialog
> > window.
> >
> > Thanks in advance!
> >
> > Ronny
>
>
>