Print text to a form

Hi-

Relief is on the way! Stay tuned for an anouncement that is going to make life much better for PrintForm scenarios... very soon.

Best,

Paul Yuknewicz

Lead Program Manager
Visual Basic

PaulYuk_MS at 2007-8-31 >

This particular person did not ask about printing a form, but rather how to print text to a form. I think that is a different question.

If the question *was* how to print a form, here is how I do it:

Private Sub ProcessPrintPage(ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Dim r As Rectangle

Dim frmToPrint As Form = Me.ActiveMdiChild

' Confirm that a form has been defined for printing

If frmToPrint Is Nothing Then

e.Cancel = True

Throw New InvalidOperationException("There is no active MDI child")

End If

' Define a (0,0) based rectangle for the image

r = New Rectangle(0, 0, frmToPrint.Width, frmToPrint.Height)

' Create the bitmap of the image

Dim b As New Bitmap(frmToPrint.Width, frmToPrint.Height)

frmToPrint.DrawToBitmap(b, r)

' Draw the bitmap to the printdocument scaled

' to the printer's margins, but keeping the

' same aspect ratio

Dim iNewHeight As Integer, iNewWidth As Integer

Dim dPrinterAspectRatio As Double = e.MarginBounds.Height / e.MarginBounds.Width

Dim dFormAspectRatio As Double = frmToPrint.Height / frmToPrint.Width

If dFormAspectRatio > dPrinterAspectRatio Then

' Form has bigger height, so set the height to max and scale

iNewWidth = CType(e.MarginBounds.Height / dFormAspectRatio, Integer)

Else

' Form has a bigger width, so set the width to max and scale

iNewHeight = CType(e.MarginBounds.Width * dFormAspectRatio, Integer)

iNewWidth = e.MarginBounds.Width

End If

' Define a new rectangle for the scaled image

r = New Rectangle(e.MarginBounds.X, e.MarginBounds.Y, iNewWidth, iNewHeight)

e.Graphics.DrawImage(b, r)

End Sub

P.S. This works in VS 2005...

DeborahK at 2007-8-31 >