daily pastebin goal
72%
SHARE
TWEET

Untitled

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