\'区域快照功能(与标题的层数有关)
With CurrentTable
Dim n As Integer = .HeaderRows
Dim img As Image = .Grid.CreateImage(.TopRow + n, .LeftCol+1, .BottomRow + n, .RightCol+1)
Dim FileName As String = ProjectPath & "Attachments\\JP_Images\\" & Format(Date.Now(),"yyyyMMdd.HHmmss") & ".png"
img.Save(FileName) \'指定的保存路径必须已经存在.否则会报错.
Dim Proc As New Process
Proc.File = FileName
Proc.Start()
End With