Printen van rapport met VBA opdracht

[RSpan]

Hallo allemaal
ik heb op een formulier een knop gemaakt om rapporten te printen.
Nu lukt het wel om een preview te genereren maar de print opdracht is nog niet gelukt, (geen kennis van VBA), heeft iemand een aanwijzing/idee voor mij.
hieronder de code:

alvast bedankt
René

Private Sub cmdGenerateReport_Click()
On Error GoTo Err_cmdGenerateReport_Click

Dim stDocName As String
Dim stWhere As String


If Not IsNull(Me.cboSelectName) Then
stWhere = "[OrganisatieID]=" & Me.cboSelectName & " And "
blnTrim = True
End If

If Not IsNull(Me.cboSelectCity) Then
stWhere = stWhere & "[WeekID]=" & Me.cboSelectCity & " And "
blnTrim = True
End If


If blnTrim Then
stWhere = Left(stWhere, Len(stWhere) - 5)
End If

stDocName = "rptVbladOrg"
DoCmd.OpenReport stDocName, acPreview, , stWhere

stDocName = "rptfactOrg2"
DoCmd.OpenReport stDocName, acPreview, , stWhere

stDocName = "rptfactFrl"
DoCmd.OpenReport stDocName, acPreview, , stWhere

stDocName = "rptWkUitbFrl"
DoCmd.OpenReport stDocName, acPreview, , stWhere

Exit_cmdGenerateReport_Click:
Exit Sub

Err_cmdGenerateReport_Click:
MsgBox Err.Description
Resume Exit_cmdGenerateReport_Click

End Sub

 

[OctaFish]

Je gebruikt AcPreview in de code, waarmee je het rapport opent in schermweergave.
Probeer het met AcViewNormal, en hij gaat naar de printer.

Michel

 

[RSpan]

Je gebruikt AcPreview in de code, waarmee je het rapport opent in schermweergave.
Probeer het met AcViewNormal, en hij gaat naar de printer.

Michel

Dank je

het werkt

Groet
René
:thumb: