<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: PDF iLogic in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7414732#M108780</link>
    <description>&lt;P&gt;Hello - I have the same issue. Would greatly appreciate any help. Thank you!&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;BR /&gt;&lt;BR /&gt;'this rule outputs all drawing sheets to PDF
'this rule outputs all drawing sheets to DWF, 3D models of first sheet included
Public Sub Main()
    
    
    'Ask to print file
    printerName = "\\JLF-PRINT01\Canon Meadow Lighting_Dept PS3"
    askprint = MessageBox.Show("Print to " &amp;amp; printerName &amp;amp; "?", "Print",MessageBoxButtons.YesNoCancel)
    If askprint = vbYes
        Dim oDrawDoc As Document
        oDrawDoc = ThisApplication.ActiveDocument
        
        Dim oPrintMgr As PrintManager
        oPrintMgr = oDrawDoc.PrintManager
        'specify your printer name
                            '\\JLF-PRINT01\Canon Meadow Lighting_Dept PS3
        oPrintMgr.Printer = printerName
        oPrintMgr.PrintRange = Inventor.PrintRangeEnum.kPrintAllSheets
        oPrintMgr.ColorMode = PrintColorModeEnum.kPrintGrayScale
        oPrintMgr.AllColorsAsBlack = False
        oPrintMgr.Orientation = PrintOrientationEnum.kPortraitOrientation
        oPrintMgr.PaperSize = SizeActiveSheet
        oPrintMgr.SubmitPrint
    Else If askprint = vbCancel
        Goto ErrorHandle
    End If
	
	'Set-Up declarations for DPF and DWF add-ins
	PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
	DWFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
		oDocument = ThisApplication.ActiveDocument
		oContext = ThisApplication.TransientObjects.CreateTranslationContext
		oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
		PDFOptions = ThisApplication.TransientObjects.CreateNameValueMap
		DWFOptions = ThisApplication.TransientObjects.CreateNameValueMap
		PDFOptions = ThisApplication.TransientObjects.CreateDataMedium
		DWFOptions = ThisApplication.TransientObjects.CreateDataMedium
		
		'Define the save path
		Dim fileName As String
		
		filename = ThisDoc.FileName(True)
		
		Prefix = Left(fileName, 3) 'First 3 characters i.e. "803"
		
		FirstSpace = InStr(1, fileName, " ") 'Gets location in strine of the first space
		
		If Not FirstSpace = 0
			PartNumber = Left(fileName, FirstSpace-1) 'Assign everything left of the space to part number
			
		Else 'There is no space
			dot = InStr(1, fileName, ".") 'Gets the location in string of the first "."
		
			PartNumber = Left(fileName, dot-1) 'Assign everything left of the "." to part number	
		End If
	
	'PartNumber = Left(fileName, 9) 'Full Part number i.e. "803-00044"
	'last5 = Right(DNumber, 5) 'Last 5 characters i.e. "00044"

	'Image Library folder names have additional descriptors...
	If Left(Prefix, 3) = "801"
		folderDescription = "Table Lamps"
	Else If Left(Prefix, 3) = "802"
		folderDescription = "Floor Lamps"
	Else If Left(Prefix, 3) = "803"
		folderDescription = "Wall Lamps"
	Else If Left(Prefix, 3) = "804"
		folderDescription = "Ceiling Lamps"
	Else If Left(Prefix, 3) = "809"
		folderDescription = "Shades"
	End If

	PDF_Path = "I:\" &amp;amp; Prefix &amp;amp; " - " &amp;amp; folderDescription &amp;amp; "\PDF"
	DWF_Path = "I:\" &amp;amp; Prefix &amp;amp; " - " &amp;amp; folderDescription &amp;amp; "\DWF"
		
	'Create PDF file
	PDF_File_Name = PartNumber &amp;amp; "-" &amp;amp; iProperties.Value("Project", "Project") &amp;amp; ".pdf"
	'Debug line to show PDF save path
	'MessageBox.Show(PDF_PATH, "PDF Save Path")
	
	If PDFAddIn.HasSaveCopyAsOptions(PDFDataMedium, oContext, PDFOptions) Then
		PDFOptions.Value("All_Color_AS_Black") = 0
		PDFOptions.Value("Remove_Line_Weights") = 0
		PDFOptions.Value("Vector_Resolution") = 4800
		PDFOptions.Value("Gradient_Resolution") = 4800
		PDFOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
		'PDFOptions.Value("Custom_Begin_Sheet") = 2
		'PDFOptions.Value("Custom_End_Sheet") = 4
	End If

	'Set the PDF target file name
	'Shop Drawing
	If ActiveSheet.TitleBlock = "MEADOW SHOP TITLE BLOCK"
		Cloc = InStr(1, fileName, "C") 'Gets location in string of the "C"
		If Cloc = 0
			MFG_Folder = PartNumber &amp;amp; "-C" 'Add "-C" to PartNumber
			PDF_File_Name = ThisDoc.FileName(False) &amp;amp; ".pdf"
		Else
			MFG_Folder = Left(PartNumber, Cloc) 'Crop the end of Shop Drawing Part Number to the "C"
			PDF_File_Name = PartNumber &amp;amp; ".pdf"
		End If
		Shop_PDF_Path = PDF_Path &amp;amp; "\MFG DRAWINGS\" &amp;amp; MFG_Folder
		PDFDataMedium.FileName = Shop_PDF_Path &amp;amp; "\" &amp;amp; PDF_File_Name
		'MessageBox.Show(Shop_PDF_PATH, "PDF Save Path")
	Else
		'MessageBox.Show(PDF_PATH, "PDF Save Path")
		PDFDataMedium.FileName = PDF_Path &amp;amp; "\" &amp;amp; PDF_File_Name
	End If
	
	'Publish PDF document
	Try
		PDFAddIn.SaveCopyAs(oDocument, oContext, PDFOptions, PDFDataMedium)
	Catch
		MessageBox.Show("Error - PDF may be open in another viewer, or destination folder does not exist.", "Problem saving PDF to P", MessageBoxButtons.OK, MessageBoxIcon.Error)
	End Try
	
	If ActiveSheet.TitleBlock = "MEADOW SALES TITLE BLOCK" 'Sales Drawing
		'Publish copy with Rev info in Project Directory
		copy_Path = ThisDoc.Path &amp;amp; "/" &amp;amp; PartNumber &amp;amp; " DOCS"
		copy_FileName = PartNumber &amp;amp; "-" &amp;amp; iProperties.Value("Project", "Project") &amp;amp; " Rev " &amp;amp; iProperties.Value("Project", "Revision Number") &amp;amp; ".pdf"
		PDFDataMedium.FileName = copy_Path &amp;amp; "\" &amp;amp; copy_FileName
		PDFAddIn.SaveCopyAs(oDocument, oContext, PDFOptions, PDFDataMedium)
		
		'Create DWF file
		
		'Store and delete Project, Side Mark, &amp;amp; Quantity
		storeProject = iProperties.Value("Project", "Project")
		storeSideMark = iProperties.Value("Custom", "SIDEMARK")
		storeQuantity = iProperties.Value("Custom", "QUANTITY")
		iProperties.Value("Project", "Project") = ""
		iProperties.Value("Custom", "SIDEMARK") = ""
		iProperties.Value("Custom", "QUANTITY") = ""
		InventorVb.DocumentUpdate()
		
		DWF_File_Name = PartNumber &amp;amp; ".dwf"
		
		'Debug line to show DWF save path
		'MessageBox.Show(DWF_PATH, "DWF Save Path"
		
		'askview = MessageBox.Show("Launch the DWF Viewer now?", "Launch DWF Viewer",MessageBoxButtons.YesNo)
		'If askview = vbYes Then : launchviewer = 1 : Else : launchviewer = 0 : End IF
		launchviewer = 0
		
		If DWFAddIn.HasSaveACopyAsOptions(DWFDataMedium, oContext, DWFOptions)Then	
				DWFOptions.Value("Launch_Viewer") = launchviewer
				DWFOptions.Value("Publish_All_Component_Props") = 1
				DWFOptions.Value("Publish_All_Physical_Props") = 1
				DWFOptions.Value("Password") = 0
				DWFOptions.Value("Publish_3D_Models") = Publish_3D_Models
			
				If TypeOf oDocument Is DrawingDocument Then
					Dim oSheets As NameValueMap
					oSheets = ThisApplication.TransientObjects.CreateNameValueMap
					DWFOptions.Value("Publish_Mode") = DWFPublishModeEnum.kCompleteDWFPublish
					DWFOptions.Value("Publish_All_Sheets") = 1
					'Publish the first sheet AND its 3D model
					Dim oSheet1Options As NameValueMap
					oSheet1Options = ThisApplication.TransientObjects.CreateNameValueMap
					oSheet1Options.Add("Name", "Sheet:1")
					oSheet1Options.Add("3DModel", True)
					oSheets.Value("Sheet1") = oSheetOptions
			End If
		End If
		
		DWFDataMedium.FileName = DWF_PATH &amp;amp; "\" &amp;amp; DWF_File_Name
		
		Try
			Call DWFAddin.SaveCopyAs(oDocument, oContext, DWFOptions, DWFDataMedium)
		Catch
			MessageBox.Show("Error - DWF may be open in another viewer, or destination folder does not exist.", "Problem saving to DWF to P",
		MessageBoxButtons.OK, MessageBoxIcon.Error)
			'Restore Project, Side Mark, Quantity fields
			iProperties.Value("Project", "Project") = storeProject
			iProperties.Value("Custom", "SIDE MARK") = storeSideMark
			iProperties.Value("Custom", "QUANTITY") = storeQuantity
			InventorVb.DocumentUpdate()
		End Try
			
		If launchviewer = 1 Then ThisDoc.Launch(DWF_PATH &amp;amp; "\" &amp;amp; DWF_File_Name)
			
		'Export copy to project directory
		copy_Path = ThisDoc.Path &amp;amp; "\" &amp;amp; PartNumber &amp;amp; " DOCS"
		copy_FileName = PartNumber &amp;amp; " REV " &amp;amp; iProperties.Value("Project", "Revision Number") &amp;amp; ".dwf"
		DWFOptions.Value("Launch_Viewer") = 0 'Dont launch viewer for the copy
		DWFDataMedium.FileName = copy_Path &amp;amp; "\" &amp;amp; copy_FileName
		Call DWFAddIn.SaveCopyAs(oDocument, oContext, DWFOptions, DWFDataMedium)
			
		'Restore Project, Side Mark, Quantity Fields
		iProperties.Value("Project", "Project") = storeProject
		iProperties.Value("Custom", "SIDE MARK") = storeSideMark
		iProperties.Value("Custom", "QUANTITY") = storeQuantity
		InventorVb.DocumentUpdate()
			
		ErrorHandle:
		If OldDrawing = 1
			MessageBox.Show("Unable to remove Project information - old Title Block format", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
		End If
	End If
End Sub&lt;/PRE&gt;</description>
    <pubDate>Wed, 27 Sep 2017 20:50:14 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2017-09-27T20:50:14Z</dc:date>
    <item>
      <title>PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7409690#M108778</link>
      <description>&lt;P&gt;I had this iLogic rule which when ran would export a PDF of the current .idw. We just upgraded to 2018 and it no longer works. I can find no errors with the code as to why it will no longer fire.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;When I run it I get two pop ups...&lt;/P&gt;
&lt;P&gt;Pop up one:&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="error1.PNG" style="width: 393px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/405503i42BBCC628F618C49/image-size/large?v=v2&amp;amp;px=999" role="button" title="error1.PNG" alt="error1.PNG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Pop up two:&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="error 2.PNG" style="width: 344px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/405504i76A82D7C4A8EDAD9/image-size/large?v=v2&amp;amp;px=999" role="button" title="error 2.PNG" alt="error 2.PNG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I hit ok to both pop ups and nothing ends up happening.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Can someone else try to run it in 2018 and tell me what results or solutions you're able to find?&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks!&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;SyntaxEditor Code Snippet&lt;/P&gt;
&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;&lt;SPAN&gt;()&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslatorAddIn&lt;/SPAN&gt;
    &lt;SPAN&gt;Try&lt;/SPAN&gt;
        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ThisApp&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;
        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;TransObj&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TransientObjects&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;ThisApp&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;
        &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Document&lt;/SPAN&gt;
        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; &lt;SPAN&gt;&amp;lt;&amp;gt;&lt;/SPAN&gt; &lt;SPAN&gt;12292&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt;12292 = kDrawingDocument object&lt;/SPAN&gt;
            &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Show&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;This Rule must be run from within a Drawing Document.&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Incorrect Document Type&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt;
    &lt;SPAN&gt;Exit Sub&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;ThisApp&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;ApplicationAddIns&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;ItemById&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt;
&lt;SPAN&gt;oContext&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;TransObj&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;CreateTranslationContext&lt;/SPAN&gt;
&lt;SPAN&gt;oContext&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Type&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;IOMechanismEnum&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;kFileBrowseIOMechanism&lt;/SPAN&gt;
&lt;SPAN&gt;oOptions&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;TransObj&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;CreateNameValueMap&lt;/SPAN&gt;
&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;TransObj&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;CreateDataMedium&lt;/SPAN&gt;

&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;HasSaveCopyAsOptions&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;oContext&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
    &lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Value&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;All_Color_AS_Black&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;0&lt;/SPAN&gt; &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt; 0 = False, 1 = True&lt;/SPAN&gt;
    &lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Value&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Remove_Line_Weights&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;1&lt;/SPAN&gt; &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt; 0 = False, 1 = True&lt;/SPAN&gt;
    &lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Value&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Vector_Resolution&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;400&lt;/SPAN&gt; &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt; DPI&lt;/SPAN&gt;
    &lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Value&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Sheet_Range&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;PrintRangeEnum&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;kPrintAllSheets&lt;/SPAN&gt;
    &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt;oOptions.Value("Custom_Begin_Sheet") = 2&lt;/SPAN&gt;
    &lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt;oOptions.Value("Custom_End_Sheet") = 4&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt;Set the PDF target file name&lt;/SPAN&gt;
&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;FileName&lt;/SPAN&gt; &lt;SPAN&gt;=&lt;/SPAN&gt; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Path&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;\&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;FileName&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;False&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;.pdf&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;
&lt;SPAN&gt;Catch&lt;/SPAN&gt;
&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Show&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Error Getting Document Information&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;vbCr&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Is the current Document Saved?&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Document Error&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;'&lt;/SPAN&gt;&lt;SPAN&gt;Publish document&lt;/SPAN&gt;

&lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;oDoc&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;oContext&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;oOptions&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt;
&lt;SPAN&gt;Catch&lt;/SPAN&gt;
&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;&lt;SPAN&gt;.&lt;/SPAN&gt;&lt;SPAN&gt;Show&lt;/SPAN&gt;&lt;SPAN&gt;(&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Unable to Save PDF&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;vbCr&lt;/SPAN&gt; &lt;SPAN&gt;&amp;amp;&lt;/SPAN&gt; &lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Is the file open or read only?&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;, &lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;Error Saving Document&lt;/SPAN&gt;&lt;SPAN&gt;"&lt;/SPAN&gt;&lt;SPAN&gt;)&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;End Sub&lt;/SPAN&gt;&amp;nbsp;&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 26 Sep 2017 13:34:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7409690#M108778</guid>
      <dc:creator>ASchlaack</dc:creator>
      <dc:date>2017-09-26T13:34:09Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7409835#M108779</link>
      <description>&lt;P&gt;1. Added explicit typing to a couple objects (probably not ESSENTIAL).&lt;/P&gt;
&lt;P&gt;2. Replaced DataMedium with oDoc in the HasSaveCopyAs options line.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;Sub Main()
    Dim oDoc As Document
    Dim oPDFAddIn As TranslatorAddIn
&lt;EM&gt;&lt;STRONG&gt;	Dim oContext As TranslationContext
	Dim oOptions As NameValueMap
	Dim oDataMedium As DataMedium&lt;/STRONG&gt;&lt;/EM&gt;
	
	Try
		Dim ThisApp = ThisApplication
		Dim TransObj As TransientObjects = ThisApp.TransientObjects
		oDoc = ThisDoc.Document
		If oDoc.DocumentType &amp;lt;&amp;gt; 12292 Then '12292 = kDrawingDocument object
			MessageBox.Show("This Rule must be run from within a Drawing Document.", "Incorrect Document Type")
			Exit Sub
		End If
		
		oPDFAddIn = ThisApp.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
		
		oContext = TransObj.CreateTranslationContext
		oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
		oOptions = TransObj.CreateNameValueMap
		oDataMedium = TransObj.CreateDataMedium
		
		If oPDFAddIn.HasSaveCopyAsOptions(&lt;EM&gt;&lt;STRONG&gt;oDoc&lt;/STRONG&gt;&lt;/EM&gt;, oContext, oOptions) Then
			oOptions.Value("All_Color_AS_Black") = 0 ' 0 = False, 1 = True
			oOptions.Value("Remove_Line_Weights") = 1 ' 0 = False, 1 = True
			oOptions.Value("Vector_Resolution") = 400 ' DPI
			oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
			'oOptions.Value("Custom_Begin_Sheet") = 2
			'oOptions.Value("Custom_End_Sheet") = 4
		End If
		
		'Set the PDF target file name
		oDataMedium.FileName = ThisDoc.Path &amp;amp; "\" &amp;amp; ThisDoc.FileName(False) &amp;amp; ".pdf"
	Catch
		MessageBox.Show("Error Getting Document Information" &amp;amp; vbCr &amp;amp; "Is the current Document Saved?", "Document Error")
	End Try
'Publish document

	Try
		oPDFAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
	Catch
		MessageBox.Show("Unable to Save PDF" &amp;amp; vbCr &amp;amp; "Is the file open or read only?", "Error Saving Document")
	End Try
End Sub &lt;/PRE&gt;</description>
      <pubDate>Tue, 26 Sep 2017 14:14:54 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7409835#M108779</guid>
      <dc:creator>MechMachineMan</dc:creator>
      <dc:date>2017-09-26T14:14:54Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7414732#M108780</link>
      <description>&lt;P&gt;Hello - I have the same issue. Would greatly appreciate any help. Thank you!&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;BR /&gt;&lt;BR /&gt;'this rule outputs all drawing sheets to PDF
'this rule outputs all drawing sheets to DWF, 3D models of first sheet included
Public Sub Main()
    
    
    'Ask to print file
    printerName = "\\JLF-PRINT01\Canon Meadow Lighting_Dept PS3"
    askprint = MessageBox.Show("Print to " &amp;amp; printerName &amp;amp; "?", "Print",MessageBoxButtons.YesNoCancel)
    If askprint = vbYes
        Dim oDrawDoc As Document
        oDrawDoc = ThisApplication.ActiveDocument
        
        Dim oPrintMgr As PrintManager
        oPrintMgr = oDrawDoc.PrintManager
        'specify your printer name
                            '\\JLF-PRINT01\Canon Meadow Lighting_Dept PS3
        oPrintMgr.Printer = printerName
        oPrintMgr.PrintRange = Inventor.PrintRangeEnum.kPrintAllSheets
        oPrintMgr.ColorMode = PrintColorModeEnum.kPrintGrayScale
        oPrintMgr.AllColorsAsBlack = False
        oPrintMgr.Orientation = PrintOrientationEnum.kPortraitOrientation
        oPrintMgr.PaperSize = SizeActiveSheet
        oPrintMgr.SubmitPrint
    Else If askprint = vbCancel
        Goto ErrorHandle
    End If
	
	'Set-Up declarations for DPF and DWF add-ins
	PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
	DWFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
		oDocument = ThisApplication.ActiveDocument
		oContext = ThisApplication.TransientObjects.CreateTranslationContext
		oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
		PDFOptions = ThisApplication.TransientObjects.CreateNameValueMap
		DWFOptions = ThisApplication.TransientObjects.CreateNameValueMap
		PDFOptions = ThisApplication.TransientObjects.CreateDataMedium
		DWFOptions = ThisApplication.TransientObjects.CreateDataMedium
		
		'Define the save path
		Dim fileName As String
		
		filename = ThisDoc.FileName(True)
		
		Prefix = Left(fileName, 3) 'First 3 characters i.e. "803"
		
		FirstSpace = InStr(1, fileName, " ") 'Gets location in strine of the first space
		
		If Not FirstSpace = 0
			PartNumber = Left(fileName, FirstSpace-1) 'Assign everything left of the space to part number
			
		Else 'There is no space
			dot = InStr(1, fileName, ".") 'Gets the location in string of the first "."
		
			PartNumber = Left(fileName, dot-1) 'Assign everything left of the "." to part number	
		End If
	
	'PartNumber = Left(fileName, 9) 'Full Part number i.e. "803-00044"
	'last5 = Right(DNumber, 5) 'Last 5 characters i.e. "00044"

	'Image Library folder names have additional descriptors...
	If Left(Prefix, 3) = "801"
		folderDescription = "Table Lamps"
	Else If Left(Prefix, 3) = "802"
		folderDescription = "Floor Lamps"
	Else If Left(Prefix, 3) = "803"
		folderDescription = "Wall Lamps"
	Else If Left(Prefix, 3) = "804"
		folderDescription = "Ceiling Lamps"
	Else If Left(Prefix, 3) = "809"
		folderDescription = "Shades"
	End If

	PDF_Path = "I:\" &amp;amp; Prefix &amp;amp; " - " &amp;amp; folderDescription &amp;amp; "\PDF"
	DWF_Path = "I:\" &amp;amp; Prefix &amp;amp; " - " &amp;amp; folderDescription &amp;amp; "\DWF"
		
	'Create PDF file
	PDF_File_Name = PartNumber &amp;amp; "-" &amp;amp; iProperties.Value("Project", "Project") &amp;amp; ".pdf"
	'Debug line to show PDF save path
	'MessageBox.Show(PDF_PATH, "PDF Save Path")
	
	If PDFAddIn.HasSaveCopyAsOptions(PDFDataMedium, oContext, PDFOptions) Then
		PDFOptions.Value("All_Color_AS_Black") = 0
		PDFOptions.Value("Remove_Line_Weights") = 0
		PDFOptions.Value("Vector_Resolution") = 4800
		PDFOptions.Value("Gradient_Resolution") = 4800
		PDFOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
		'PDFOptions.Value("Custom_Begin_Sheet") = 2
		'PDFOptions.Value("Custom_End_Sheet") = 4
	End If

	'Set the PDF target file name
	'Shop Drawing
	If ActiveSheet.TitleBlock = "MEADOW SHOP TITLE BLOCK"
		Cloc = InStr(1, fileName, "C") 'Gets location in string of the "C"
		If Cloc = 0
			MFG_Folder = PartNumber &amp;amp; "-C" 'Add "-C" to PartNumber
			PDF_File_Name = ThisDoc.FileName(False) &amp;amp; ".pdf"
		Else
			MFG_Folder = Left(PartNumber, Cloc) 'Crop the end of Shop Drawing Part Number to the "C"
			PDF_File_Name = PartNumber &amp;amp; ".pdf"
		End If
		Shop_PDF_Path = PDF_Path &amp;amp; "\MFG DRAWINGS\" &amp;amp; MFG_Folder
		PDFDataMedium.FileName = Shop_PDF_Path &amp;amp; "\" &amp;amp; PDF_File_Name
		'MessageBox.Show(Shop_PDF_PATH, "PDF Save Path")
	Else
		'MessageBox.Show(PDF_PATH, "PDF Save Path")
		PDFDataMedium.FileName = PDF_Path &amp;amp; "\" &amp;amp; PDF_File_Name
	End If
	
	'Publish PDF document
	Try
		PDFAddIn.SaveCopyAs(oDocument, oContext, PDFOptions, PDFDataMedium)
	Catch
		MessageBox.Show("Error - PDF may be open in another viewer, or destination folder does not exist.", "Problem saving PDF to P", MessageBoxButtons.OK, MessageBoxIcon.Error)
	End Try
	
	If ActiveSheet.TitleBlock = "MEADOW SALES TITLE BLOCK" 'Sales Drawing
		'Publish copy with Rev info in Project Directory
		copy_Path = ThisDoc.Path &amp;amp; "/" &amp;amp; PartNumber &amp;amp; " DOCS"
		copy_FileName = PartNumber &amp;amp; "-" &amp;amp; iProperties.Value("Project", "Project") &amp;amp; " Rev " &amp;amp; iProperties.Value("Project", "Revision Number") &amp;amp; ".pdf"
		PDFDataMedium.FileName = copy_Path &amp;amp; "\" &amp;amp; copy_FileName
		PDFAddIn.SaveCopyAs(oDocument, oContext, PDFOptions, PDFDataMedium)
		
		'Create DWF file
		
		'Store and delete Project, Side Mark, &amp;amp; Quantity
		storeProject = iProperties.Value("Project", "Project")
		storeSideMark = iProperties.Value("Custom", "SIDEMARK")
		storeQuantity = iProperties.Value("Custom", "QUANTITY")
		iProperties.Value("Project", "Project") = ""
		iProperties.Value("Custom", "SIDEMARK") = ""
		iProperties.Value("Custom", "QUANTITY") = ""
		InventorVb.DocumentUpdate()
		
		DWF_File_Name = PartNumber &amp;amp; ".dwf"
		
		'Debug line to show DWF save path
		'MessageBox.Show(DWF_PATH, "DWF Save Path"
		
		'askview = MessageBox.Show("Launch the DWF Viewer now?", "Launch DWF Viewer",MessageBoxButtons.YesNo)
		'If askview = vbYes Then : launchviewer = 1 : Else : launchviewer = 0 : End IF
		launchviewer = 0
		
		If DWFAddIn.HasSaveACopyAsOptions(DWFDataMedium, oContext, DWFOptions)Then	
				DWFOptions.Value("Launch_Viewer") = launchviewer
				DWFOptions.Value("Publish_All_Component_Props") = 1
				DWFOptions.Value("Publish_All_Physical_Props") = 1
				DWFOptions.Value("Password") = 0
				DWFOptions.Value("Publish_3D_Models") = Publish_3D_Models
			
				If TypeOf oDocument Is DrawingDocument Then
					Dim oSheets As NameValueMap
					oSheets = ThisApplication.TransientObjects.CreateNameValueMap
					DWFOptions.Value("Publish_Mode") = DWFPublishModeEnum.kCompleteDWFPublish
					DWFOptions.Value("Publish_All_Sheets") = 1
					'Publish the first sheet AND its 3D model
					Dim oSheet1Options As NameValueMap
					oSheet1Options = ThisApplication.TransientObjects.CreateNameValueMap
					oSheet1Options.Add("Name", "Sheet:1")
					oSheet1Options.Add("3DModel", True)
					oSheets.Value("Sheet1") = oSheetOptions
			End If
		End If
		
		DWFDataMedium.FileName = DWF_PATH &amp;amp; "\" &amp;amp; DWF_File_Name
		
		Try
			Call DWFAddin.SaveCopyAs(oDocument, oContext, DWFOptions, DWFDataMedium)
		Catch
			MessageBox.Show("Error - DWF may be open in another viewer, or destination folder does not exist.", "Problem saving to DWF to P",
		MessageBoxButtons.OK, MessageBoxIcon.Error)
			'Restore Project, Side Mark, Quantity fields
			iProperties.Value("Project", "Project") = storeProject
			iProperties.Value("Custom", "SIDE MARK") = storeSideMark
			iProperties.Value("Custom", "QUANTITY") = storeQuantity
			InventorVb.DocumentUpdate()
		End Try
			
		If launchviewer = 1 Then ThisDoc.Launch(DWF_PATH &amp;amp; "\" &amp;amp; DWF_File_Name)
			
		'Export copy to project directory
		copy_Path = ThisDoc.Path &amp;amp; "\" &amp;amp; PartNumber &amp;amp; " DOCS"
		copy_FileName = PartNumber &amp;amp; " REV " &amp;amp; iProperties.Value("Project", "Revision Number") &amp;amp; ".dwf"
		DWFOptions.Value("Launch_Viewer") = 0 'Dont launch viewer for the copy
		DWFDataMedium.FileName = copy_Path &amp;amp; "\" &amp;amp; copy_FileName
		Call DWFAddIn.SaveCopyAs(oDocument, oContext, DWFOptions, DWFDataMedium)
			
		'Restore Project, Side Mark, Quantity Fields
		iProperties.Value("Project", "Project") = storeProject
		iProperties.Value("Custom", "SIDE MARK") = storeSideMark
		iProperties.Value("Custom", "QUANTITY") = storeQuantity
		InventorVb.DocumentUpdate()
			
		ErrorHandle:
		If OldDrawing = 1
			MessageBox.Show("Unable to remove Project information - old Title Block format", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
		End If
	End If
End Sub&lt;/PRE&gt;</description>
      <pubDate>Wed, 27 Sep 2017 20:50:14 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7414732#M108780</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2017-09-27T20:50:14Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7416567#M108781</link>
      <description>&lt;P&gt;If you look at the above comment marked as a solution, that is a completely functional rule for exporting PDFs in 2018.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I don't know if your rule does something different but this rule works very well and has a few things that are very easy to modify such as your DPI. So I would recommend at least trying it.&lt;/P&gt;</description>
      <pubDate>Thu, 28 Sep 2017 11:57:33 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7416567#M108781</guid>
      <dc:creator>ASchlaack</dc:creator>
      <dc:date>2017-09-28T11:57:33Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7417625#M108782</link>
      <description>&lt;P&gt;Thank you for replying. I will give it a try. Thanks again!&lt;/P&gt;</description>
      <pubDate>Thu, 28 Sep 2017 16:49:47 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7417625#M108782</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2017-09-28T16:49:47Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7417641#M108783</link>
      <description>&lt;P&gt;I don't know how well you understand this code but this is the section with the editable settings. Let me know if you've got anymore questions.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="easypfd.PNG" style="width: 705px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/406615i56715D874E5EFF7F/image-size/large?v=v2&amp;amp;px=999" role="button" title="easypfd.PNG" alt="easypfd.PNG" /&gt;&lt;/span&gt;&lt;/P&gt;</description>
      <pubDate>Thu, 28 Sep 2017 16:53:40 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7417641#M108783</guid>
      <dc:creator>ASchlaack</dc:creator>
      <dc:date>2017-09-28T16:53:40Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7420773#M108784</link>
      <description>&lt;P&gt;Thank you very much, I will try this out.&amp;nbsp; Thanks for your time.&lt;/P&gt;</description>
      <pubDate>Fri, 29 Sep 2017 16:14:34 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/7420773#M108784</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2017-09-29T16:14:34Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9209889#M108785</link>
      <description>&lt;P&gt;I appreciate I'm answering an old post, but this may be helpful to others...&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;It seems that in 2017 the following line is correct&lt;BR /&gt;???= ThisApplication.ApplicationAddIns.ItemById("{0AC6FD9&lt;FONT color="#FF0000"&gt;&lt;U&gt;&lt;EM&gt;&lt;STRONG&gt;6&lt;/STRONG&gt;&lt;/EM&gt;&lt;/U&gt;&lt;/FONT&gt;-2F4D-42CE-8BE0-8AEA580399E4}")&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;But by the time we get to 2020 (changed around 2018 I believe) it should be&lt;BR /&gt;???= ThisApplication.ApplicationAddIns.ItemById("{0AC6FD9&lt;FONT color="#FF0000"&gt;&lt;U&gt;&lt;EM&gt;&lt;STRONG&gt;5&lt;/STRONG&gt;&lt;/EM&gt;&lt;/U&gt;&lt;/FONT&gt;-2F4D-42CE-8BE0-8AEA580399E4}")&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Notice the chgange from 6 to 5 in the first block of numbers&lt;/P&gt;</description>
      <pubDate>Wed, 18 Dec 2019 16:03:17 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9209889#M108785</guid>
      <dc:creator>MattH_Work</dc:creator>
      <dc:date>2019-12-18T16:03:17Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9218343#M108786</link>
      <description>&lt;P&gt;Hi,&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I am using this code but i need to add stock number to pdf file name. But my Stock number is in the part or assembly document, not in drawing.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kindly ask for your help.&lt;/P&gt;</description>
      <pubDate>Tue, 24 Dec 2019 08:43:41 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9218343#M108786</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2019-12-24T08:43:41Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9218360#M108787</link>
      <description>&lt;P&gt;Got it.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslatorAddIn&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oContext&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslationContext&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oOptions&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;NameValueMap&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DataMedium&lt;/SPAN&gt;
	
	&lt;SPAN&gt;Try&lt;/SPAN&gt;
		&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ThisApp&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;
		&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;TransObj&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TransientObjects&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApp&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;
		&lt;SPAN&gt;oDoc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
		&lt;SPAN&gt;docFile&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ModelDocument&lt;/SPAN&gt;
		&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;FNamePos&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Long&lt;/SPAN&gt;
&lt;SPAN&gt;FNamePos&lt;/SPAN&gt; = &lt;SPAN&gt;InStrRev&lt;/SPAN&gt;(&lt;SPAN&gt;docFile&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;"\"&lt;/SPAN&gt;, -1)                        
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;docFName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; 
&lt;SPAN&gt;docFName&lt;/SPAN&gt; = &lt;SPAN&gt;Right&lt;/SPAN&gt;(&lt;SPAN&gt;docFile&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;Len&lt;/SPAN&gt;(&lt;SPAN&gt;docFile&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;) - &lt;SPAN&gt;FNamePos&lt;/SPAN&gt;) 
&lt;SPAN&gt;dim&lt;/SPAN&gt; &lt;SPAN&gt;SN&lt;/SPAN&gt; &lt;SPAN&gt;as&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;SN&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;docFName&lt;/SPAN&gt;, &lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Stock Number"&lt;/SPAN&gt;)

		&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; &amp;lt;&amp;gt; 12292 &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;'12292 = kDrawingDocument object&lt;/SPAN&gt;
			&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"This Rule must be run from within a Drawing Document."&lt;/SPAN&gt;, &lt;SPAN&gt;"Incorrect Document Type"&lt;/SPAN&gt;)
			&lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
		&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
		
		&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApp&lt;/SPAN&gt;.&lt;SPAN&gt;ApplicationAddIns&lt;/SPAN&gt;.&lt;SPAN&gt;ItemById&lt;/SPAN&gt;(&lt;SPAN&gt;"{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}"&lt;/SPAN&gt;)
		
		&lt;SPAN&gt;oContext&lt;/SPAN&gt; = &lt;SPAN&gt;TransObj&lt;/SPAN&gt;.&lt;SPAN&gt;CreateTranslationContext&lt;/SPAN&gt;
		&lt;SPAN&gt;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;IOMechanismEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kFileBrowseIOMechanism&lt;/SPAN&gt;
		&lt;SPAN&gt;oOptions&lt;/SPAN&gt; = &lt;SPAN&gt;TransObj&lt;/SPAN&gt;.&lt;SPAN&gt;CreateNameValueMap&lt;/SPAN&gt;
		&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt; = &lt;SPAN&gt;TransObj&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDataMedium&lt;/SPAN&gt;
		
		&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;.&lt;SPAN&gt;HasSaveCopyAsOptions&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
			&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"All_Color_AS_Black"&lt;/SPAN&gt;) = 0 &lt;SPAN&gt;' 0 = False, 1 = True&lt;/SPAN&gt;
			&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Remove_Line_Weights"&lt;/SPAN&gt;) = 1 &lt;SPAN&gt;' 0 = False, 1 = True&lt;/SPAN&gt;
			&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Vector_Resolution"&lt;/SPAN&gt;) = 400 &lt;SPAN&gt;' DPI&lt;/SPAN&gt;
			&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Sheet_Range"&lt;/SPAN&gt;) = &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;PrintRangeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kPrintAllSheets&lt;/SPAN&gt;
			&lt;SPAN&gt;'oOptions.Value("Custom_Begin_Sheet") = 2&lt;/SPAN&gt;
			&lt;SPAN&gt;'oOptions.Value("Custom_End_Sheet") = 4&lt;/SPAN&gt;
		&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
		
		&lt;SPAN&gt;'Set the PDF target file name&lt;/SPAN&gt;
		&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;) &amp;amp;&lt;SPAN&gt;"_"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;SN&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".pdf"&lt;/SPAN&gt;
	&lt;SPAN&gt;Catch&lt;/SPAN&gt;
		&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Error Getting Document Information"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCr&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"Is the current Document Saved?"&lt;/SPAN&gt;, &lt;SPAN&gt;"Document Error"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;'Publish document&lt;/SPAN&gt;

	&lt;SPAN&gt;Try&lt;/SPAN&gt;
		&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;)
	&lt;SPAN&gt;Catch&lt;/SPAN&gt;
		&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Unable to Save PDF"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCr&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"Is the file open or read only?"&lt;/SPAN&gt;, &lt;SPAN&gt;"Error Saving Document"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;/PRE&gt;</description>
      <pubDate>Tue, 24 Dec 2019 08:52:07 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9218360#M108787</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2019-12-24T08:52:07Z</dc:date>
    </item>
    <item>
      <title>Re: PDF iLogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9858019#M117903</link>
      <description>&lt;P&gt;But if we want to save each Sheet (in a sigle .idw) as a pdf with its Sheet name. How we do it?&lt;/P&gt;</description>
      <pubDate>Tue, 10 Nov 2020 08:40:02 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/pdf-ilogic/m-p/9858019#M117903</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2020-11-10T08:40:02Z</dc:date>
    </item>
  </channel>
</rss>

