westerbork
Gebruiker
- Lid geworden
- 30 jan 2003
- Berichten
- 33
Hallo,
Onderstaande functie in VBA gebruik ik om een rapport x maal te laten afdrukken, evenals het 2e rapport.
Als ik afdrukken# via een invoerveld op bv 3 stel, dan wordt het 1e rapport 6 keer afgedrukt en het 2e vervolgrapport 3 keer. Idem 2 wordt 4 bij het eerste rapport.
Het 2e vervolgrapport wordt wel juist afgedrukt.
Raar, maar waar.
Wat doe ik fout?
vast bedankt
Wout Tabbers
Onderstaande functie in VBA gebruik ik om een rapport x maal te laten afdrukken, evenals het 2e rapport.
Als ik afdrukken# via een invoerveld op bv 3 stel, dan wordt het 1e rapport 6 keer afgedrukt en het 2e vervolgrapport 3 keer. Idem 2 wordt 4 bij het eerste rapport.
Het 2e vervolgrapport wordt wel juist afgedrukt.
Raar, maar waar.
Wat doe ik fout?
vast bedankt
Wout Tabbers
Code:
Public Function afdrukkenovereenkomst()
Dim stdocname As String
stdocname = "[B]Bemiddelingsovereenkomst[/B]"
DoCmd.OpenReport stdocname, acViewPreview
If afdrukken# > 0 Then
DoCmd.SelectObject acReport, stdocname
DoCmd.PrintOut , , , , afdrukken#
End If
'opslaan rapport in PDF
Dim blRet As Boolean
blRet = ConvertReportToPDF(stdocname, vbNullString, CurrentProject.path & "\overeenkomsten\" & naam.Form_Bemiddelingsovereenkomst.nummer & "-" & Date & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.Close acReport, stdocname
Beep
MsgBox "Voor de BIJLAGE blanco papier gebruiken"
stdocname = "[B]BijlageBemiddelingsovereenkomst[/B]"
DoCmd.OpenReport stdocname, acViewPreview
If afdrukken# > 0 Then
DoCmd.SelectObject acReport, stdocname
DoCmd.PrintOut , , , , afdrukken#
End If
'opslaan rapportbijlage in PDF
blRet = ConvertReportToPDF(stdocname, vbNullString, CurrentProject.path & "\overeenkomsten\" & naam.Form_Bemiddelingsovereenkomst.nummer & "-B-" & Date & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.Close acReport, stdocname
End Function
Laatst bewerkt door een moderator:
