SALVAR DADOS DE TEXTBOX EM ARQUIVO PDF
Olá pessoal, eu tenho um formulario de cadastro em vb.net e gostaria de salvar estes dados em arquivo pdf, como eu faço para salvar os dados em pdf, pois sao varios textbox.
Obrigado.
Obrigado.
Olá pessoal, estou enviando o meu código para vocês analisarem e se puder dar uma luz pra mim.
Dim sc As New SaveFileDialog()
sc.InitialDirectory = [Ô]c:\[Ô]
sc.FileName = [Ô] [Ô]
sc.Filter = [Ô]pdf|*.pdf|Todos os Arquivos (*.*)|*.*[Ô]
sc.FilterIndex = 0
[ô] cria um novo documento PDF, cria uma nova página, define as variáveis gráficas e orientação da página
Dim document As PdfDocument = New PdfDocument
Dim page As PdfPage = document.AddPage
Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
page.Orientation = PageOrientation.Portrait
[ô] Abrimos o SaveFileDialog e verificamos se o usuário selecionou um arquivo.
If sc.ShowDialog() = Windows.Forms.DialogResult.OK Then
[ô] Gravamos o conteúdo do TextBox no arquivo selecionado.
System.IO.File.WriteAllText(sc.FileName, txtCaminhoXML.Text)
End If
Dim b As New StringBuilder()
Dim Vetor(10) As String
b.Append(txtCpf.Text & vbNewLine)
b.Append(txtRazaoSocial.Text & vbNewLine)
b.Append(txtEndereco.Text & vbNewLine)
b.Append(txtNumero.Text & vbNewLine)
b.Append(txtBairro.Text & vbNewLine)
b.Append(txtCidade.Text & vbNewLine)
b.Append(txtNota.Text & vbNewLine)
b.Append(txtData.Text & vbNewLine)
Vetor(10) = b.ToString()
[ô]IO.File.WriteAllText(sc.FileName, b.ToString())
Dim filename As String = Vetor(10).ToString()
[ô] salva o documento PDF
document.Save(filename)
Esse código dá o seguinte erro : Illegal characters in path. bem no código document.Save(filename)
Se alguem souber como eu consigo salvar os textbox em pdf e puder me ajudar eu agradeço.
Obrigado.
Dim sc As New SaveFileDialog()
sc.InitialDirectory = [Ô]c:\[Ô]
sc.FileName = [Ô] [Ô]
sc.Filter = [Ô]pdf|*.pdf|Todos os Arquivos (*.*)|*.*[Ô]
sc.FilterIndex = 0
[ô] cria um novo documento PDF, cria uma nova página, define as variáveis gráficas e orientação da página
Dim document As PdfDocument = New PdfDocument
Dim page As PdfPage = document.AddPage
Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
page.Orientation = PageOrientation.Portrait
[ô] Abrimos o SaveFileDialog e verificamos se o usuário selecionou um arquivo.
If sc.ShowDialog() = Windows.Forms.DialogResult.OK Then
[ô] Gravamos o conteúdo do TextBox no arquivo selecionado.
System.IO.File.WriteAllText(sc.FileName, txtCaminhoXML.Text)
End If
Dim b As New StringBuilder()
Dim Vetor(10) As String
b.Append(txtCpf.Text & vbNewLine)
b.Append(txtRazaoSocial.Text & vbNewLine)
b.Append(txtEndereco.Text & vbNewLine)
b.Append(txtNumero.Text & vbNewLine)
b.Append(txtBairro.Text & vbNewLine)
b.Append(txtCidade.Text & vbNewLine)
b.Append(txtNota.Text & vbNewLine)
b.Append(txtData.Text & vbNewLine)
Vetor(10) = b.ToString()
[ô]IO.File.WriteAllText(sc.FileName, b.ToString())
Dim filename As String = Vetor(10).ToString()
[ô] salva o documento PDF
document.Save(filename)
Esse código dá o seguinte erro : Illegal characters in path. bem no código document.Save(filename)
Se alguem souber como eu consigo salvar os textbox em pdf e puder me ajudar eu agradeço.
Obrigado.
Resolvi meu problema da seguinte forma, joguei os dados dos textbox para um listbox e salvei os dados para pdf.
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas