Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie un objet PrintableRect qui représente la zone de feuille d’impression dans laquelle l’imprimante spécifiée est imprimée. En lecture seule.
Syntaxe
expression. PrintableRect
expression Variable qui représente un objet Printer .
Valeur renvoyée
PrintableRect
Remarques
Le rectangle d'impression est déterminé par l'imprimante, en fonction de la taille de feuille spécifiée. Le rectangle imprimable de la feuille d’imprimante ne doit pas être confondu avec la zone située dans les marges de la page de composition. Le rectangle imprimable peut être plus grand ou plus petit que la page de composition.
Remarque
Lorsque la taille de la feuille d’imprimante est la même que celle de la page de la composition, la page de la composition est centrée en fonction de la feuille d’imprimante, et pas des repères d’imprimante, même s’ils sont sélectionnés.
Exemple
Le suivant Microsoft Visual Basic pour Applications (VBA) montre comment utiliser la propriété PrintableRect pour obtenir les limites du rectangle imprimable pour la feuille d'imprimante de l'imprimante active.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.