Visual Basic

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
  sPrint(e.Graphics)
End Sub

Private Sub fFontTest_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  TextBox1.Text = "abcdefghijklmnopqrstuvwxyz" & vbCrLf & "abcdefghijklmnopqrstuvwxyz".ToUpper & vbCrLf & "0123456789"
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
  PrintPreviewControl1.InvalidatePreview()
End Sub

Private Sub fFontTest_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
  sPrint(e.Graphics)
End Sub
Sub sPrint(g As Graphics)
  Dim pfc As New Drawing.Text.PrivateFontCollection

  pfc.AddFontFile(Application.StartupPath & "\Alpha.ttf")
  Dim ff As FontFamily = pfc.Families(0)
  Dim f As Font = New Font(ff, 20)

  g.DrawString(TextBox1.Text, f, Brushes.Black, 0, 250)
  g.DrawString(f.Name, Me.Font, Brushes.Black, 0, 450)
End Sub

"Das angegebene Modul wurde nicht gefunden. (Ausnahme von HRESULT: 0x8007007E)"
Translation: "The module could not be found (Exception of HRESULT: 0x8007007E)"

"bei Tesseract.OCR.AppEntry.MainForm..ctor()"

Public Sub New()
	InitializeComponent()
	Initialize()
End Sub