Как установить единый шрифт в 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 'Comic Sans MS' font
p.TextSettings.FontFace.Custom("Comic Sans MS");
// 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, 33);
if (p != null)
{
string rtfPath = @"..\..\..\example.rtf";
string pdfPath = Path.ChangeExtension(rtfPath, ".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)
' How to set a single font for the whole PDF document.
' Before starting, we recommend to get a free 100-day key:
' https://sautinsoft.com/start-for-free/
' Apply the key here:
' SautinSoft.PdfMetamorphosis.SetLicense("...");
Dim p As New SautinSoft.PdfMetamorphosis()
' Let's make that the all text in PDF became in 'Comic Sans MS' font
p.TextSettings.FontFace.Custom("Comic Sans MS")
' 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, 33)
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 или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: