Vb.net条形码生成（9/9）：未生成条形码

Question

我获得了由VS 2008 VB.Net的前开发人员编写的Vb.Net条形码程序。我的任务是添加另一个字段（Date Received）生成条形码。我已经包括了这个领域。打印预览显示日期接收日期本身。它没有生成任何条形码。 问题是，它没有为之前编码的任何其他字段生成条形码。

1. 我已下载第9个字体
2. 我已将*包含在字段的开头和结尾以生成条形码。

我添加了所有需要的库。（系统，绘图，文本，打印）`
你能指点我调试的方法，为什么它没有生成BARCODE？ 代码片段：

 DateReceived = Mid$(lines(10), 23, 10)
 DateReceivedBC = "*" & DateReceived & "*"
 printFont = New Font("3 of 9 Barcode", 20)
 printFont2 = New Font("arial", 12)
 printFont3 = New Font("arial black", 18)

 ev.Graphics.DrawString("Date Recieved", printFont6, Brushes.Black, 375, 940, New StringFormat)
 ev.Graphics.DrawString(DateReceivedBC, printFont, Brushes.Black, 345, 950, New StringFormat)
 ev.Graphics.DrawString(DateReceived, printFont2, Brushes.Black, 375, 975, New StringFormat)

  Dim pd As New PrintDocument
        AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
        '
        'set printer
        'Empl = pd.PrinterSettings.DefaultPageSettings.PaperSource.SourceName()
        '
        'MessageBox.Show(Empl)
        pd.DocumentName = Empl & "  Bar Code Sheets"

        pd.PrinterSettings.PrinterName = PrinterName

        pd.PrinterSettings.Copies = 1
        'print
        PrintPreviewDialog1.Document = pd

当我尝试打印时，它在图像中看起来像这样：