次の方法で共有

Printer.PrintableRect プロパティ (Publisher)

  • [アーティクル]

指定したプリンターが印刷するプリンター シート領域を表す 、PrintableRect オブジェクトを返します。 読み取り専用です。

構文

式。PrintableRect

式Printer オブジェクトを表す変数。

戻り値

PrintableRect

注釈

印刷領域は、指定された用紙サイズを基にプリンターによって決定されます。 印刷用紙の印刷領域を、文書ページの余白より内側の領域と取り違えないようにしてください。 印刷領域は文書ページより大きい場合もあれば小さい場合もあります。

注:

用紙サイズと文書ページ サイズが同じ場合、文書ページは用紙の中央に配置され、印刷用マークは選択しても印刷されません。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、 PrintableRect プロパティを使用して、アクティブなプリンターの用紙の印刷可能な四角形の境界を取得する方法を示しています。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。