请教picture图片的复制和打印问题 - 编程论坛

#2

xiangyue05102016-11-04 08:59

帮你百度查了一下。可以试试下面的代码，可能需要 picture1的autoredraw 为true

set picture2.picture = picture1.image

或者

Picture2.paintpicture Picture1.Image, 0, 0

由于现在机器上没有VB，而VBA中也没有picturebox，所以无法测试。你自己先试一下。

#3

风吹过b2016-11-04 10:07

早晨上在手机上看到，因为命令不记得了，所以没法回。

问题1：将pic1中的绘图复制的到pic2中，复印的图片可以适应pic2的长宽改变
使用命令，2楼的那个命令： paintpicture

Picture2.paintpicture 图像源，坐标X，坐标Y，目标图像宽，目标图像高，源坐标X，源坐标Y，源图像宽，源图像高，复制模式
      图像源，坐标X，坐标Y，这三个参数是必选的。

图像源：如果是加载的图像文件，使用 Picture1.picture 这种的。
        如果是绘制的图形，或贴的图，并且 autoredraw 为true 时，使用 Picture1.Image 。
显示时，如果有 picture ，又有 Image 时，会分层显示，先显示 picture ，再显示 Image 。注意，贴图，画填充矩形，都会挡住底层的 picture 相应区域。

--------------------------------------------
问题2：将pic2中的图形打印到A4纸上。
把打印机当做一个 Picture 一样的对图像进行操作。

printer.paintpicture Picture1.Image, 0, 0         '贴到打印机上面去。
printer.enddoc                                    '整个打印内容完成。

#4

zhch202016-11-04 10:19

谢谢！没想到回复这么快，第一次登陆，有了找到组织的感觉，我会很快按照你们的提示做一下，然后反馈给你们，谢谢！

#5

zhch202016-11-07 12:23

按照二位的指教，完成了复制的问题，但是发现在复制时图片的背景一并复制了，怎么才能只复制图形而不复制背景，请继续指点。谢谢！

#6

风吹过b2016-11-07 13:59

复制时一定会复制背景的。如果你背景色是纯色，可以使用 API 函数透明复制。
具体这部分我不太懂。