What version of AutoCAD are you using?
If your using 2000 - 2002 then all you have to do is select the dwf printer
device from the printer list (there should be a e-plot or dwf classic). The
rest of your code should work
"philwil"
wrote in message
news:8BA52A8FA794BDAE60C6C192F8EBBB9C@in.WebX.maYIadrTaRb...
> I would like to create a procedure to export all layouts in *.DWF .
> I have this VBA to print all layouts automaticly.
> Is it possible to modify this VBA for exporting the file in *.DWF ?
>
>
> Thanks in advance,
> Philwil From Belgium
>
>
> Sub ad_PlotLayouts()
> 'This routine plots all layouts(except modelspace) in the current drawing.
> ' It uses the current layout plot settings.
> 'Demand load: -vbarun;ad_Utility.dvb!ad_PlotLayouts;
> Dim PlotLayout As AcadLayout
> Dim PlotLayouts As AcadLayouts
> Dim StrMsg As String
> Dim StrTitle As String
> Dim Response
>
> On Error Resume Next
> If ThisDrawing.ActiveSpace = acModelSpace Then _
> ThisDrawing.ActiveSpace = acPaperSpace
> Set PlotLayouts = ThisDrawing.Layouts
> StrMsg = "PLOT ALL LAYOUTS ?: " &
> PlotLayouts.count - 1 & " Layout(s)?"
> StrTitle = "VERIFICATION"
> Response = MsgBox(StrMsg, vbYesNo, StrTitle)
> If Response = vbYes Then
> For Each PlotLayout In PlotLayouts
> If PlotLayout.Name <> "Model" Then
> ThisDrawing.ActiveLayout = PlotLayout
> ThisDrawing.Plot.PlotToDevice
> End If
> Next
> End If
> End Sub
>
>
>
