Jump to content
Blackvelvet

PDF´s

Recommended Posts

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()

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
Blackvelvet

Boas,

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

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

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
Super Oliks

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

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.