Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim iViewMode As Integer Dim stDocName As String Dim strFilter As String Forms.frmTrip.Dirty = False 'save the record before printing stDocName = "rptTrip" strFilter = "[IDtrip] = Forms!frmTrip!IDtrip" Select Case MsgBox("Preview report before printing?", vbQuestion Or vbYesNoCancel) Case vbYes DoCmd.OpenReport stDocName, acViewPreview, , strFilter Case vbNo DoCmd.OutputTo acOutputReport, "rptTrip", acFormatRTF 'DoCmd.OpenReport stDocName, acViewNormal, , strFilter Case vbCancel GoTo Exit_cmdPrint_Click End Select Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.