用HP D1300喷墨打印机打印不全

Printer.Font.Bold = True
   str = "要打印的内容"
   Printer.FontSize = 22
   Printer.CurrentX = (11340 - Len(str) * 500) / 2
   Printer.CurrentY = 567
   Printer.Print Trim(str)
   printer.enddoc
用HP D1300喷墨打印机在开发机上都正常,编译好安装的目标机上打印的时候打印不全,有的字就缺少了.在目标机上装上VB就能正常打印
哪位高手知道这是什么问题吗,怎么解决