C#/VB.NET: Erstellen Sie ein PDF-Dokument

PM> Install-Package Spire.PDF

using Spire.Pdf;
    using Spire.Pdf.Graphics;
    using System.Drawing;
    
    namespace CreatePdfDocument
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument object
                PdfDocument doc = new PdfDocument();
    
                //Add a page
                PdfPageBase page = doc.Pages.Add(PdfPageSize.A4, new PdfMargins(35f));
    
                //Specify heading text
                String titleText = "What is MySQL";
    
                //Create solid brushes
                PdfSolidBrush titleBrush = new PdfSolidBrush(new PdfRGBColor(Color.Blue));
                PdfSolidBrush paraBrush = new PdfSolidBrush(new PdfRGBColor(Color.Black));
    
                //Create true type fonts
                PdfTrueTypeFont titleFont = new PdfTrueTypeFont(new Font("Times New Roman", 18f, FontStyle.Bold),true);
                PdfTrueTypeFont paraFont = new PdfTrueTypeFont(new Font("Times New Roman", 12f, FontStyle.Regular), true);
    
                //Set the text alignment via PdfStringFormat class
                PdfStringFormat format = new PdfStringFormat();
                format.Alignment = PdfTextAlignment.Center;
    
                //Draw heading on the center of the page
                page.Canvas.DrawString(titleText, titleFont, titleBrush, page.Canvas.ClientSize.Width / 2, 20, format);
    
                //Get paragraph content from a .txt file
                string paraText = File.ReadAllText("C:\\Users\\Administrator\\Desktop\\content.txt");
    
                //Create a PdfTextWidget object to hold the paragrah content
                PdfTextWidget widget = new PdfTextWidget(paraText, paraFont, paraBrush);
    
                //Create a rectangle where the paragraph content will be placed
                RectangleF rect = new RectangleF(0, 50, page.Canvas.ClientSize.Width, page.Canvas.ClientSize.Height);
    
                //Set the PdfLayoutType to Paginate to make the content paginated automatically
                PdfTextLayout layout = new PdfTextLayout();
                layout.Layout = PdfLayoutType.Paginate;
    
                //Draw the widget on the page
                widget.Draw(page, rect, layout);
    
                //Save to file
                doc.SaveToFile("CreatePdfDocument.pdf");
                doc.Dispose();
            }
        }
    }

Imports Spire.Pdf
    Imports Spire.Pdf.Graphics
    Imports System.Drawing
    
    Namespace CreatePdfDocument
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a PdfDocument object
                Dim doc As PdfDocument =  New PdfDocument()
    
                'Add a page
                Dim page As PdfPageBase =  doc.Pages.Add(PdfPageSize.A4,New PdfMargins(35f))
    
                'Specify heading text
                Dim titleText As String =  "What is MySQL"
    
                'Create solid brushes
                Dim titleBrush As PdfSolidBrush =  New PdfSolidBrush(New PdfRGBColor(Color.Blue))
                Dim paraBrush As PdfSolidBrush =  New PdfSolidBrush(New PdfRGBColor(Color.Black))
    
                'Create true type fonts
                Dim titleFont As PdfTrueTypeFont =  New PdfTrueTypeFont(New Font("Times New Roman",18f,FontStyle.Bold),True)
                Dim paraFont As PdfTrueTypeFont =  New PdfTrueTypeFont(New Font("Times New Roman",12f,FontStyle.Regular),True)
    
                'Set the text alignment via PdfStringFormat class
                Dim format As PdfStringFormat =  New PdfStringFormat()
                format.Alignment = PdfTextAlignment.Center
    
                'Draw heading on the center of the page
                page.Canvas.DrawString(titleText, titleFont, titleBrush, page.Canvas.ClientSize.Width / 2, 20, format)
    
                'Get paragraph content from a .txt file
                Dim paraText As String =  File.ReadAllText("C:\\Users\\Administrator\\Desktop\\content.txt")
    
                'Create a PdfTextWidget object to hold the paragrah content
                Dim widget As PdfTextWidget =  New PdfTextWidget(paraText,paraFont,paraBrush)
    
                'Create a rectangle where the paragraph content will be placed
                Dim rect As RectangleF =  New RectangleF(0,50,page.Canvas.ClientSize.Width,page.Canvas.ClientSize.Height)
    
                'Set the PdfLayoutType to Paginate to make the content paginated automatically
                Dim layout As PdfTextLayout =  New PdfTextLayout()
                lay.Layout = PdfLayoutType.Paginate
    
                'Draw the widget on the page
                widget.Draw(page, rect, layout)
    
                'Save to file
                doc.SaveToFile("CreatePdfDocument.pdf")
                doc.Dispose()
            End Sub
        End Class
    End Namespace