Hallo,
Ik ben op zoek naar een mogelijkheid om printerinstellingen aan te passen bij het gebruik van een opdrachtknop om automatisch te printen.
Dagelijks wordt het Accessbestand gebruikt door collega's.
Na het selecteren van hun eigen naam, klikken ze op de oprachtknop 'Print form' om hun persoonlijke lijst van goederen af te drukken.
Bestaat er een mogelijkheid om eerst een print preview te tonen, waarbij de printerinstellingen kunnen worden aangepast ?
Het zou een ons een hoop papier besparen als we bepaalde zaken (bv. dubbelzijdig printen) kunnen aanpassen ...
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
Alvast bedankt!
Mvg,
Sibe
Ik ben op zoek naar een mogelijkheid om printerinstellingen aan te passen bij het gebruik van een opdrachtknop om automatisch te printen.
Dagelijks wordt het Accessbestand gebruikt door collega's.
Na het selecteren van hun eigen naam, klikken ze op de oprachtknop 'Print form' om hun persoonlijke lijst van goederen af te drukken.
Bestaat er een mogelijkheid om eerst een print preview te tonen, waarbij de printerinstellingen kunnen worden aangepast ?
Het zou een ons een hoop papier besparen als we bepaalde zaken (bv. dubbelzijdig printen) kunnen aanpassen ...
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
Alvast bedankt!
Mvg,
Sibe
.
