主题：窗口打印

在当前窗口，我想打印"ck1"窗口，代码如下：

Forms("ck1").open()
Dim doc As PrintDoc = Forms("ck1").GernatePrintDoc()
doc.Print()
Forms("ck1").close()

可是窗("ck1")的图片打印不出来，加上Readvalue也不行，还有什么解决办法吗？