Visual Basic - Crear PDF o exportar en PDF

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 22
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por pablo (24 intervenciones) el 13/01/2020 18:37:13
Buenas tardes

Tengo un programa que abre un form y en el trae varios datos, texto y datagrid.
El cliente quiere que eso se exporte a pdf, yo use que mande a imprimir a la impresora pdf y se genere, pero el cliente quiere algo mas automático . Darle clik a un botón exportar o crear y que automaticamente se guarde el pdf.

Alguna idea como hacerlo?

Desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.799
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por Andres Leonardo (1553 intervenciones) el 13/01/2020 21:59:26
Espero que sea BV6

Claro que si ... podrias generar un objeto word y luego este guardarlo en formato PDF

si puedes sube un ejemplo de que tienes uina imagen del form .. y un ejemplo de lo que quueieres en el pdf....

si es vb6 con muchoi gusto te podria ayudar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por pablo (24 intervenciones) el 14/01/2020 13:48:20
Buenos dias

es en VB2010
Tengo un form que completa un datagrid y varios textbox y tiene un boton para exportarlo a pdf en tamaño A4.

Pero estoy anclado en esa parte sin poder crear el PDF.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por pablo (24 intervenciones) el 14/01/2020 15:13:15
Me pasaron esto, pero solo transforma en pdf el textbox1 y yo necesito varios textbox y un datagrdid

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim pdfDoc As New Document()
Dim pdf As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("Documento.pdf", FileMode.Create))
'Formtos para distintos tamaños de letras
Dim bf As iTextSharp.text.Font = FontFactory.GetFont("C:\Windows\Arial Monospaced for SAP", 9)
Dim bf1 As iTextSharp.text.Font = FontFactory.GetFont("C:\Windows\Arial Monospaced for SAP", 12)
Dim bf2 As iTextSharp.text.Font = FontFactory.GetFont("C:\Windows\Arial Monospaced for SAP", 5)
Dim fFont = New iTextSharp.text.Font(bf)
Dim fFont1 = New iTextSharp.text.Font(bf1)
Dim fFont2 = New iTextSharp.text.Font(bf2)
'abrimos el pdf para comenzar a escribir en el, al terminar cerramos
pdfDoc.Open()
pdfDoc.Add(New Paragraph("                                                                                  ", fFont1))
pdfDoc.Add(New Paragraph("                                                                                  ", fFont2))
pdfDoc.Add(New Paragraph("       " + TextBox1.Text, fFont1))
pdfDoc.Close()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por pablo (24 intervenciones) el 14/01/2020 16:49:56
Encontre un video que me ayudo mucho pero no me crea el pdf tira el mensaje que no se pudo crear .
te paso el codigo haber si lo sabes encontrar al error porque yo no doy pie con bola je

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Function Getcolumnaszise(ByVal dg As DataGridView) As Single()
    Dim values As Single() = New Single(dg.ColumnCount - 1) {}
    For i As Integer = 0 To dg.ColumnCount - 1
        values(i) = CSng(dg.Columns(i).Width)
    Next
 
    Return values
 
End Function
 
 
Public Sub exoportardatospdf(ByVal document As Document)
 
    Dim datatable As New PdfPTable(DataGridView1.ColumnCount)
    datatable.DefaultCell.Padding = 3
    Dim headerwidths As Single() = Getcolumnaszise(DataGridView1)
    datatable.SetWidths(headerwidths)
    datatable.WidthPercentage = 100
    datatable.DefaultCell.BorderWidth = 2
    datatable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
 
    Dim encabezado As New Paragraph("Reporte de viajes", New Font(Font.Name = "Tahoma", 20, Font.Bold))
 
    Dim texto As New Phrase("Reporte de viajes realizados:" + Now.Date(), New Font("Tahoma", 14, Font.Bold))
 
 
    For i As Integer = 0 To DataGridView1.ColumnCount - 1
        datatable.AddCell(DataGridView1.Columns(i).HeaderText)
    Next
 
    datatable.HeaderRows = 1
    datatable.DefaultCell.BorderWidth = 1
 
    For i As Integer = 0 To DataGridView1.RowCount - 1
        For j As Integer = 0 To DataGridView1.ColumnCount - 1
 
        Next
 
        datatable.CompleteRow()
    Next
 
    document.Add(encabezado)
    document.Add(texto)
    document.Add(datatable)
 
 
 
 
End Sub
 
 
 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Try
        Dim doc As New Document(PageSize.A4.Rotate(), 10, 10, 10, 10)
        Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + "\lista de viajes.pdf"
        Dim file As New FileStream(filename, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
        PdfWriter.GetInstance(doc, file)
        doc.Open()
        exoportardatospdf(doc)
        doc.Close()
        Process.Start(filename)
    Catch ex As Exception
        MessageBox.Show("No se puede crear el documento", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
    End Try
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Crear PDF o exportar en PDF

Publicado por pablo (24 intervenciones) el 14/01/2020 17:27:21
Y esta solucionado, la pife en unos puntos . Te aviso para que no te vuelvas loco buscando.
Muchas gracias .
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar