Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Forms.Ocr
Imports Leadtools.Forms
Imports Leadtools.Forms.DocumentWriters
Imports Leadtools.WinForms
Private Shared Sub DocumentFontsTest()
   Using codecs As New RasterCodecs()
      Using ocrEngine As IOcrEngine = OcrEngineManager.CreateEngine(OcrEngineType.Advantage, False)
         ocrEngine.Startup(codecs, Nothing, Nothing, LEAD_VARS.OcrAdvantageRuntimeDir)
         Dim ocrDocumentManager As IOcrDocumentManager = ocrEngine.DocumentManager
         Using ocrDocument As IOcrDocument = ocrEngine.DocumentManager.CreateDocument()
            ' Add a page to OCR
            Dim ocrPage As IOcrPage = ocrDocument.Pages.AddPage(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.tif"), Nothing)
            ocrPage.AutoZone(Nothing)
            ocrPage.Recognize(Nothing)
            ' Show the current fonts used to save default documents
            Console.WriteLine("Saving use the following fonts:")
            ShowFonts(ocrDocumentManager)
            ocrDocument.Save(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1_DefaultFonts.pdf"), DocumentFormat.Pdf, Nothing)
            ' Now change the fonts to something else
            Dim newFonts() As String = ocrDocumentManager.GetFontNames(Nothing)
            ' Use Cambira for Proportional Serif font - instead of Times New Roman
            newFonts(0) = "Cambria"
            ' Use Calibri for Proportional Sans-serif font - instead of Arial
            newFonts(1) = "Calibri"
            ' Use Lucida Console for Monospace fonts (both Serif and Sans-serif)
            newFonts(2) = "Lucida Console"
            newFonts(3) = "Lucida Console"
            ' Leave the ICR and MICR fonts the same
            ocrDocumentManager.SetFontNames(Nothing, newFonts)
            ' Show the new fonts used to save default documents
            Console.WriteLine("Saving use the following fonts:")
            ShowFonts(ocrDocumentManager)
            ocrDocument.Save(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1_CustomFonts.pdf"), DocumentFormat.Pdf, Nothing)
         End Using
      End Using
   End Using
End Sub
Private Shared Sub ShowFonts(ByVal ocrDocumentManager As IOcrDocumentManager)
   ' Get the default fonts
   ' The default fonts will be used for all Latin languages
   Dim fonts() As String = ocrDocumentManager.GetFontNames(Nothing)
   ' This should return an array of 6 items, as follows:
   Console.WriteLine("Proportional Serif font:        " + fonts(0))
   Console.WriteLine("Proportional Sans-serif font:   " + fonts(1))
   Console.WriteLine("Monospace Serif font:           " + fonts(2))
   Console.WriteLine("Monospace Sans-serif font:      " + fonts(3))
   Console.WriteLine("ICR (hand-written) font:        " + fonts(4))
   Console.WriteLine("MICR (Check) font:              " + fonts(5))
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
Public Const OcrAdvantageRuntimeDir As String = "C:\LEADTOOLS 18\Bin\Common\OcrAdvantageRuntime"
End Class
             
   
     
            using Leadtools;
using Leadtools.Codecs;
using Leadtools.Forms.Ocr;
using Leadtools.Forms;
using Leadtools.Forms.DocumentWriters;
using Leadtools.WinForms;
private static void DocumentFontsTest()
{
   using (RasterCodecs codecs = new RasterCodecs())
   {
      using (IOcrEngine ocrEngine = OcrEngineManager.CreateEngine(OcrEngineType.Advantage, false))
      {
         ocrEngine.Startup(codecs, null, null, LEAD_VARS.OcrAdvantageRuntimeDir);
         IOcrDocumentManager ocrDocumentManager = ocrEngine.DocumentManager;
         using (IOcrDocument ocrDocument = ocrEngine.DocumentManager.CreateDocument())
         {
            // Add a page to OCR
            IOcrPage ocrPage = ocrDocument.Pages.AddPage(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.tif"), null);
            ocrPage.AutoZone(null);
            ocrPage.Recognize(null);
            // Show the current fonts used to save default documents
            Console.WriteLine("Saving use the following fonts:");
            ShowFonts(ocrDocumentManager);
            ocrDocument.Save(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1_DefaultFonts.pdf"), DocumentFormat.Pdf, null);
            // Now change the fonts to something else
            string[] newFonts = ocrDocumentManager.GetFontNames(null);
            // Use Cambira for Proportional Serif font - instead of Times New Roman
            newFonts[0] = "Cambria";
            // Use Calibri for Proportional Sans-serif font - instead of Arial
            newFonts[1] = "Calibri";
            // Use Lucida Console for Monospace fonts (both Serif and Sans-serif)
            newFonts[2] = "Lucida Console";
            newFonts[3] = "Lucida Console";
            // Leave the ICR and MICR fonts the same
            ocrDocumentManager.SetFontNames(null, newFonts);
            // Show the new fonts used to save default documents
            Console.WriteLine("Saving use the following fonts:");
            ShowFonts(ocrDocumentManager);
            ocrDocument.Save(Path.Combine(LEAD_VARS.ImagesDir, "Ocr1_CustomFonts.pdf"), DocumentFormat.Pdf, null);
         }
      }
   }
}
private static void ShowFonts(IOcrDocumentManager ocrDocumentManager)
{
   // Get the default fonts
   // The default fonts will be used for all Latin languages
   string[] fonts = ocrDocumentManager.GetFontNames(null);
   // This should return an array of 6 items, as follows:
   Console.WriteLine("Proportional Serif font:        " + fonts[0]);
   Console.WriteLine("Proportional Sans-serif font:   " + fonts[1]);
   Console.WriteLine("Monospace Serif font:           " + fonts[2]);
   Console.WriteLine("Monospace Sans-serif font:      " + fonts[3]);
   Console.WriteLine("ICR (hand-written) font:        " + fonts[4]);
   Console.WriteLine("MICR (Check) font:              " + fonts[5]);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
public const string OcrAdvantageRuntimeDir = @"C:\LEADTOOLS 18\Bin\Common\OcrAdvantageRuntime";
}