#visual-studio
Вопрос:
Добрый вечер, друзья,
У меня проблема в строке (Dim pw Как iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.getInstance (doc, fs))
ошибка в том, что:
System.NullReferenceException HResult = 0x80004003 Сообщение = Ссылка на объект не задана в качестве экземпляра объекта. Источник = Трассировка стека itextsharp: в iTextSharp.text.Версии.getInstance ()
Информация:
разработано с помощью visual studio 2019
Библиотека: 5.5.13.2
Структура: 4.5.1
В чем может быть проблема?
буду признателен за любую помощь.
Imports System.IO Imports iTextSharp.text Imports iTextSharp.text.pdf Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Dim rutapdfGenerado As String = "c:prueba1.pdf" If File.Exists(rutapdfGenerado) Then File.Delete(rutapdfGenerado) End If Dim doc As iTextSharp.text.Document = New Document(PageSize.LETTER, 5, 5, 7, 7) Dim fs As FileStream = New FileStream(rutapdfGenerado, System.IO.FileMode.OpenOrCreate) Dim pw As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs) doc.Open() doc.AddAuthor("") doc.AddTitle("") Dim standarFont As iTextSharp.text.Font = New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.HELVETICA, 8, iTextSharp.text.Font.NORMAL, BaseColor.BLACK) doc.Add(New Paragraph("Titulo del documento")) doc.Add(Chunk.NEWLINE) Dim tbEjemplo As PdfPTable = New PdfPTable(3) tbEjemplo.WidthPercentage = 100 Dim clNombre As PdfPCell = New PdfPCell(New Phrase("Nombre", standarFont)) clNombre.BorderWidth = 0 clNombre.BorderWidthBottom = 0.75F Dim clgrado As PdfPCell = New PdfPCell(New Phrase("grado", standarFont)) clNombre.BorderWidth = 0 clNombre.BorderWidthBottom = 0.75F Dim cledad As PdfPCell = New PdfPCell(New Phrase("edad", standarFont)) clNombre.BorderWidth = 0 clNombre.BorderWidthBottom = 0.75F tbEjemplo.AddCell(clNombre) tbEjemplo.AddCell(clgrado) tbEjemplo.AddCell(cledad) clNombre = New PdfPCell(New Phrase("nom", standarFont)) clNombre.BorderWidth = 0 clgrado = New PdfPCell(New Phrase("1", standarFont)) clgrado.BorderWidth = 0 cledad = New PdfPCell(New Phrase("12", standarFont)) cledad.BorderWidth = 0 tbEjemplo.AddCell(clNombre) tbEjemplo.AddCell(clgrado) tbEjemplo.AddCell(cledad) doc.Add(tbEjemplo) doc.Close() pw.Close() MessageBox.Show("generado") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class