Public Sub New(ByVal e As PrintPageEventArgs)
        '3.81 pixels per mm
        '96 pixels per inch
 
        '1/100 inch for printer
        'e.Graphics.PageUnit == GraphicsUnit.Display
        Dim hDC As IntPtr = e.Graphics.GetHdc()
 
'ergibt 150
        HardMarginLeft = GetDeviceCaps(hDC, PHYSICALOFFSETX)
'ergibt 150        
        HardMarginTop = GetDeviceCaps(hDC, PHYSICALOFFSETY)
 
        e.Graphics.ReleaseHdc(hDC)
 

' e.Graphics.DpiX und y = 600
        HardMarginLeft = CInt(HardMarginLeft * 100.0 / e.Graphics.DpiX)
        HardMarginTop = CInt(HardMarginTop * 100.0 / e.Graphics.DpiY)
 
        Bounds = e.MarginBounds
        Bounds.Offset(-HardMarginLeft, -HardMarginTop)
 
    End Sub