Как встроить все шрифты в файл PDF на C# и .NET
Полный код
GitHubusing System;
using System.IO;
using System.Collections;
namespace Sample
{
class Test
{
static void Main(string[] args)
{
// Before starting, we recommend to get a free 100-day key:
// https://sautinsoft.com/start-for-free/
// Apply the key here:
// SautinSoft.PdfMetamorphosis.SetLicense("...");
// How to set a single font for the whole PDF document.
SautinSoft.PdfMetamorphosis p = new SautinSoft.PdfMetamorphosis();
// Let's make that the all text in PDF became in 'Courier New' font
p.TextSettings.FontFace.Custom("Courier New");
// Set also a single font size 10
p.TextSettings.FontSize = 10;
// Set also single text color
p.TextSettings.FontColor = System.Drawing.Color.FromArgb(33, 150, 150);
// Embed all fonts inside PDF.
p.PdfSettings.EmbedAllFonts = true;
if (p != null)
{
string rtfPath = @"..\..\..\example.rtf";
string pdfPath = @"..\..\..\example.pdf";
int i = p.RtfToPdfConvertFile(rtfPath,pdfPath);
if (i !=0)
{
System.Console.WriteLine("An error occurred during converting RTF to PDF!");
}
else
{
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(pdfPath) { UseShellExecute = true });
}
}
}
}
}
Namespace Sample
Friend Class Test
Shared Sub Main(ByVal args() As String)
' Before starting, we recommend to get a free 100-day key:
' https://sautinsoft.com/start-for-free/
' Apply the key here:
' SautinSoft.PdfMetamorphosis.SetLicense("...");
' How to set a single font for the whole PDF document.
Dim p As New SautinSoft.PdfMetamorphosis()
' Let's make that the all text in PDF became in 'Courier New' font
p.TextSettings.FontFace.Custom("Courier New")
' Set also a single font size 10
p.TextSettings.FontSize = 10
' Set also single text color
p.TextSettings.FontColor = System.Drawing.Color.FromArgb(33, 150, 150)
' Embed all fonts inside PDF.
p.PdfSettings.EmbedAllFonts = True
If p IsNot Nothing Then
Dim rtfPath As String = "..\..\..\example.rtf"
Dim pdfPath As String = "..\..\..\test.pdf"
Dim i As Integer = p.RtfToPdfConvertFile(rtfPath, pdfPath)
If i <> 0 Then
System.Console.WriteLine("An error occurred during converting RTF to PDF!")
Else
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(pdfPath) With {.UseShellExecute = True})
End If
End If
End Sub
End Class
End NamespaceЕсли вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.ru или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: