如下代码怎么打印不出来？

Printer.Print Picture1.Picture

Picture1之中含：line线条，text文本控件，label标签

怎样的代码才能打印Picture1呢？

求助啊
问题菜吧？不会就深，所谓浅水淹死人。
请教了，指点一下吧，
谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！

试试下面的代码
Sub PrintAnywhere(Src As Object, Dest As Object)

Dest.PaintPicture Src.Picture, 0, _
0, Dest.ScaleWidth, Dest.ScaleHeight
If Dest Is Printer Then
Printer.EndDoc
End If

End Sub

什么意思？版主可以说明一下吗，
因为我很菜