Dim d As Date = Date.now
Dim fl As String = "D:\另存\" & Format(d, "yyyyMMddHHmmss") & ".jpg"
FileSys.CopyFile(e.FullPath, fl,True)
If forms("窗口1").Opened AndAlso forms("窗口1").controls("CheckBox1").Checked = True Then
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.ImageFile = Nothing
pbx.ImageFile = fl
End If
Dim doc As New PrintDoc '定义一个报表
Dim tp As New prt.RenderImage '定义一个图片对象
tp.Image = GetImage(fl)
tp.x =5
tp.y =5
tp.Width = 95
tp.Height = 70
doc.body.Children.Add(tp)
Doc.Print()
加好友 
发短信
Post By：2018/12/8 15:47:00 [只看该作者]
