1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Criar PDF em VB.NET

Discussão em 'Programação' iniciada por Ruben_Barbosa, 27 de Abril de 2009. (Respostas: 0; Visualizações: 2992)

  1. Ruben_Barbosa

    Ruben_Barbosa Power Member

    Código:
            ' Cria um arquivo PDF
            Dim relatorioPDF As New Report(New PdfFormatter)
            ' Define informações da fonte usadas
            Dim FontDef As New FontDef(relatorioPDF, "Courier")
            Dim FontProp As New FontPropMM(FontDef, 10)
            ' Cria uma nova página
            Dim PDFPage As New Page(relatorioPDF)
            ' Adiciona algumas linhas de texto
            PDFPage.AddCB_MM(60, New RepString(FontProp, vbCrLf & vbCrLf & vbCrLf & "Tipo de Sugestão: " & vbTab & ComboBox1.Text & vbCrLf & vbCrLf & "Email: " & vbTab & RichTextBox2.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Assunto da Sugestão: " & vbCrLf & vbCrLf & RichTextBox1.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Nome de Utilizador: " & vbTab & RichTextBox3.Text))
            Try
                'visualiza o PDF
                RT.ViewPDF(relatorioPDF, "Sugest.PDF")
                ' Salvando o documento na pasta bin do projeto
                relatorioPDF.Save("arquivo.pdf")
                MsgBox("Arquivo PDF salvo com sucesso.", MsgBoxStyle.Information)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
    É o meu codigo para cirar pdf mas em antes adicionei o reports as referencias.

    Mas esta porcaria da-me erro nao me visualiza o pdf :( mas guarda.me o documento em pdf e dps quando vou ao sitio onde grava ele diz.me que nao posso abrir o documento pk foi enviado em modo email ou anexo e nao foi decifrado correctamente.
     

Partilhar esta Página