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

[[it] 本帖最后由 klj 于 2008-3-30 19:32 编辑 [/it]]