Printer打印从数据库中取出的图片问题

[erdong988]

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

Public PrnUser As Printer

Private Sub CmdPrint_Click()       '打印
   PrnUser.PaintPicture Picture1.image, 0, 0, Picture1.Width, Picture1.Height
   PrnUser.EndDoc
End Sub

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

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

[zdingyun]

Option Explicit
    Public PrnUser As Printer

Private Sub Command1_Click()
    Set PrnUser = Printer
    PrnUser.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
    PrnUser.EndDoc
End Sub

[erdong988]

我傻了......
期间尝试写过“Set PrnUser = New ......”，试了几个提示里没找到Printer字样 就放弃了......

现在想想，还是应该有个Set语句的，又不是常见的数据类型什么。。。。
……
结帖了