Papiergröße und nichtbedruckbare Ränder ermitteln Dieses Beispiel zeigt, wie sich die Papiergröße, sowie die nichtbedruckbaren Ränder eines beliebigen Druckers ermitteln lassen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  23.484
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 30 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp zeigt, wie sich die nichtbedruckbaren Ränder eines beliebigen im System installierten Druckers ermitteln lassen.

' zunächst die benötigten API-Deklarationen
Private Declare Function GetDeviceCaps Lib "GDI32" ( _
  ByVal hDC As Long, _
  ByVal nIndex As Long) As Long

Die nachfolgende Prozedur ermittelt für das im ersten Parameter angegeben Druckerobjekt folgende Rand- und Papier-Einstellungen:

• pLeft: nichbedruckbarere Rand "links"
• pTop: nichtbedruckbarer Rand "oben"
• pWidth: Papierbreite insgesamt
• pHeight: Papiergröße insgesamt
• pRight: nichtbedruckbarer Rand "rechts"
• pBottom: nichtbedruckbarer Rand "unten"

• vbTwips (1)
• vbPoints (2)
• vbPixels (3)
• vbInches (5)
• vbMillimeters (6)
• vbCentimeters (7)

' Ermitteln der nichtbedruckbaren Ränder
Public Sub GetPhysicalPageSize(Printer As Object, _
  pLeft As Long, pTop As Long, _
  Optional pWidth As Long, Optional pHeight As Long, _
  Optional pRight As Long, Optional pBottom As Long, _
  Optional ByVal ScaleMode As Integer = vbMillimeters)
 
  Const PHYSICALWIDTH = 110
  Const PHYSICALHEIGHT = 111
  Const PHYSICALOFFSETX = 112
  Const PHYSICALOFFSETY = 113
 
  With Printer
    ' Papiergröße
    pWidth = .ScaleX(GetDeviceCaps(.hDC, _
      PHYSICALWIDTH), vbPixels, ScaleMode)
    pHeight = .ScaleY(GetDeviceCaps(.hDC, _
      PHYSICALHEIGHT), vbPixels, ScaleMode)
 
    ' nicht bedruckbare Ränder: Links und Oben
    pLeft = .ScaleX(GetDeviceCaps(.hDC, _
      PHYSICALOFFSETX), vbPixels, ScaleMode)
    pTop = .ScaleY(GetDeviceCaps(.hDC, _
      PHYSICALOFFSETY), vbPixels, ScaleMode)
 
    ' nicht bedruckbare Ränder: Rechts und unten
    pRight = pWidth - pLeft - _
      .ScaleX(.ScaleWidth, .ScaleMode, ScaleMode)
    pBottom = pHeight - pTop - _
      .ScaleY(.ScaleHeight, .ScaleMode, ScaleMode)
  End With
End Sub

Beispiel
Das nachfolgende Beispiel ermittelt die nichtbedruckbaren Ränder, sowie die eingestellte Papiergröße und zeigt die Werte in der Maßeinheit "Millimeter" in einer MsgBox an.

Dim pLeft As Long
Dim pTop As Long
Dim pRight As Long
Dim pBottom As Long
Dim pWidth As Long
Dim pHeight As Long
Dim sMsg As String
 
' Einstellungen des Standard-Druckers
GetPhysicalPageSize Printer, pLeft, pTop, _
  pWidth, pHeight, pRight, pBottom, vbMillimeters
 
sMsg = "Papiergröße: " & CStr(pWidth) & _
  " x " & CStr(pHeight) & "mm" & vbCrLf & _
  "Linker Rand: " & CStr(pLeft) & "mm" & vbCrLf & _
  "Rechter Rand: " & CStr(pRight) & "mm" & vbCrLf & _
  "Oberer Rand: " & CStr(pTop) & "mm" & vbCrLf & _
  "Unterer Rand: " & CStr(pBottom) & "mm"
 
MsgBox sMsg