Printer打印从数据库中取出的图片问题
从数据库中取出的图片放在 picture1 中，显示没问题。

VB code

Public PrnUser As PrinterPrivate Sub CmdPrint_Click()       '打印   PrnUser.PaintPicture Picture1.image, 0, 0, Picture1.Width, Picture1.Height   PrnUser.EndDocEnd Sub

上面是打印相关代码
执行的时候在第一行报错：实时错误'91':对象变量或 With 块变量未设置

这个错误提示太常见了，搜索了一番，还是找不到解决方法，特发帖求助！

[解决办法]

VB code

Option Explicit    Public PrnUser As PrinterPrivate Sub Command1_Click()    Set PrnUser = Printer    PrnUser.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height    PrnUser.EndDocEnd Sub