The first line that fails is "Dim fileDoc As New PdfDocument()".
- Code: Select all
Dim strText As String = File.ReadAllText(Dts.Variables("User::filePath").Value.ToString)
Dim filePDF As String = Dts.Variables("User::filePath").Value.ToString.Replace(".txt", ".pdf")
Dim fileDoc As New PdfDocument()
Dim fileSection As PdfSection = fileDoc.Sections.Add()
Dim filePage As PdfPageBase = fileSection.Pages.Add()
Dim fileFont As PdfFont = New PdfFont(PdfFontFamily.Helvetica, 11)
Dim fileFormat As PdfStringFormat = New PdfStringFormat()
fileFormat.LineSpacing = 20.0F
Dim fileBrush As PdfBrush = PdfBrushes.Black
Dim textWidget As PdfTextWidget = New PdfTextWidget(strText, fileFont, fileBrush)
Dim y As Single = 0
Dim textLayout As PdfTextLayout = New PdfTextLayout()
textLayout.Break = PdfLayoutBreakType.FitPage
textLayout.Layout = PdfLayoutType.Paginate
Dim textBounds As RectangleF = New RectangleF(New PointF(0, y), filePage.Canvas.ClientSize)
textWidget.StringFormat = fileFormat
textWidget.Draw(filePage, textBounds, textLayout)
fileDoc.SaveToFile(filePDF, Spire.Pdf.FileFormat.PDF)
Thanks in advance for any assistance here.