Private Function PDFFattura(ByVal pPathFIle As String) As Boolean

        Dim doc As iTextSharp.text.Document = Nothing

        Try

            'IMPOSTO I FONT
            Dim fontHELVETICA As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont(iTextSharp.text.pdf.BaseFont.HELVETICA, iTextSharp.text.pdf.BaseFont.CP1252, iTextSharp.text.pdf.BaseFont.NOT_EMBEDDED)

            doc = New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 15, 10, 25, 70)

            Dim writer As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, New FileStream(pPathFIle, FileMode.Create))
            doc.Open()

            Dim cb As iTextSharp.text.pdf.PdfContentByte = writer.DirectContent
            cb.SetLineWidth(0.3)
            cb.SetFontAndSize(fontHELVETICA, 8)


            'PrintStringaPDF(cb, 15, 30, "Scrivo nel PDF")

            cb.BeginText()
            cb.SetTextMatrix(12, 350)
            cb.ShowText("Scrivo nel PDF")
            cb.EndText()

            doc.Close()

            Return True

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical)
            doc.Close()
            Return False
        End Try


    End Function