Hi Yankov!
Thank you very much,
that function do the trick!!
Here's the whole Procedure for my printing map/shape
myImage = DirectCast(MainMap.SnapShot3(myExtents.xMin, myExtents.xMax, myExtents.yMax, myExtents.yMin, 8000), MapWinGIS.Image)
Dim xName As String
xName = Format(DateTime.Now, "MMddyyyy-hhmmss") & ".bmp"
myImage.Save("C:\SnapShot\" & xName, True, MapWinGIS.ImageType.BITMAP_FILE)
Dim xans As String
xans = MessageBox.Show("Open the Image?", "Open Image", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If xans = vbYes Then
Thank you very much,
that function do the trick!!
Here's the whole Procedure for my printing map/shape
This codes creates a snapshot and save it, then ask the user if he want to open the image
myExtents = MainMap.ExtentsmyImage = DirectCast(MainMap.SnapShot3(myExtents.xMin, myExtents.xMax, myExtents.yMax, myExtents.yMin, 8000), MapWinGIS.Image)
Dim xName As String
xName = Format(DateTime.Now, "MMddyyyy-hhmmss") & ".bmp"
myImage.Save("C:\SnapShot\" & xName, True, MapWinGIS.ImageType.BITMAP_FILE)
Dim xans As String
xans = MessageBox.Show("Open the Image?", "Open Image", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If xans = vbYes Then
Shell("C:\windows\system32\mspaint.exe C:\Snapshot\" & xName, vbNormalFocus)
Else Exit Sub
End If