Question

vb6.0 自定义纸张打印问题

Printer.PaperSize = 256
Printer.Width = 191 * 56.7
Printer.Height = 93 * 56.7
For n = Pstart To Pend
Printer.ScaleMode = vbMillimeters '以毫米为单位
Printer.Font = "楷体_GB2312"
Printer.FontSize = 14
Printer.CurrentX = 60
Printer.CurrentY = y - 10
Printer.Print "欠费通知单"
显示都是A4纸,不能自定义尺寸
打印机为针式
求代码，可以发邮箱lddn3000@163.com

Answer 1

去掉
Printer.PaperSize = 256
修改
Printer.Width = 191 * 56.7
Printer.Height = 93 * 56.7
里的191与93的值。分别对应纸张长与宽 的毫米值

Answer 2

vb中的打印还是使用水晶报表好用，可以自己设置纸张大小，自己设计纸张显示内容。下载水晶报表安装后，vb中可以加载该模块，使用很方便的。