a guest Nov 22nd, 2017 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Sub PlotToPdf()
- ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3"
- Dim plotFileName As String
- plotFileName = "Z:USERSKweziMPROJECT SMyPlot.pdf"
- Dim result As Boolean
- result = ThisDrawing.Plot.PlotToFile(plotFileName)
- End Sub
RAW Paste Data