code to allow user to select a printer when printing a report

[Tessadear]

I need a user to click on a command button and print a report. My code sends the report directly to the default printer without allowing the user to select a printer.
I need the user to get the dialog box which will allow him to select a printer, before printing.

Here is my code
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

Dim stDocName As String

stDocName = "Table1"
DoCmd.OpenReport stDocName, acNormal

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click

End Sub

 

[Remou]

How about:
Using the Print window
thread703-1308507

 

[TheAceMan1]

How are ya Tessadear . . .

Have a look here . . . 5th tip down.
Switching Printers from within your MS Access Application

or

"On The Fly Printing" Functions and Classes for Access

or if you still just want the [blue]print dialog:[/blue]

[blue]   DoCmd.RunCommand acCmdPrint[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .