Propriedade Printer.PrintableRect (Publisher)

Retorna um objeto PrintableRect que representa a área da planilha de impressora na qual a impressora especificada imprime. Somente leitura.

Sintaxe

expressão. PrintableRect

Expressão Uma variável que representa um objeto Printer .

Valor de retorno

PrintableRect

Comentários

O retângulo imprimível é determinado pela impressora com base no tamanho da folha especificada. O retângulo imprimível da folha de impressora não deve ser confundido com a área dentro das margens da página de publicação. O retângulo imprimível pode ser maior ou menor que a página de publicação.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como usar a propriedade PrintableRect para obter os limites do retângulo imprimível a folha da impressora da impressora ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.