'USAR PDF EXISTENTE
        Dim reader As PdfReader = New PdfReader(Application.StartupPath & "DocsEtiquetaCtps.pdf")
        Dim stamper As PdfStamper = New PdfStamper(reader, New FileStream(TxtArquivoPdf.Text, FileMode.Create))

        'CARREGA PDF EXISTENTE FICHA DE CADASTRO
        Dim total As Integer = reader.NumberOfPages() + 1
        For i As Integer = 1 To total - 1
            Dim over As PdfContentByte = stamper.GetOverContent(i)
            over.BeginText()
            Dim bf_times As BaseFont = BaseFont.CreateFont(BaseFont.COURIER, "Cp1252", False)
            over.SetFontAndSize(bf_times, 8)
            over.ShowTextAligned(PdfContentByte.ALIGN_LEFT, " " & tbxSalarioExt.Text & " ", 50, 626, 0)

            over.EndText()
        Next