BeforePrint Event - "PrintOut" does not give Print Dialog

[Guest]

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

 

[Bob Phillips]

application.Dialogs(xlDialogPrint).Show

--
HTH

Bob Phillips

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

 

[Guest]

Thank you, Bob!

application.Dialogs(xlDialogPrint).Show

--
HTH

Bob Phillips

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