Printer.PrintableRect-Eigenschaft (Publisher)

Artikel
04/07/2023

Gibt ein PrintableRect-Objekt zurück, das den Bereich des Druckerblatts darstellt, in dem der angegebene Drucker druckt. Schreibgeschützt.

Syntax

Ausdruck. PrintableRect

Ausdruck Eine Variable, die ein Printer-Objekt darstellt.

Rückgabewert

PrintableRect

Hinweise

Das druckbare Rechteck wird vom Drucker anhand der angegebenen Papiergröße bestimmt. Das druckbare Rechteck des Papiers sollte nicht mit dem Bereich innerhalb der Ränder der Publikationsseite verwechselt werden. Es kann größer oder kleiner als die Publikationsseite sein.

Hinweis

Wenn die Papiergröße und die Größe der Publikationsseite identisch sind, wird die Publikationsseite mittig auf dem Papier ausgerichtet, und es werden keine Druckermarkierungen gedruckt, auch wenn diese ausgewählt sind.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA)-Makro veranschaulicht, wie mit der PrintableRect -Eigenschaft zum Abrufen der Grenzen des druckbaren Rechtecks für das Blatt Drucker des aktiven Druckers.

Public Sub PrintableRect_Example() 
 
 Dim pubInstalledPrinters As Publisher.InstalledPrinters 
 Dim pubApplication As Publisher.Application 
 Dim pubPrinter As Publisher.Printer 
 
 Set pubApplication = ThisDocument.Application 
 Set pubInstalledPrinters = pubApplication.InstalledPrinters 
 
 For Each pubPrinter In pubInstalledPrinters 
 If pubPrinter.IsActivePrinter Then 
 With pubPrinter.PrintableRect 
 Debug.Print "Printable area is " & PointsToInches(.Width) & " by " & PointsToInches(.Height) & " inches." 
 Debug.Print "Left Boundary: " & PointsToInches(.Left) & " inches (from left)." 
 Debug.Print "Right Boundary: " & PointsToInches(.Left + .Width) & " inches (from left)." 
 Debug.Print "Top Boundary: " & PointsToInches(.Top) & " inches(from top)." 
 Debug.Print "Bottom Boundary: " & PointsToInches(.Top + .Height) & " inches (from top)." 
 End With 
 End If 
 Next 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über