Export DWF

[info347074]

I am trying to Automate exporting selected Sheets as DWFs.



Dim



exported As Boolean = True









Dim VS As ViewSet = m_printmgr.ViewSheetSetting.CurrentViewSheetSet.Views

For Each m_Views In VS

'Export Options DWF
Dim dwfExportOptions As New DWFExportOptions

dwfExportOptions.ExportingAreas = True


dwfExportOptions.MergedViews = False


dwfExportOptions.ImageFormat = DWFImageFormat.Lossless


dwfExportOptions.ImageQuality = DWFImageQuality.High

'Export DWF

exported = doc.Export(FolderDWF, "", VS, dwfExportOptions)

Next



Where I have hightlight VS in red - this returns all selected sheets, rather than the current selected sheet - how can I get current selected sheet?

[irneb]

Where I have hightlight VS in red - this returns all selected sheets, rather than the current selected sheet - how can I get current selected sheet?The m_Views variable should be holding each view in turn in the foreach loop, the VS contains all the selected views in a collection.

The loop works like:
Dim Ar = {1 , 2, 3}, S = 0
ForEach X in Ar
S = S + X
NextThat would sum all the values in the array Ar and place the value 6 into S