高手请帮帮改代码

[klj123]

下面是一段打印代码
picMCRBox将picCanvas作容器，我相定位picMCRBox于picCanvas的固定位置，但打印出来picMCRBox位于picCanvas左上角，请高手帮改一下，谢谢！
Private Sub Command2_Click()
On Error GoTo Errhandle
Screen.MousePointer = 11
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = 4
picMCRBox.Left = 230
picMCRBox.Top = 190
Printer.PaintPicture picCanvas.Image, 0, 0: Printer.PaintPicture picMCRBox.Image, 188, 196
Printer.EndDoc
Screen.MousePointer = 0
Exit Sub
Errhandle:
Screen.MousePointer = 0
MsgBox "错误号为:" & Err.Number & "!" & Chr(13) & "错误类型为:" & Err.Description & "!", vbOKOnly + vbExclamation
End Sub

[cbm6666]

下图的福娃是你的picCanvas, 小鸟是picMCRBox的图片(我已将小鸟的背景去除透明化了)

你是要打印福娃加上小鸟, 并将小鸟置于福娃的中间是吗 ? 还是定位在某个X Y 只打印小鸟部份 ?


效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_FWBIRD.jpg

[forbearORfolie]

哈哈，山姆大哥的美术确实不错，赞一个

[cbm6666]

我打印出来的效果就是与上面的效果图一样.

小鸟部份,因我这张图片是将.gif加载在picMCRBox里面的, 如你需要透明,则picMCRBox的图片也要有固定色的背景我就可以使它透明的打印出来.

[用户 昵称]

神奇，美术这么好。

[klj123]

cbm666朋友，我是用昨天你给的代码加以扩展的，picMCRBox中的图片是从picCanvas拷过来在的问题是
1、打印福娃加上小鸟, 并将小鸟置于福娃的中间。
2、能否将picMCRBox做成透明？

[cbm6666]

"能否将picMCRBox做成透明？"

那只小鸟就是picMCRBox而且是透明的啊

"picMCRBox中的图片是从picCanvas拷过来"

两张图片一样? 那为何要拷呢 ? 搞不懂 ?

[klj123]

是这样的，我先在picCanvas导入一张图片，用picMCRBox拷，再用picCanvas导入另一张图片，这张图片是处在picMCRBox后面，做出叠加的样式（我不会图片叠加才这样做），调好位置后就打印，效果像叠加一样。

[DoemingRau]

Printer.PaintPicture picMCRBox.Image, 188, 196
改为
Printer.PaintPicture picMCRBox.Image, picCanvas.x+188, picCanvas.y+196

[DoemingRau]

上述修正下
Printer.PaintPicture picMCRBox.Image, 188, 196
改为
Printer.PaintPicture picMCRBox.Image, picCanvas.CurrentX + 188, picCanvas.CurrentX + 196

[klj123]

还是不行
那个picMCRBox还是跑到picCanvas的左上角无法定位，哪位高手知道错在哪儿吗？

[DoemingRau]

Private Sub Command2_Click()
On Error GoTo Errhandle
Screen.MousePointer = 11
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = 4
picMCRBox.Left = 230
picMCRBox.Top = 190
Printer.PaintPicture picCanvas.Image, 0, 0: Printer.PaintPicture picMCRBox.Image, picMCRBox.Left +188, picMCRBox.Top +196
Printer.EndDoc
Screen.MousePointer = 0
Exit Sub
Errhandle:
Screen.MousePointer = 0
MsgBox "错误号为:" & Err.Number & "!" & Chr(13) & "错误类型为:" & Err.Description & "!", vbOKOnly + vbExclamation
End Sub