Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.