PDF´s

[Blackvelvet]

Boas a todos.

Estou a criar uma especie de relatorio, na aplicação.

O unico problema é que quando gravo,não grava.

Este é o codigo:

 
  Dim doc As New Document
        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"
        saveFileDialog1.Title = "Save File"
        saveFileDialog1.ShowDialog()

        PdfWriter.GetInstance(doc, New FileStream("Sample.pdf", FileMode.Create))
        doc.Open()
        doc.Add(New Paragraph(txtFatura.Text))
        doc.Add(New Paragraph(txtFornecedor.Text))

        doc.Close()

[Super Oliks]

Não intendi porque declaro dentro da função "Dim".

Dim saveFileDialog1 As New SaveFileDialog() 'não a necessidade pois já a o reconhecimento do programa por SaveFileDialog1

Tente isso, deve resolver...

 
            SaveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"
            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, txt.Text) 'isso pode ser mudado de acordo com o que você queria
            FileClose(1) 
If SaceFileDialog1.OK Then
         Select Case MessageBox.Show("Deseja criar um noco documento?", MessageBoxButtons.YesNo)
Case Windows.Forms.DialogResult.Yes
PdfWriter.GetInstance(doc, New FileStream("Sample.pdf", FileMode.Create))
        doc.Open()
        doc.Add(New Paragraph(txtFatura.Text))
        doc.Add(New Paragraph(txtFornecedor.Text))
        doc.Close() 'não intendi porque fechar o documento logo após criar um novo ?

Case Windows.Forms.DialogResult.No
Txt.Focus()

       End Select

        End If

Coloca isso dentro de um button

[Blackvelvet]

Boas,

So não percebo porque não me abre o ficheiro.

Diaz que pode estar danificado....mas se foi criado como novo!!!!

[Blackvelvet]

Nada,mas se estiver assim:

 Dim doc As New Document   
        PdfWriter.GetInstance(doc, New FileStream("Factura.pdf ", FileMode.Create))
        doc.Open()
        doc.Add(New Paragraph(txtFatura.Text))
        doc.Add(New Paragraph(txtFornecedor.Text))
        doc.Close()

Funciona bem,mas eu gostava de poder dar outro nome ao ficheiro em vez de sempre "Factura.pdf "

Dá para poder concatenar com o txtfactura?

Como se pode fazer isso?

[Super Oliks]

quando for salvar o vosso documento, basta botar outro nome, pois não !!?  😄

"*.pdf" 'assim toda vez que for gravar um documento será obrigado a por um nome.

[Blackvelvet]

😄

Gracias amigo.....

Bom fim de semana