Hi All,

I am faing issues with command button, I have a small window that pops up
when view reports option is selected from swicthboard.
Now in view report I have 5 different reports, I wld like to create 1 single
"Preview", "Print" and "Mail Report" command buttons for all the 5 reports.
for that i have put all the five reports in option group.

But with the below code only cancel button only works

Option Compare Database  ' Use database order for string comparisons.
Option Explicit  ' Requires variables to be declared before they are used.

Sub PrintReports(PrintMode As Integer)

On Error GoTo Err_Preview_Click
   ' This procedure used in Preview_Click and Print_Click Sub procedures.
   ' Preview or print report selected in the ReportToPrint option group.
   ' Then close the Print Sales Reports Dialog form.

   'Dim strWhereCategory As String

   'strWhereCategory = "CategoryName = Forms![View Reports]!SelectCategory"
DoCmd.OpenForm "Reporting view"
   Select Case Me!ReportstoPrint
       Case 1
           DoCmd.OpenReport "List of Accounts", PrintMode
       Case 2
           DoCmd.OpenReport "Quarter-wise Report", PrintMode
       Case 3
           DoCmd.OpenReport "Accountwise Fee Report", PrintMode
       Case 4
           DoCmd.OpenReport "Difference in Projected and Actual Report",
PrintMode
   End Select
   DoCmd.Close acForm, "Reporting view"

Exit_Preview_Click:
   Exit Sub

Err_Preview_Click:
   Resume Exit_Preview_Click

End Sub

Private Sub Cancel_Click()

' This code created by Command Button Wizard.
On Error GoTo Err_Cancel_Click

   ' Close form.
   DoCmd.Close
   
Exit_Cancel_Click:
   Exit Sub
   
Err_Cancel_Click:
   MsgBox Err.Description
   Resume Exit_Cancel_Click

End Sub

Private Sub Preview_Click()
PrintReports acPreview
End Sub

Private Sub Print_Click()
PrintReports acNormal
End Sub