Error using script to select and print reports in Access 2007

[bsmith29526]

copied and pasted following script into command button click event:
Private Sub PrintReport_Click()
If Not IsNull(ComboReports) And ComboReports <> "" Then
DoCmd.OpenReport ComboReports, acViewPreview ' use acNormal to print without preview
Else
MsgBox ("You Must First Select a Report To Print!")
ComboReports.SetFocus
End If
ComboReports = ""
End Sub

get error when clicking button:
Microsoft Office Access can't find the object 'Private Sub PrintReport_Click()

[PhilOfWalton]

What is the name of your command button?

The VBA can be tidied up thus

If ComboReports > "" Then
   DoCmd.OpenReport ComboReports, acViewPreview ' use acNormal to     print without preview
Else
   MsgBox ("You Must First Select a Report To Print!")
ComboReports.SetFocus
 

I am assuming that the ComboReports is being populated from the database list of reports, rather than a table of report names. If the latter is true, be warned that the selected report may not exist.
Phil

[bsmith29526]

Thanx for your response

The combobox button seems to be working and listing the reports.

The name of the command button is PrintReport.

[PhilOfWalton]

It's got me foxed.
Does the program compile without errors?
Is there an [Event Procedure] on the On Click of the PrintReport button?
if you click on the 3 dots at the end of the On Click, is the code exactly as posted?

It might be worth deleting your code and setting the [Event Procedure] up again and copying in the code I gave you above

Phil

[bsmith29526]

Thanx again.

I followed the instructions and copied the scripts from an earlier BYTES.com posting.

I replaced the original script with the one you sent above.

I still get the error. It appears the PrintReport command button is not recognizing the ComboReports selection.

[PhilOfWalton]

2 further thoughts.
Put a breakpoint on the Sub PrintReport_Click() line and step through to see exactly where the error occurs.
Let us know the exact message

If, as you suspect, it can't find the report, don't forget it will be looking at the data in the Bound Column of your Combo Box.
So we need to know the Row Source of your Combo, the Bound Column and the Column Widths. I'm guessing that Report Name is not the bound column.

Phil

[bsmith29526]

I think I see my problem - the combobox is unbound not bound.

[PhilOfWalton]

Shouldn't matter.

If you don't answer the questions, you can't expect further help.

Phil

[bsmith29526]

Thanx for your help - I will find a work around