printing graphics at the exact place and size

[mickeymoose]

I would like to print a 6.5 X 9 rectangle on 8.5 X 11 paper using vb.net. I need it to be exactly 1 inch from the top and 1 inch from the left (and by default 1 inch from the right and the bottom. When I print to my HP printer, The left edge is only .9 in while the right is .97 inches from the right and the rectangles dimensions are greater than those desired. The results are different for different printers but never accurate. At Times the errors have changed and I am careful to load the paper properly.

Here is an example of the code I use. Can someone please give me some guidance as to what I might be doing wrong?

CODE SAMPLE:

Imports System.Drawing.Printing
Public Class Form1
    Private PrinterName As String
    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        With PrintDialog1
            With PrintDialog1
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
 
                    PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
                    PrinterName = PrintDialog1.PrinterSettings.PrinterName
                    PrintDocument1.Print()
                End If
            End With
        End With
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
        Dim PrintAreaHeight, PrintAreaWidth, marginLeft, marginTop As Int32
        Dim Left As Single
        Dim Top As Single
        Dim PrinterNameString As String = PrinterName
        Dim StringSize As SizeF
        e.Graphics.PageScale = 1.0F
        PrinterNameString += vbCrLf & Now.Date.ToString
        With PrintDocument1.DefaultPageSettings
            .Landscape = False
            PrintAreaHeight = .PaperSize.Height
            PrintAreaWidth = .PaperSize.Width
            marginLeft = 0 ' .Margins.Left
            marginTop = 0 '.Margins.Top
        End With
        Left = 200 '2 inch
        Top = 200 '2 inch
        Dim ulCorner As New PointF((Left), Top) ' 2 inches from left
        Dim urCorner As New PointF(Left + 450, Top) ' 4.5 inches wide
        Dim llCorner As New PointF((Left), ulCorner.Y + PrintAreaHeight - 2 * Top) ' 9 inches tall
 
        Dim destPara As PointF() = {ulCorner, urCorner, llCorner}
        Dim s As String
        Dim f As New Font("Arial", 32, FontStyle.Regular, GraphicsUnit.Document)
 
        e.Graphics.DrawLine(Pens.Blue, urCorner.X, urCorner.Y, ulCorner.X, ulCorner.Y)
        e.Graphics.DrawLine(Pens.Blue, ulCorner.X, ulCorner.Y, llCorner.X, llCorner.Y)
        e.Graphics.DrawLine(Pens.Blue, llCorner.X, llCorner.Y, urCorner.X, llCorner.Y)
        e.Graphics.DrawLine(Pens.Blue, urCorner.X, llCorner.Y, urCorner.X, urCorner.Y)
        s = "Left: " & (Left / 100).ToString & " inch"
        e.Graphics.DrawString(s, f, Brushes.Black, CSng(Left + 100), CSng(8 + PrintAreaHeight / 2))
        s = "Top: " & (Top / 100).ToString & " inch"
        e.Graphics.DrawString(s, f, Brushes.Black, CSng(PrintAreaWidth / 2), (Top + 100))
        s = "Width: " & 11 - 2 * Left & " inches"
        e.Graphics.DrawString(s, f, Brushes.Black, CSng(PrintAreaWidth / 2), (Top + 300))
 
        s = PrinterNameString
        StringSize = e.Graphics.MeasureString(s, f, New SizeF(PrintAreaWidth, PrintAreaHeight), fmt)
        e.Graphics.DrawString(s, f, Brushes.Black, (PrintAreaWidth - StringSize.Width) / 2, (PrintAreaHeight - StringSize.Height) / 2)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintDialog1.PrinterSettings.DefaultPageSettings.Landscape = False
        PrintDialog1.PrinterSettings.DefaultPageSettings.Margins = New Margins(0, 0, 0, 0)
        PrintDialog1.PrinterSettings.DefaultPageSettings.PaperSize = New PaperSize("A4", 850, 1100)
    End Sub
End Class