BeforePrint Event - "PrintOut" does not give Print Dialog
 

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

BeforePrint Event - "PrintOut" does not give Print Dialog
 

application.Dialogs(xlDialogPrint).Show

--
HTH

Bob Phillips

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

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

BeforePrint Event - "PrintOut" does not give Print Dialog
 

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