有办法,但要麻烦一些,可以用API中DrawText函数来画文字(需要转换座标单位),指定格式为:DT_WORDBREAK Or DT_NOPREFIX Or DT_MODIFYSTRING Or DT_EDITCONTROL各个常数的值: Public Const DT_NOPREFIX = &H800 Public Const DT_WORDBREAK = &H10 Public Const DT_MODIFYSTRING = 65536 Public Const DT_EDITCONTROL = &H2000
Printer.CurrentX = x坐标
Printer.CurrentY = y坐标
设定位置,再printer.print输出下一行,只要Printer.CurrentY = y坐标 + 行高就可以了PaperSize 属性设置纸张大小
Public Const DT_NOPREFIX = &H800
Public Const DT_WORDBREAK = &H10
Public Const DT_MODIFYSTRING = 65536
Public Const DT_EDITCONTROL = &H2000