Printmenu maken, hoe?

[yeppie]

Om gebruikers geen kans te geven verkeerde dingen toe doen en om de VBA codes te verbergen heb ik een MDE bestand gemaakt van mijn programma. Wanneer een rapport geprint moet worden doe ik dit via een macro 'afdrukken' in access. Nu komt echte de vraag om de instellingen van de printer wijzigbaar te maken en het aantal afdrukken instelbaar. Eigenlijk zoals het in Word gaat als je op afdrukken drukt. Is er in VBA zo iets dergelijks te programmeren of heeft iemand tips om dit anders aan te pakken?

 

[yeppie]

Opgelost

Ik heb de oplossing al gevonden. Voor belangstellenden hieronder een voorbeeld oplossing:

Private Sub KnopAfdrukken_Click()
On Error GoTo ErrorHandler
Dim Response As Integer
If Me.Dirty Then 'If Record dirty then save it first
DoCmd.RunCommand acCmdSaveRecord 'Save the current "dirty" record
End If

DoCmd.OpenReport "rptNaamRapport", acPreview
DoCmd.SelectObject acReport, "rptNaamRapport"
DoCmd.RunCommand acCmdPrint

Exit_Error:
DoCmd.Close acReport, "rptNaamRapport"

Exit Sub

ErrorHandler:
Select Case Err.Number
Case 2501 'De Actie RunCommand is geannuleerd
Resume Exit_Error
Case 2212 'Kan Object niet afdrukken
Resume Exit_Error
Case Else
MsgBox "Error " & Err.Number & ": " & _
Err.Description, vbCritical, "frmNaamFormulier,KnopAfdrukken_Click"
End Select
End Sub