[SOLUCIONADO] iText y Author

[SPAWN3000]

Hola que tal,

Les comento que cree un servidor para generación de documentos PDF a partir de archivos excel y .DAT, el caso es que al final de todo el proyecto necesito que me setee el autor del documento.

Recorriendo un poco encontre este metodo, pero no lo reconoce...Y no encuentro el metodo desde .NET para setear el autor al finalizar la creación del archivo.

Código:

Hashtable.Add("Author", "Usuario")
stamp.setMoreInfo(info)

Copio el codigo completo de la funcion...

Código PHP:

  Private Function DrawPDF(ByVal tagName As String, ByVal dleft As Long, ByVal dtop As Long, _
                             ByVal dwidth As Long, ByVal dheight As Long, _
                             ByVal iPageNumber As Integer, _
                             ByVal iCountPages As Integer, _
                             ByVal Filename As String, ByVal FileTpl As String, ByVal FileBackup As String, _
                             ByVal ParamArray list() As String) As Boolean

        Try
            Dim strText As String = ""
            Dim outp As FileStream
            Dim reader As PdfReader
            Dim RangePag As String

            'On Error Resume Next
            If Not IO.File.Exists(FileBackup) Then
                File.Copy(Filename, FileBackup)     'Trabaja sobre un backup del archivo.
            End If

            reader = New PdfReader(FileBackup)  'Lento.
            RangePag = iPageNumber & "-" & iCountPages
            outp = New FileStream(FileTpl, FileMode.Create, FileAccess.Write)

            Dim stamp = New PdfStamper(reader, outp)
            Dim field = PdfFormField.CreateTextField(stamp.Writer, False, False, 50)
            'Dim Hashtable As New Hashtable()

            field.SetWidget(New iTextSharp.text.Rectangle(dleft, dtop, dwidth, dheight), PdfAnnotation.APPEARANCE_NORMAL)  'field.SetWidget(new iTextSharp.text.Rectangle(69, 695, 120, 710), PdfAnnotation.APPEARANCE_NORMAL); //HIGHLIGHT_INVERT
            '.............................................xi, yi, xf, yf
            '.............................................left, top, width, height

            'field.SetFieldFlags(PdfAnnotation.FLAGS_PRINT) 'FLAGS_PRINT //Visible but doesnt print
            field.Flags = PdfAnnotation.FLAGS_PRINT         '//use this for "Visible" 
            field.FieldName = Mid(tagName, 2, tagName.Length - 2)

            field.Name = tagName        'Pruebas
            field.UserName = tagName    'Pruebas

            'Intento de setar no funciona..
            'Hashtable.Add("Author", "Usuario")
            stamp.setMoreInfo(info)

            stamp.AddAnnotation(field, iPageNumber)
            stamp.Close()
            outp.Close()
            reader.Close()

            stamp = Nothing : outp = Nothing : reader = Nothing
            File.Delete(FileBackup)
            File.Copy(FileTpl, FileBackup)
        Catch ex As Exception
            Debug.Print(Err.Description)
            If ObjXml.ObjConfig(11).param.ToUpper = "TRUE" Then SysEvent.registerEvent("ERROR [DrawPDF]:" & Err.Description & "-" & ex.Message, 2, Err.Number)
            Err.Clear()
        End Try
    End Function 
   

Si alguien me puede regalar un link y indicarme que propiedad buscar....