If Forms("输出").Opened Then forms("输出").Controls("PictureViewer1").Readvalue
Dim doc As PrintDoc = forms("输出").GernateprintDoc() doc.print()End If
加好友 
发短信
Post By：2010/6/19 10:53:00 [只看该作者]
