Screen Prompt to Print another report

[spectraflame]

Currently I have a form set up so that the user can click the print button and it prints the information from the form on a defined report along with a second report which sometimes is not needed. Basically this is wasting a sheet of paper each time and I would like to give the user the option.

I would like to be able to prompt the user with a YES / NO option to print or not print the second report.

Is this possible?

Thanks,
Matthew

 

[Norie]

Matthew

What code are you currently using?

 

[spectraflame]

Below if what I am using for the onclick event for my print button. This is printing the desired report for the current record and the second part of the code is printing an inventory sheet based on the department from the users input on the form. I was hoping to just give the user a prompt between the printing of the 2 reports to print the inventory page or not print it. I hope this what you are looking for.

Private Sub Print_Record_Click()
On Error GoTo Err_Print_Record_Click

Dim strDocName As String
'Dim strWhere As String
strDocName = "WorkOrderrpt"
'strWhere = "[RecordID]=" & Me!RecordID
'DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport strDocName, acNormal, , strWhere

Dim strDocName2 As String
Dim strWhere2 As String
strDocName2 = "Invenrpt"
strWhere2 = "[WOType]=" & Me!WOType
'DoCmd.OpenReport strDocName, acPreview, , strWhere
If Me.WOType = "Electric" Or Me.WOType = "Water" Or Me.WOType = "Sewer" Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport strDocName2, acNormal, , strWhere
Else
End If

Exit_Print_Record_Click:
Exit Sub

Err_Print_Record_Click:
MsgBox Err.Description
Resume Exit_Print_Record_Click

End Sub

 

[Norie]

It's unclear when you want to print or not print the second report.

But perhaps something like this will work.

Private Sub Print_Record_Click()
Dim strDocName As String
Dim strDocName2 As String
Dim strWhere2 As String
Dim valPrintReport2

    On Error GoTo Err_Print_Record_Click
    
    strDocName = "WorkOrderrpt"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenReport strDocName, acNormal, , strWhere
    
    valPrintReport2 = MsgBox("Do you want to print the 2nd report", vbYesNo, "Print 2nd report")
    
    If valPrintReport2 = vbYes Then
        strDocName2 = "Invenrpt"
    
        strWhere2 = "[WOType]=" & Me!WOType
        
        Select Case Me.WOType
            Case "Electric", "Water", "Sewer"
                DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
                DoCmd.OpenReport strDocName2, acNormal, , strWhere
            Case Else
                ' do nothing
        End Select
        
    End If
    
Exit_Print_Record_Click:
        Exit Sub
    
Err_Print_Record_Click:
        MsgBox Err.Description
        Resume Exit_Print_Record_Click
    
End Sub

 

[spectraflame]

Thanks,

With a little modification, I think that I can make it fit my needs.

Thanks again,
Matthew