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
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