![]() ![]() ' We HAVE to do this to register the font to the system Dim cFonts As UInteger = 0ĪddFontMemResourceEx(data, CUInt(fontData.Length), IntPtr.Zero, cFonts)Įnd Sub Public Shared Sub InstallFontFiles( ByVal fontFileNameList As List( Of String))ĭim assemblyName As String = " MyAssembly.ReportLib. Marshal.Copy(fontData, 0, data, CInt(fontStream.Length)) ' copy the bytes to the unsafe memory block ' fetch the font program from the resourceįontStream.Read(fontData, 0, CInt(fontStream.Length)) MReasonForFailure = String.Format( " The font ' If FontUtil.FontExists(item) = False Then Private Function CheckForRequiredFonts( Optional ByVal manageFonts As Boolean = False) As Boolean Dim hasRequiredFonts As Boolean = True If manageFonts ThenįontUtil.RemoveFontFiles(ConflictingFontFileNames)Įnd If For Each item As String In RequiredFontNames RequiredFontFileNames.Add( " GOTHMZIT.TTF")ĬonflictingFontFileNames.Add( " Gotham-Book.otf")ĬonflictingFontFileNames.Add( " Gotham-BookItalic.otf")ĬonflictingFontFileNames.Add( " Gotham-Light.otf")ĬonflictingFontFileNames.Add( " Gotham-LightItalic.otf")ĬonflictingFontFileNames.Add( " Gotham-Medium.otf")ĬonflictingFontFileNames.Add( " Gotham-MediumItalic.otf") RequiredFontFileNames.Add( " GOTHMMIT.TTF") RequiredFontFileNames.Add( " GOTHMMED.TTF") RequiredFontFileNames.Add( " GOTHMLIT.TTF") RequiredFontFileNames.Add( " GOTHMLIG.TTF") RequiredFontFileNames.Add( " GOTHMBOK.TTF") Upload your Word document via drag and drop, browsing, a cloud storage or by giving a link. All you need is a stable internet connection and your file. Copy Code Dim RequiredFontNames As New List( Of String)ĭim RequiredFontFileNames As New List( Of String)ĭim ConflictingFontFileNames As New List( Of String) Using PDF2Go to convert your Word document to PDF is fast, easy and instant.
0 Comments
Leave a Reply. |