Question

有谁知道如何取一个字符串并将其保存为PDF文件？

Dim str As String
'Put it into PDF Document
'Save to PDF DOcument

谢谢，

初级

Answer 1

您可以使用itextSharp Library创建pdf文档。我正在使用C＃：

你的字符串是

str="Hello World!"

使用资料库：

using iTextSharp.text;
using iTextSharp.text.pdf;

将文档创建为：

Document pdfDocument = new Document(PageSize.A4, 20f, 20f, 20f, 20f);

将文档写入磁盘：

PdfWriter.GetInstance(pdfDocument, new FileStream(filePathToDisk, FileMode.Create));

设置字符串：

Paragraph newParagraph = new Paragraph(str);

pdfDocument.Open();
pdfDocument.Add(newParagraph);
pdfDocument.Close();
pdfDocument.Dispose();

这将创建您的Pdf文件。

Answer 2

尝试使用Docotic.Pdf library（免责声明：我是该图书馆的开发人员之一）。

下面的示例展示了如何在指定的矩形中绘制单行文本或多行文本。

Imports System.Diagnostics
Imports System.Drawing

Imports BitMiracle.Docotic.Pdf

Namespace BitMiracle.Docotic.Pdf.Samples
    Public NotInheritable Class DrawText
        Public Shared Sub Main()
            Dim pathToFile As String = "DrawText.pdf"

            Using pdf As New PdfDocument()
                Dim canvas As PdfCanvas = pdf.Pages(0).Canvas

                canvas.DrawString(10, 50, "Hello, world!")

                Const longString As String = "Lorem ipsum dolor sit amet, consectetur adipisicing elit"
                canvas.DrawString(longString, New RectangleF(10, 70, 40, 150), PdfTextAlign.Left, PdfVerticalAlign.Top)
                canvas.DrawText(longString, New RectangleF(70, 70, 40, 150), PdfTextAlign.Left, PdfVerticalAlign.Top)

                pdf.Save(pathToFile)
            End Using

            Process.Start(pathToFile)
        End Sub
    End Class
End Namespace

VB.Net中的PDF文本

2 个答案: