Creating & Printing Graphics

[Mark Davison]

Hi,

I hope someone can help, this has been driving me mad! I am trying to
generate a graphic on the fly. This is then shown in the browser in a "print
preview" type window. The user can click a "Print" button and all the
graphics are printed. The problem I have is that the text looks distorted.
If you try the example below you will see the problem. This example creates
a graphic, writes some text to it and then saves it to your disk as a full
size image. It is the size it is so that each image becomes a full page when
printed from within IE.

Can anyone help get the text looking ok? Essentially, I need the text to be
printed out prefectly.

Regards,

Mark
Imports System.Drawing
Imports System.Drawing. Printing
Imports System.drawing. Imaging
Imports System.IO

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
DrawPage(1)
End Sub

Private Sub DrawPage(ByVal PageNum As Integer)

Dim intW As Integer
Dim intH As Integer

intW = CInt(648)
intH = CInt(978)

Dim objBitMap As New Bitmap(intW, intH)
objBitMap.SetRe solution(600, 600)

Dim objGraphics As Graphics
objGraphics = Graphics.FromIm age(objBitMap)

objGraphics.Pag eUnit = GraphicsUnit.Pi xel
objGraphics.Tex tRenderingHint =
Text.TextRender ingHint.SingleB itPerPixelGridF it
objGraphics.Smo othingMode = Drawing2D.Smoot hingMode.Defaul t
objGraphics.Com positingQuality = Drawing2D.Compo sitingQuality.D efault

'Set the background color to white
objGraphics.Cle ar(Color.White)

Dim Pen As New Pen(Color.Black , 1)
Dim mFont As New Font("Arial", 14, FontStyle.Regul ar, GraphicsUnit.Pi xel)

objGraphics.Dra wRectangle(Pen, 1, 1, (intW) - 2, (intH) - 2)

objGraphics.Dra wString("Page " & PageNum & " : Line 1", mFont,
Brushes.Black, 5, 5)
Dim fp As New
FileStream("c:\ MDPageImages\AC F24E8D5F884E1E8 AD359254D95057A \Page" & PageNum
& ".png", FileMode.OpenOr Create)
objBitMap.Save( fp, ImageFormat.Png )
fp.Close()

End Sub