Here's the code behind the print button on the form. however the error is after the report opens in print preview The report looks good on screen when I try to send it to the printer the form is sent instead of the report.
Code:
Private Sub cmdPrevWorkingListRpt_Click()
'"Stars Incentives";"Star Measures By PCP Graphs";"Quarterly Stars Incentives for Bianca";
'"Star Measures Work List By PCP";"QIP Commercial by PCP";"QIP Senior By PCP"
Dim StrRptname As String
Select Case Me.cboRpts
Case Is = "Stars Incentives"
'Select Case Me.Frame9
' Case Is = 1
' Case Is = 2
StrRptname = "rpt_stars_incentives"
'End Select
Case Is = "Star Measures By PCP Graphs"
Select Case Me.Frame9
Case Is = 1
StrRptname = "rpt_stars_graphing_specific_PCP"
Case Is = 2
StrRptname = "rpt_stars_graphing2"
End Select
Case Is = "Quarterly Stars Incentives for Bianca"
'Select Case Me.Frame9
' Case Is = 1
' Case Is = 2
StrRptname = "rpt_stars_incentives_quarterly for bianca"
'End Select
Case Is = "Star Measures Work List By PCP"
Select Case Me.Frame9
Case Is = 1
StrRptname = "Rpt_Star_Measures_Work_List_By_PCP_Revised"
Case Is = 2
StrRptname = "Rpt_Star_Measures_Work_List_By_PCP_Revised_All"
End Select
Case Is = "QIP Commercial by PCP"
Select Case Me.Frame9
Case Is = 1
StrRptname = "Rpt_QIP-Commercial_By_Specific_PCP"
Case Is = 2
StrRptname = "rpt_QIP-Commercial_BY_PCP"
End Select
Case Is = "QIP Senior By PCP"
Select Case Me.Frame9
Case Is = 1
StrRptname = "rpt_QIP-Senior_By_Specific_PCP"
Case Is = 2
StrRptname = "rpt_QIP-Senior_By_PCP"
End Select
Case Is = "P4P Pediatric Measures by PCP Graphs"
Select Case Me.Frame9
Case Is = 1
StrRptname = "rpt_PEDS_graphing_specific_PCP"
Case Is = 2
StrRptname = "rpt_PEDS_graphing_by_PCP"
End Select
Case Is = "P4p Commercial Measures By PCP Graphs"
Select Case Me.Frame9
Case Is = 1
StrRptname = "rpt_stars_graphing_Commercial_bypcp"
Case Is = 2
StrRptname = "rpt_stars_graphing_Commercial"
End Select
End Select
DoCmd.OpenReport StrRptname, acViewPreview
End Sub