イラストレーターからPDFにする時のSaveOption Functionの場合

Private Function getPDFSaveOptions() As PDFSaveOptions
	Dim options As PDFSaveOptions = New PDFSaveOptionsClass
	With options
		options.Compatibility = AiPDFCompatibility.aiAcrobat4
		options.EmbedAllFonts = False
		options.GenerateThumbnails = False
		options.PreserveEditability = False
	End With
	Return options
End Function

Dim PDFOp As PDFSaveOptions = New PDFSaveOptionsClass
PDFOp = getPDFSaveOptions()