How to set the font in a printdocument with the font dialog?

[mark]

For the following document print handler I would like to enable changing the
font with some external event. The font dialog returns a font, but I don't
understand how to equate that return with "myfont".. All my documentation
concerns the fontproperty of a control. But my printdocument has no font
property.

Dim myfont As New Font("Arial", 10)

Private Sub PrintDocument2_ PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing. Printing.PrintP ageEventArgs) Handles _
PrintDocument2. PrintPage
e.Graphics.Draw String("string" ,myfont, Brushes.Black, x , y)
End Sub

How is this done?
--
mark

[Herfried K. Wagner [MVP]]

"mark" <ma**@discussio ns.microsoft.co m> schrieb:

For the following document print handler I would like to enable changing
the
font with some external event. The font dialog returns a font, but I don't
understand how to equate that return with "myfont".. All my documentation
concerns the fontproperty of a control. But my printdocument has no font
property.
\\\
Private m_MyFont As New Font(...)
..
..
..
Dim f As New FontDialog()
f.Font = m_MyFont
If f.ShowDialog() = DialogResult.OK Then
m_MyFont = f.Font
End If
///
Private Sub PrintDocument2_ PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing. Printing.PrintP ageEventArgs) Handles _
PrintDocument2. PrintPage
e.Graphics.Draw String("string" ,myfont, Brushes.Black, x , y)
'myfont' -> 'm_MyFont'.
End Sub

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>