none
Impresión VB formulario largo RRS feed

  • Pregunta

  • Hola, tengo un problema que ya tengo tp que no puedo resolver. Sé que me pueden ayudar por favor.

    Tengo un formulario para capturar información y enviarlo a imprimir, al mandarlo a impresión como el formulario es más grande que la pantalla la impresión no sale completa. como puedo hacer para que independiente de mi resolución el formulario se imprima correctamente.

    el código que uso es:

           

            PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Left = 60
            PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Right = 60
            PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Top = 100

            PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable)

    pero no muestra en impresión todo.

    espero su apoyo, saludos y gracias.

    • Cambiado Enrique M. Montejo sábado, 21 de junio de 2014 10:25 Preguna sobre la impresión de objetos Windows Forms.
    lunes, 9 de junio de 2014 14:33

Todas las respuestas

  • Hola Almondk,

    Gracias por consultar en el foro, ¿Has usado esta  propiedad? También te comparto este enlace qué te puede ayudar, este otro expone una consulta similar. Esperamos tus comentarios al respecto. Estuvimos esperando noticias tuyas pero no recibimos ningún mensaje tuyo. Por el momento hemos marcado esta respuesta como respuesta a tu consulta, si tienes algún inconveniente solo desmarca la respuesta y déjanoslo saber.

    Saludos,

    Miguel      

    MSDN/TechNet Soporte Comunidades

    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.


    miércoles, 11 de junio de 2014 22:36
  • Hola una disculpa estuve intentando y la verdad no queda, chequé las referencias y no funciona. Gracias
    jueves, 19 de junio de 2014 17:31
  • Hola, ya lo resolví muchas gracias obviamente con la aportación de todos y un buen clavado. Lo que hago es ajustar mi formulario a lo alto de la resolución y para que imprima en toda la hoja lo escalo la altura, así quedó el código. Saludos y muchas gracias.

    Dim img As New Bitmap(Me.Width - 256, Me.Height)
            Dim printsize As Size = e.MarginBounds.Size
            Dim scale As Double = 1
            Dim scalehg As Double = 1.2
            Dim pos As New Size(30, 30)
            Me.DrawToBitmap(img, New Rectangle(Point.Empty, Me.Size))
            printsize.Width *= 2.5
            printsize.Height *= 1
            If img.Width > printsize.Width Then
                scale = printsize.Width / img.Width
                e.Graphics.ScaleTransform(scale, scale)
            End If
            If (img.Height * scalehg > printsize.Height) Then
                scale = printsize.Height / (img.Height * scale)
                e.Graphics.ScaleTransform(scale, scalehg)
            End If
            e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            e.Graphics.DrawImage(img, pos)
            
            img.Dispose()
    
    
    
        End Sub


    martes, 1 de julio de 2014 14:17