高手请帮帮改代码

Question

下面是一段打印代码
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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

下图的福娃是你的picCanvas, 小鸟是picMCRBox的图片(我已将小鸟的背景去除透明化了)你是要打印福娃加上小鸟, 并将小鸟置于福娃的中间是吗 ? 还是定位在某个X Y 只打印小鸟部份 ?
效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_FWBIRD.jpg

Answer 6

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

Answer 7

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

Answer 8

"能否将picMCRBox做成透明？"那只小鸟就是picMCRBox而且是透明的啊"picMCRBox中的图片是从picCanvas拷过来"两张图片一样? 那为何要拷呢 ? 搞不懂 ?

Answer 9

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