Export only current sheet to .pdf

[rafl]

I found this journal here on eng-tips. Is there a version that only exports current sheet instead of every sheet?

http://files.engineering.com/getfil...7f6-48f4-a4b2-2e485de5c1f4&file=pdf_export.vb

 

[cowski]

Look for the "For Each sheet in dwgs" line; comment it out and the corresponding "Next". Add a variable named sheet that refers to the current drawing sheet. Keep the rest of the code.

'For Each sheet in dwgs
Dim sheet As Drawings.DrawingSheet = workPart.DrawingSheets.CurrentDrawingSheet
.
.
.
'Next

Also, you may be interested in the code found here:

http://nxjournaling.com/content/pdf-exporter-class

www.nxjournaling.com