ちょっと興味が湧いて、やって見たのでご参考に。
もし度々こういうケースがあるなら
ワードVBAで、標準モジュールに下記をコピペする。
10x20cmの「左右逆転Lの字」枠を書いている。
L判のCMサイズを調べて、下記コードの10と20に置き換えれば
線は引けると思う。
印刷してみると、大きさ(長さ)の面ではぴったりで目的通りなんですが、うえ、左の余白の関係で(ゼロにできず)2辺を紙の上端と左端に合わすことができなかった。
4辺切り落とす覚悟なら使えるかもしれない。
Sub test07()
x = Application.CentimetersToPoints(10)
y = Application.CentimetersToPoints(20)
ActiveDocument.Shapes.AddLine(x, 0, x, y).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 255, 0)
ActiveDocument.Shapes.AddLine(0, y, x, y).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 255, 0)
End Sub
ワードのVBAなんで、手探りでやっとという程度ですのでよろしく。
お礼
すばらしいです! x=13,y=8にしたらばっちり印刷できました! マクロという手があったんですね^^ ありがとうございました!