条码打印问题，请大家指点

我电脑中有将装code39,如下函数无法打印出条码，请大家帮忙看一下，是什么问题Public Function Fun_Print(S_txt As String)

    '条码打印

    With Printer
        .FontName = "CIA Code 39 Medium Tex"   '如附件中字库
        .FontSize = 12       '文字大小
        .FontBold = 1       '是否加粗
        .CurrentX = 3        '打印位置
        .CurrentY = 3        '垂直位置
    End With

    Printer.Print S_txt  '"条码内容"    Printer.EndDoc   '启动打印机开始打印
End Function