Access レポートの直線の長さについて

質問

os: windows7
バージョン：Access2013
レポートに配した直線のコントロールの長さを調整する方法をご教示お願いいたします。

いつも、参考にさせていただいております。
レポートに配した直線のコントロールにつきまして、「ある条件で太さが変わる」方法
をこの質問箱でご教示いただきました。誠に、ありがとうございました。
それは、レポートの詳細セクションに「カウント」というコントロールを作成して
可視=いいえで
Option Compare Database
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.カウント = 1 Then
Me.直線149.BorderWidth = 1
Else
Me.直線149.BorderWidth = 0
End If
End Sub
となっていて、とても見栄えの良い書面が出来ています。
この直線149の長さは現在16.5cmあるのですが、上記と同じ条件で、
カウント= 1　のとき直線149の長さは現状のままの16.5cmで
そうでないとき、
直線149の長さを「14.8cm」で「右詰」としたいのです。
どのように記述すれば良いか色々探してみましたが見つかりませんでした。
どなた様かご教示くださるよう、何卒、よろしくお願いいたします。

回答No.2

noname#231195 · ベストアンサー

(ノ∀`)アチャー

#1です。

それでは
Me.直線149.Width =
Me.直線149.Left =
の部分(IFのブロックとELSEのブロックの2か所あります)を入れ替えてみてください。
つまり最初にLeft を指定して、それからWidthを指定するのです。
走りますか？

左端の位置が前のままで、長さを先に延ばそうとすると右がはみ出る、ということだと思うのです。
ただ、線の太さと関係があるのか、線自体の長さはページ幅より若干(10-20くらい？)短くする必要はあるようです。

回答No.1

noname#231195

レポートの編集画面でプロパティの一覧表を利用しておられると思いますが、このプロパティーの一覧表に出ているプロパティはVBAでその対象オブジェクトのプロパティとして必ずあります。

その直線149についても、プロパティーの一覧表に長さ(幅)や左端の位置がありますから、VBAの上でも直線149のプロパティから該当するものを選べばいいのです。
「直線149.」とうったところで、プロパティーやメソッドなどのリストが出てくるでしょう？

ご質問にあるケースでは直線の長さはWidthプロパティです。
Me.直線149.Width = 9354
又は
Me.直線149.Width = 8391
長さの単位は、名前は知りませんが、1440が1インチ(2.54センチ)になるような単位です。
これらをBorderWidthプロパティの下に書けばいいです。

右詰めというプロパティはありません。
左端の位置で直線の位置を決めます。これはLeftプロパティです。
レポートの幅がどれだけあるのか知りませんが、レポートの幅から直線の長さを引いた数値が左の位置です。これも1440が1インチ(2.54センチ)になるような単位で指定します。
Me.直線149.Left = 1440
などという風に書きます。1440と指定した場合、レポートの左端から1インチのところに直線の左端がきます。

お礼

すみません、違う欄に書いたと思います。

szo_orz様
ご教示ありがとうございます。お教えいただいた通り、BorderWidth の
下に、
If Me.カウント = 1 Then
Me.直線149.BorderWidth = 1
Me.直線149.Width = 9000
Me.直線149.Left = 0
Else
Me.直線149.BorderWidth = 0
Me.直線149.Width = 8000
Me.直線1495.Left = 1000
End If
と、記述しまして、印刷プレビューをしますと
「コントロールまたはサブフォームコントロールが大きすぎるため配置できません」とメッセージがでました。
幅を最大幅を8000にしましたら、印刷プレビューが出来ますが、直線が最後まで引けておらず、あと2cmくらい足りないようになっています。
解決方法をお教えいただけませんか？
左からの位置につきましては、バッチリOKになっています。
何卒、よろしくお願いいたします。

補足

szo_orz様
ご教示ありがとうございます。お教えいただいた通り、BorderWidth の
下に、
If Me.カウント = 1 Then
Me.直線149.BorderWidth = 1
Me.直線149.Width = 9000
Me.直線149.Left = 0
Else
Me.直線149.BorderWidth = 0
Me.直線149.Width = 8000
Me.直線1495.Left = 1000
End If
と、記述しまして、印刷プレビューをしますと
「コントロールまたはサブフォームコントロールが大きすぎるため配置できません」とメッセージがでました。
幅を最大幅を8000にしましたら、印刷プレビューが出来ますが、直線が最後まで引けておらず、あと2cmくらい足りないようになっています。
解決方法をお教えいただけませんか？
左からの位置につきましては、バッチリOKになっています。
何卒、よろしくお願いいたします。