Private Sub Print_OperatingMechanism_Click()
On Error GoTo Err_Print_OperatingMechanism_Click
'Dim stReportName As String
'stReportName = "OperatingMechanism"
'DoCmd.OpenReport "OperatingMechanism", acViewPreview, , "[OperatingMechanism]= '" & OperatingMechanism.Operating_Mechanism & "'"
Stop
Dim strDocName As String
Dim strWhere As String
strDocName = "OperatingMechanism"
strWhere = "[OperatingMechanims.Operating Mechanism]=" & Me!Forms![InputScreen]![OperatingMechanism]
Stop
DoCmd.OpenReport strDocName, acPreview, , strWhere