Option Strict On
 
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices
 
Public Class PrinterBounds
 
    <DllImport("gdi32.dll")> Private Shared Function GetDeviceCaps(ByVal hdc _
      As IntPtr, ByVal capindex As Int32) As Integer
    End Function
 
    Private Const PHYSICALOFFSETX As Integer = 112
    Private Const PHYSICALOFFSETY As Integer = 113
 
    Public Bounds As Rectangle
    Public HardMarginLeft As Integer
    Public HardMarginTop As Integer
 
    Public Sub New(ByVal e As PrintPageEventArgs)
 
        Dim hDC As IntPtr = e.Graphics.GetHdc()
 
        HardMarginLeft = GetDeviceCaps(hDC, PHYSICALOFFSETX)
        HardMarginTop = GetDeviceCaps(hDC, PHYSICALOFFSETY)
 
        e.Graphics.ReleaseHdc(hDC)
 
        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
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist