打印问题，搞不明白

[skywolfY]

ObjPrint.Font.Name = "宋体"
ObjPrint.Font.Bold = False
ObjPrint.CurrentX = lCurx + lm
ObjPrint.CurrentY = lCurY
ObjPrint.Print sMtxt

ObjPrint 是object类型，传址引用的Printer对象
出现的现象是
ObjPrint.Print sMtxt这一句，马上就换页，而且无论sMtxt 有没有值，打出来的都是空白。
用Printer代替，也一样。
如查说是驱动问题，用写字板打印一段文章又好用，一点错都没有。
谁遇到过这个问题？帮个忙解决下？

[yangao]

Printer.Font.Name = "宋体"
Printer.Font.Bold = False
Printer.CurrentX = 10
Printer.CurrentY = 10
Printer.Print "你好啊!"
Printer.EndDoc
没问题
别忘加 EndDoc

[dingyanwei]

还在搞打印啊,花100块钱买一个控件好了,比word,excel打印都全呢.

[skywolfY]

lm是我写死的，以 tiwp为单位。
lCurx是从200开始，打印代码只在个别打印机上出错，一般打印机上不出错。
但客户用的就是这种能代码出错的打印机，而且客户严重不合作，坚决不换打印机。
超出纸张范围？难不成打印机能设置单位大小？以象素为单位？
可printer不能自动转吗？

[skywolfY]

lm跨度一般在900左右。

[Dunzip]

在最前面加一个：
ObjPrint.ScaleMode=vbtwips

[zq972]

ObjPrint.CurrentX = lCurx + lm
ObjPrint.CurrentY = lCurY

有没有超出纸张范围阿？

[skywolfY]

谢谢我去试试看行不行。

[skywolfY]

还是不行，还有没有别的原因呢？

[likesome]

用控件吧 ActiveReport 很好用

[skywolfY]

有没有谁遇到过这个问题？

[Tiger_Zhao]

什么牌子的打印机，说来听听。

实在不行，将内容打印到一个 AutoRedraw = True 的 PictureBox 上，再将 PictureBox 的 image 输出到打印机。

[skywolfY]

原因是客户的针式打印机纸张大小会变。。。。
真是第一次遇到这种问题，在代码中明确指出纸张大小就行了