Конвертирование изображения в файл PDF с добавлением верхнего и нижнего колонтитулов на C# и .NET
Полный код
using System;
using System.IO;
using SautinSoft.PdfVision;
namespace Sample
{
class Program
{
static void Main(string[] args)
{
PageHeaderAndFooter();
}
public static void PageHeaderAndFooter()
{
string inpFile = Path.GetFullPath(@"..\..\..\image-png.png");
string outFile = new FileInfo(@"Result.pdf").FullName;
// Before starting, we recommend to get a free 100-day key:
// https://sautinsoft.com/start-for-free/
// Apply the key here:
// SautinSoft.PdfVision.SetLicense("...");
PdfVision v = new PdfVision();
ImageToPdfOptions options = new ImageToPdfOptions();
options.PageSetup.PaperType = PaperType.A3;
options.PageSetup.Orientation = Orientation.Landscape;
options.PageSetup.PageMargins.Left = LengthUnitConverter.ToPoint(10f, LengthUnit.Millimeter);
options.PageSetup.PageMargins.Top = LengthUnitConverter.ToPoint(20f, LengthUnit.Millimeter);
options.PageSetup.PageMargins.Right = LengthUnitConverter.ToPoint(10f, LengthUnit.Millimeter);
options.PageSetup.PageMargins.Bottom = LengthUnitConverter.ToPoint(30f, LengthUnit.Millimeter);
// You can add any single-line text into top and bottom of the pages using these properties:
options.PageNumbering.PageNumbersInTop = "This is a simple document Header!";
options.PageNumbering.Aligment = HorizontalAlignment.Left;
options.PageNumbering.FontFamily = PdfStandardFonts.HelveticaOblique;
options.PageNumbering.FontSize = 28;
try
{
v.ConvertImageToPdf(new string[] {inpFile}, outFile, options);
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFile) { UseShellExecute = true });
}
catch (Exception ex)
{
Console.WriteLine($"Error: {ex.Message}");
Console.ReadLine();
}
}
}
}
Imports System
Imports System.IO
Imports SautinSoft.PdfVision
Namespace Sample
Friend Class Program
Shared Sub Main(args As String())
PageHeaderAndFooter()
End Sub
Public Shared Sub PageHeaderAndFooter()
Dim inpFile As String = Path.GetFullPath("../../../image-png.png")
Dim outFile As String = New FileInfo("Result.pdf").FullName
' Before starting, we recommend to get a free 100-day key:
' https://sautinsoft.com/start-for-free/
' Apply the key here:
' SautinSoft.PdfVision.SetLicense("...")
Dim v As New PdfVision()
Dim options As New ImageToPdfOptions()
options.PageSetup.PaperType = PaperType.A3
options.PageSetup.Orientation = Orientation.Landscape
options.PageSetup.PageMargins.Left = LengthUnitConverter.ToPoint(10.0F, LengthUnit.Millimeter)
options.PageSetup.PageMargins.Top = LengthUnitConverter.ToPoint(20.0F, LengthUnit.Millimeter)
options.PageSetup.PageMargins.Right = LengthUnitConverter.ToPoint(10.0F, LengthUnit.Millimeter)
options.PageSetup.PageMargins.Bottom = LengthUnitConverter.ToPoint(30.0F, LengthUnit.Millimeter)
' You can add any single-line text into top and bottom of the pages using these properties:
options.PageNumbering.PageNumbersInTop = "This is a simple document Header!"
options.PageNumbering.Aligment = HorizontalAlignment.Left
options.PageNumbering.FontFamily = PdfStandardFonts.HelveticaOblique
options.PageNumbering.FontSize = 28
Try
v.ConvertImageToPdf({inpFile}, outFile, options)
Process.Start(New ProcessStartInfo(outFile) With {.UseShellExecute = True})
Catch ex As Exception
Console.WriteLine($"Error: {ex.Message}")
Console.ReadLine()
End Try
End Sub
End Class
End Namespace
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.ru или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: