Cacher is the code snippet organizer for pro developers

Private Sub Document_BeforeLocate(ByVal pXDoc As CASCADELib.CscXDocument, ByVal LocatorName As String)
   Select Case LocatorName
   Case "BL_BU_BarcodesKnown"
      oLog.Debug "BL_BU_BarcodesKnown Document_BeforeLocate: " & CStr(Now)
      If pXDoc.CDoc.Pages.Count > 1 Then
         pXDoc.CDoc.Pages.ItemByIndex(1).SuppressOCR = False
      End If
   End Select
End Sub

Private Sub Document_AfterLocate(ByVal pXDoc As CASCADELib.CscXDocument, ByVal LocatorName As String)
   Select Case LocatorName
   Case "BL_BU_BarcodesKnown"
      oLog.Debug "BL_BU_BarcodesKnown Document_AfterLocate: " & CStr(Now)
      If pXDoc.CDoc.Pages.Count > 1 Then
         pXDoc.CDoc.Pages.ItemByIndex(1).SuppressOCR = True
      End If
   End Select
End Sub