Beste mensen ik heb een database waarbij ik een rapport direkt uit wil printen, zonder een previeuw. Ik doe dit met het volgende commando:
-------------------------------------------------------------------
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
'MsgBox "Select a record to print"
Else
strWhere = "[reparatienummer] = " & Me.[reparatienummer]
DoCmd.OpenReport "innamereparatie", , , strWhere
If Forms!frminnamereparatie.Backup = "Ja" Then
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
'MsgBox "Select a record to print"
Else
strWhere = "[reparatienummer] = " & Me.[reparatienummer]
DoCmd.OpenReport "backupopdracht", , , strWhere
End If
End If
DoCmd.Close acForm, "frminnamereparatie", acSaveYes
-----------------------------------------------------------------------
Ik zou graag het rapport meteen 2x uit kunnen printen.
Ik heb een andere code met een popup schermpje, maar deze print alle aanwezige rapporten uit, wat ook weer niet de bedoeling is. Het is deze code:
-----------------------------------------------------------------
Dim iAantal As Integer
Dim sRapport As String
sRapport = "innamereparatie"
DoCmd.OpenReport sRapport, acViewPreview, , , acHidden
'eventueel Where filter toevoegen, acHidden weg laten om afdrukvoorbeeld te zien
iAantal = Val(InputBox("aantal malen afdrukken", "Rapport afdrukken", 2))
If iAantal > 0 Then
DoCmd.SelectObject acReport, sRapport
DoCmd.PrintOut , , , , iAantal
End If
DoCmd.Close acReport, sRapport
----------------------------------------------------------------------
In code 1 of code 2 moet iets aangepast worden, maar ik heb onvoldoende kennis om dit voor elkaar te krijgen. heeft iemand een idee?
