PaperSize = vbPRPSUser 提示错误
最近用 Printer 写了一个打印
我在本机测试打印没问题，在同屋的电脑安装打印也没有问题
但是到客户那里打印就出现 run-time error '380':Invalid property value 错误
后来我我在VB下运行 找到错误行 .PaperSize = vbPRPSUser 去掉以后 可以正常打印
请问这是什么原因啊
系统都是 XP 的 打印机也是一样的 HP1020 激光打印机
只是有一点不同 我在公司测试的时候用的是 网络共享的打印机 而在客户那里用的是本地打印机
虽然去掉 .PaperSize = vbPRPSUser 依然可以使用
但是我想弄明白是什么原因 期望大家能给我讲一下！
谢谢！
With Printer
.PaperSize = vbPRPSUser ' 用户自定义
.ScaleMode = vbTwips
.FontSize = 10 '字体大小
.FontBold = False
.FontItalic = False '斜体字
.FontUnderline = False '下划线
.ScaleLeft = 0
.ScaleTop = 0
.Width = PapeSizeW '纸张大小
.Height = PapeSizeH
.CurrentX = 0
.CurrentY = 0
End With
[解决办法]
是不是该用户没有自定义纸张？
[解决办法]
对于激光打印机，驱动程序应该不接受用户自定义纸张（固定纸张大小）
另外，这位朋友既然设置了.Width = PapeSizeW .Height = PapeSizeH，就不需要设置PageSize参数，因为设置width、height时，VB会自动将PageSize更改为vbPRPSUser
