Combo box to select report to Print

[usmcgrunt]

I created a form where the user selects a report from the combo box to print. The code I am usings is:

DoCmd.OpenReport Me.cboSelectException, acPreview

Me.cboSelectException is the name of the report in the bound field of the unbound combo box.

All works as it should.

Now the tricky part, at least for me is trying to print all the reports from the combo box.

I thought I could add an ALL selection in the combo box but I am clueless as to what the code might look like.



I also thought I could create a macro with all of the reports in it and add some IF - THEN - ELSE code to make this work. No joy.

Suggestions?

Thanks, Sean

[ajetrumpet]

I believe one thing you can do in a query statement is write:

SELECT "Select All", field1, field2, etc...

If I remember right, that creates a field with that name but does nothing else. If that does work, you can use it to add the option to the box. Then of course though, you'll have to code the loop to print all the reports yourself.

[usmcgrunt]

Adam, thanks for the suggestions.

Would I use your query statement in place of the row source code I have below?

I have in the unbound combobox (cboSelectException) row source the following:

All;"All Exception Reports";rptMissingEdObj;"Missing Educational Objectives";rptMissingLearnOut;"Missing Learning Outcomes";rptMissingLessonReferences;"Missing References";rptMissingSupport;"Missing Support Requirements"

All of the titles that begin with 'rpt' are the actual report names. The titles in "" are the names that are visible in the combobox. The first entry in Blue is the one that I am trying to figure out.

I know it is not correct but it is a place holder until I can figure out what should go there.

This is code that I currently have on the button. I have no idea what to put in to get all of the reports to print as well as individual reports to print.

' ************************************************** *************************
' When the user presses this button the selected Exception Report is printed.
' ************************************************** *************************

Private Sub btnPrintLC_Click()
On Error GoTo btnPrintLC_Click_Err

DoCmd.OpenReport Me.cboSelectException, acNormal

btnPrintLC_Click_Exit:

Exit Sub

btnPrintLC_Click_Err:

MsgBox Err.Description

Resume btnPrintLC_Click_Exit

End Sub

-----------------------------------------------------------------
Sean

[ajetrumpet]

using ALL is just fine. you simply have to make up for it with a conditional in code. Like so:

if me.combo = "ALL" then
   'loop through reports here
else
   'do what you're currently doing
end if

looks like you're using the default printing that happens when you open the reports in normal view? Sorry about that! I gave you wrong advice! Allen Browne might be able to help print in VBA: http://www.allenbrowne.com/AppPrintMgt.html

I also saw this:

DoCmd.RunCommand acCmdPrint

you could use that in your loop, but I've never used it so I don't know if it gives you a dialog everytime or not.

[usmcgrunt]

Adam, udaman! It works!! Thanks. I am still working the code to prevent all of the print dialogs from showing up but since I only have 4 reports in the "All" category it might not be such a big deal.

And from the looks of this post it may not be possible unless I want to create a hidden from with a timer event to suppress the print dialog. A lot of posts reference this post as an option.

http://www.mvps.org/access/api/api0037.htm


My solved Code is below. Thank for your help.

' ************************************************** *************************
' When the user presses this button the selected Exception Report is printed.
' ************************************************** *************************

Private Sub btnPrintLC_Click()
On Error GoTo btnPrintLC_Click_Err

Dim strReport2 As String
Dim strReport3 As String
Dim strReport4 As String
Dim strReport5 As String

strReport2 = "rptMissingEdObj"
strReport3 = "rptMissingLearnOut"
strReport4 = "rptMissingLessonReferences"
strReport5 = "rptMissingSupport"

If Me.cboSelectException = "All" Then

DoCmd.OpenReport strReport2, acNormal
DoCmd.OpenReport strReport3, acNormal
DoCmd.OpenReport strReport4, acNormal
DoCmd.OpenReport strReport5, acNormal

Else

DoCmd.OpenReport Me.cboSelectException, acNormal

End If

btnPrintLC_Click_Exit:
Exit Sub

btnPrintLC_Click_Err:
MsgBox Err.Description
Resume btnPrintLC_Click_Exit

End Sub