Beste forumleden,
Ik hoop dat iemand mij hier kan helpen met een stukje code om een specifiek rapport (conform criterium "zoekveld") te printen en saven als PDF.
NB. voor het printen moet het printerdialoogvenster getoond worden om de printerlade te kunnen kiezen.
De volgende code werkt wel, alleen abnormaal traag bij multi-user gebruik op ons netwerk. Kan deze code vereenvoudigd worden, bijv. zonder het rapport te openen?
Ik hoop dat iemand mij hier kan helpen met een stukje code om een specifiek rapport (conform criterium "zoekveld") te printen en saven als PDF.
NB. voor het printen moet het printerdialoogvenster getoond worden om de printerlade te kunnen kiezen.
De volgende code werkt wel, alleen abnormaal traag bij multi-user gebruik op ons netwerk. Kan deze code vereenvoudigd worden, bijv. zonder het rapport te openen?
Code:
'--------------------------------------voorwaarde, printen, opslaan van rapport (brief_1)
If Me.BEDRAG > 10000 Then
stlinkcriteria = "[zoekveld] = '" & Me![zoekveld] & "'"
DoCmd.OpenReport "brief_1", acViewReport, , stlinkcriteria
DoCmd.RunCommand acCmdPrint
DoCmd.OutputTo acOutputReport, "BRIEF_1", acFormatPDF, "C:\TEMP\brieven\" & Me.NAAM & "_brief_1.PDF", False
DoCmd.Close acReport, "brief_1", acSaveNo
MsgBox "Brief_1 is geprint en opgeslagen."
End If