Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve un objeto PrintableRect que representa el área de la hoja de impresora en la que se imprime la impresora especificada. Solo lectura.
Sintaxis
expresión. PrintableRect
expresión Variable que representa un objeto Printer .
Valor devuelto
PrintableRect
Observaciones
El rectángulo imprimible viene determinado por la impresora en función del tamaño de hoja especificado. El rectángulo imprimible de la hoja de impresora no debe confundirse con el área dentro de los márgenes de la página de publicación. El rectángulo imprimible puede ser mayor o menor que la página de publicación.
Nota:
Cuando el tamaño de la hoja de impresión y de la página de la publicación son idénticos, la página de la publicación se centra en la hoja de impresión y no se imprime ninguna de las marcas de la impresora, aunque estén seleccionadas.
Ejemplo
El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) muestra cómo utilizar la propiedad PrintableRect para obtener los límites del rectángulo imprimible para la hoja de impresión de la impresora activa.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.