Printer打印从数据库中取出的图片问题
从数据库中取出的图片放在 picture1 中,显示没问题。
Public PrnUser As PrinterPrivate Sub CmdPrint_Click() '打印 PrnUser.PaintPicture Picture1.image, 0, 0, Picture1.Width, Picture1.Height PrnUser.EndDocEnd Sub
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