Mostrar Mensajes
1
C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Re:Ayuda Impresion VB
« en: 01 de Julio 2014, 16:09 »
Hola muchas gracias, claro que me ayudo muchísimo. pero terminé haciéndolo de otra forma primero ajusto mi formulario a lo alto de la resolución y para que me imprima en toda la hoja escalo la altura. Les envío mi código claro que hubo aportaciones de muchos sitios pero así quedo al final. gracias.
Código: [Seleccionar]
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
RSS