Add printer settings to command button (1 Viewer)

Hello,

Each day we print out a list, based on the name of a colleague who's responsible, of production goods that will run out of stock in the near future.

I'm looking for a way to add printer settings/ print dialog box, before the actual printing begins. Currently when u click on the command button, the printing begins immediately.

Is there anybody who knows a solution for this?

Code:

Private Sub Command52_Click()
On Error GoTo Err_Command52_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "runout lijst TK21 ondervragen MANCO KLM (STAP 2)"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Command52_Click:
Exit Sub
Err_Command52_Click:
MsgBox Err.Description
Resume Exit_Command52_Click



Thank you in advance!

Grts,
LeysenS