none
Guardar o Exportar a un PDF de VB.Net RRS feed

  • Pregunta

  • Hola Buenos Días, como puedo pasar mi formulario las cajas de texto , label y contenido de mi Datagrid que esta en VB.NET 2010 a un PDF al momento de guardar me salga así como esta en la imagen.


    dantexito

    martes, 30 de mayo de 2017 18:06

Respuestas

  • Hola:
    Una opcion seria añadiendo un Microsoft.VisualBasic.PowerPacks.Printing.PrintForm1.

    Despues se le manda imprimir el form a una impresora virtual que genera documentos PDF (como por ejemplo PDFCreator)

        Private Sub lP_Imprimir()
            ' Establezca PrintAction para que aparezca un cuadro de diálogo Print Preview
            Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
            ' Imprima una copia del formulario
            Me.PrintForm1.Print()
        End Sub

    P.D.
    Espero que se entienda

    Un saludo desde Bilbo
    Carlos
    martes, 30 de mayo de 2017 19:45

Todas las respuestas

  • Hola:
    Una opcion seria añadiendo un Microsoft.VisualBasic.PowerPacks.Printing.PrintForm1.

    Despues se le manda imprimir el form a una impresora virtual que genera documentos PDF (como por ejemplo PDFCreator)

        Private Sub lP_Imprimir()
            ' Establezca PrintAction para que aparezca un cuadro de diálogo Print Preview
            Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
            ' Imprima una copia del formulario
            Me.PrintForm1.Print()
        End Sub

    P.D.
    Espero que se entienda

    Un saludo desde Bilbo
    Carlos
    martes, 30 de mayo de 2017 19:45
  • me sale error estoy usando vb.net 2010

    dantexito

    viernes, 2 de junio de 2017 17:43
  • hola que tal. Me sale un pdf  vacio. Como hago para enviar los datos del formulario. 

    Muchas gracias por su ayuda,


    adriana leguer

    lunes, 18 de diciembre de 2017 23:52
  • Por favor necesito ayuda. No se como mandar el formulario. Se crea un pdf pero vacio.

    Muchas gracias por su ayuda.


    adriana leguer

    martes, 19 de diciembre de 2017 0:02
  • mail   vbleguer@hotmail.com

    No puedo mandar el formulario. Me aparece un pdf vacio. Muchas gracia spor su ayuda.


    adriana leguer

    martes, 19 de diciembre de 2017 0:02
  • Puedes utilizar PrintDocument para el caso ya sea de copiar una imagen de tu form o generar un reporte, para pasarlo a PDF puedes asignar un nombre a lo que utilizaras como impresora (impresora virtual) en en caso que sea un screenshot de tu formulario, declaramos a nivel formulario un bitmap y un boolean

    Public copiar As Boolean = False
        Public bmp As Bitmap

    Arrastramos al formulario un PrintDocumnet1, en en evento click del botón de impresión colocamos;

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim gr As Graphics = Me.CreateGraphics
            Dim FSize As Size = Me.Size
            bmp = New Bitmap(FSize.Width, FSize.Height, gr)
            Dim Grabar As Graphics = Graphics.FromImage(bmp)
            Grabar.CopyFromScreen(Me.Location.X + 5, Me.Location.Y - 5, 0, 0, FSize)
            copiar = True
            PrintDocument1.PrinterSettings.PrinterName = "Microsoft Print To PDF"
            PrintDocument1.Print()
        End Sub

    Lo que está en negrita lo explico luego, En el evento PrintDocument_page tomamos el bitmap previamente capturado por el botón y lo colocamos en el documento, aclaro que no tomo la imagen del form dentro del este evento porque saldría la ventana emergente del dialalogo Print,

      If copiar Then
                e.Graphics.DrawImage(bmp, 0, 0, Me.Width, Me.Height)
            End If

    Dependiendo de tu resolución de pantalla deberás jugar con el recorte de la imagen (más tanto, menos tnato) para que te quede solo la imagen del formulario

    Vamos al tema de transformar en PDF, ve a Panel de control/Ver dispositivos e Impresoras,  allí encontraras las impresoras del equipo junto con variantes según tengas de impresión virtual para pdf, pueden ser CutePDF Winter de Adobe o como en el ejemplo Microsoft Print to PDF al caso copia el nombre y lo pegas como en el ejemplo

    PrintDocument1.PrinterSettings.PrinterName = "Microsoft Print To PDF"

    De esta manera de generará un pdf,

    Espero te sirva saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    • Propuesto como respuesta Pablo Rubio martes, 26 de diciembre de 2017 15:33
    martes, 19 de diciembre de 2017 19:50
  • Hola Adriana Leguer,

    Te invitamos a realizar tu consulta de manera independiente, de este modo es más fácil para los colaboradores identificar tu pregunta y brindarte la ayuda necesaria.

    Gracias por usar los foros de TechNet.

    Juan
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    viernes, 22 de diciembre de 2017 17:43
    Moderador
  • Hola DANI27

    De acuerdo a tu consulta, te recomiendo utilizar la DLL ITextSharp  que tiene la función de convertir de convertir documentos a pdf y que puede funcionar muy bien en tu sistema, el DLL es  gratruito.

    Quedamos al pendiente de cualquier actualización de tu parte.  

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    martes, 26 de diciembre de 2017 15:32