| |
Private Sub Command2_Click()
Dim x As Integer
For x = 1 To 10
ExportActiveView "C:\temp\vb6rainmovie\data\" & x & ".jpg"
Next
End Sub
Private Sub ExportActiveView(filename As String)
Dim playout As IActiveView
Set playout = mapdoc.PageLayout
Dim rectOut As tagRECT
rectOut = playout.ExportFrame
Dim pEnv As IEnvelope
Set pEnv = New Envelope
pEnv.PutCoords rectOut.left, rectOut.top, rectOut.right, rectOut.bottom
Dim pExporter As IExporter
Set pExporter = New JpegExporter
pExporter.ExportFileName = filename
pExporter.PixelBounds = pEnv
pExporter.Resolution = 96
'Recalc the export frame to handle the increased number of pixels
Set pEnv = pExporter.PixelBounds
Dim xMin As Double, yMin As Double
Dim xMax As Double, yMax As Double
pEnv.QueryCoords xMin, yMin, xMax, yMax
rectOut.left = xMin
rectOut.top = yMin
rectOut.right = xMax
rectOut.bottom = yMax
'Do the export
Dim hDc As Long
hDc = pExporter.StartExporting
playout.Output hDc, pExporter.Resolution, rectOut, Nothing, Nothing
pExporter.FinishExporting
End Sub |