直接打印picturebox中的控件和图片
我要做一个厂牌的打印程序,打印A4纸大小(210*297),因为超出窗体最大高度,所以把文字和照片放在picturebox中.
请问高手,如何直接打印picturebox中的控件和图片,因为我如果用BitBlt保存成位图再打印,感觉失真严重。
[解决办法]
Printer.PaintPicture Picture1.Picture, 0, 0
Printer.EndDoc
[解决办法]
Picture.Print方法打印
[解决办法]
需要另一个 PictureBox 过度(控件转成图形象素),另,会使用屏幕字体,不是太好看。
Picture1.SetFocus
Picture2.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hDC, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hDC, _
PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
Picture2.Picture = Picture2.Image
Picture2.AutoRedraw = False
Printer.Print " "
Printer.PaintPicture Picture2.Picture, 0, 0
Printer.EndDoc
[解决办法]
顶一下....没做过这个
[解决办法]
先把label和image的内容画到PICTURE上面去.
label的文本用TEXTOUT输出到PICTURE,image上的图片用PICTURE.PAINTPICTURE贴上去
picture的AUTOREDRAW要为TRUE,贴图和贴字完成之后用PICTURE.REFRESH刷新一下
[解决办法]
关注中...