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

[songyk8848]

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就能正常打印
哪位高手知道这是什么问题吗,怎么解决

[tongnaifu]

生成安装程序，安装在目标机，目标机缺少文件。

[ChinaITOldMan]

换个字体试一试

[vbman2003]

如果你的这句:
Printer.CurrentX = (11340 - Len(str) * 500) / 2
是居中打印,那么尝试修改为:
Printer.CurrentX = (Printer.PaperSize - Printer.TextWidth(str)) / 2

[vbman2003]

上面错了,应该是:
Printer.CurrentX = (Printer.width - Printer.TextWidth(str)) / 2