印刷時拡張したレポートで、最下線に合わせて縦罫線を引きたい

2024-04-07 (Sun) 23:59
​​ 印刷時拡張を設定したレポートで、移動した最下線に合わせて縦罫線を引きたい 
 【Line メソッド Access VBA】


1.移動した最下線の上位置を求めます。
   セクションの「OnPrint/印刷時」プロパティに、イベントプロシージャを作成します。
    最下線の上位置 = Me!最下線.Top

    ※ 「CanGrow/印刷時拡張」プロパティが「はい」に設定されたコントロールが
      実際に印字されるときの「Height/高さ」プロパティの値は、
      印刷時のイベントでのみ、参照可能です。

2.縦罫線を引きます。
   左端に引く場合、
    Me.Line (567 * 0, 567 * 0)-(567 * 0, 最下線の上位置)

    ※ 単位は、「twip」です。
      1cm = 567twip
      Lineメソッドに指定する座標値は、
      「ScaleMode」プロパティの値を既定のまま使用しているので、
      twip (1cm=約 567twip) で指定しています。

 
構文
 Line メソッド

 Printイベントの発生時に、Reportオブジェクトに直線や長方形を描きます。

 expression.Line(Step(x1, y1) – Step(x2, y2), color, BF)
指定項目 内容
Step 始点の座標値を、引数 object のプロパティ CurrentX と CurrentY からの相対位置として指定することを示すキーワードです。
object x1, y1 直線または長方形の始点の座標値を表す単精度浮動小数点型 (Single) の値です。
引数 object で指定した Report オブジェクトのスケール プロパティ (ScaleMode 、ScaleLeft、ScaleTop、ScaleHeight、および ScaleWidth) によって値の単位が決まります。
この引数を省略すると、CurrentX プロパティおよび CyrrentY プロパティで指定されている位置が始点となります。
color 直線の描画に使用する RGB (赤緑青) カラーを表す長整数型 (Long) の値です。省略すると、"ForeColor/前景色" プロパティの値が使われます。
RGB や QBColor 関数を使って色を指定することもできます。
B 対向する座標を使って四角形を作成するオプションです。
F F は B と組み合わせて指定する必要があります。
F オプションと B オプションをペアで指定すると、四角形の描画に使用した色を使って四角形が塗りつぶされます。
F を指定せずに、B だけを指定した場合、FillColor プロパティと BackStyle プロパティの現在の設定に基づいて四角形が塗りつぶされます。
四角形および直線の場合、BackStyle プロパティの既定値は Normal です。

【解説】
 このメソッドは、レポートのセクションの "OnPrint/印刷時" または "OnFormat/フォーマット時" イベント プロパティに指定したイベント プロシージャやマクロ、またはレポートの "OnPage/ページフォーマット時" イベント プロパティに指定したイベント プロシージャやマクロでのみ使用できます。
 折れ線を描画するには、(最初の直線を除く) 各直線の始点が前の直線の終点と一致するようにします。
 直線の幅は、DrawWidth プロパティによって決まります。直線や長方形が背景に対してどのように描画されるかは、DrawMode と DrawStyle プロパティによって決まります。
 Line メソッドを使うと、CurrentX プロパティと CurrentY プロパティは、引数 x2 および y2 で指定した点に設定されます。
 
参考
  ● [AC95] 印刷時拡張を設定したレポートで横罫線をそろえる方法
関連
  ● 印刷時拡張したレポートで、移動した最下線の上位置を求めたい
  ​
サイトマップ
  ● システム開発
      ● Access VBA
更新履歴
  2024-04-07 レイアウト見直し
​  2017-06-11 初回作成

この記事を表示

印刷時拡張したレポートで、移動した最下線の上位置を求めたい

2024-04-07 (Sun) 23:59
​印刷時拡張を設定したレポートで、移動した最下線の上位置を求めたい【Top/上位置プロパティAccessVBA】最下線の上位置=Me!最下線.Top​ ┃構文Top/上位置 プロパ...
記事全文を読む

半角数値を全角数値に変換したい StrConv 関数 VBA

2024-03-31 (Sun) 23:59
​​半角数値を全角数値に変換したい【StrConv関数AccessVBA】12,500⇒12,500StrConv("12,500",vbWide)StrConv(&qu...
記事全文を読む

半角カタカナをひらがなに変換したい StrConv VBA

2024-03-31 (Sun) 23:59
​​半角カタカナをひらがなに変換したい【StrConv関数AccessVBA】ヤマダタロウ⇒やまだたろうStrConv("ヤマダタロウ",vbWide+vbHirag...
記事全文を読む

ひらがなを半角カタカナに変換したい StrConv VBA

2024-03-31 (Sun) 23:59
ひらがなを半角カタカナに変換したい【StrConv関数AccessVBA】やまだたろう⇒ヤマダタロウStrConv("やまだたろう",vbKatakana+vbNarr...
記事全文を読む

文字列を全角から半角に変換したい StrConv VBA

2024-03-31 (Sun) 23:59
​​文字列を全角から半角に変換したい【StrConv関数AccessVBA】12345ABCDEやまだヤマダ⇒12345ABCDEやまだヤマダStrConv("12345ABCD...
記事全文を読む

文字列の改行を削除したい Replace 関数 VBA

2024-03-26 (Tue) 22:59
​​文字列の改行を削除したい【Replace関数AccessVBA】1.改行コードがキャリッジリターンとラインフィードの組み合わせの場合Replace(改行されている文字列,vbCrLf,"...
記事全文を読む

文字列のスペースを削除したい Replace 関数 VBA

2024-03-26 (Tue) 22:59
​文字列のスペース(空白)を削除したい【Replace関数AccessVBA】"山田タロウ"⇒"山田タロウ"Replace("山田タロウ&q...
記事全文を読む

シート名を指定して、Excelファイルをインポートしたい

2024-03-18 (Mon) 23:59
​​シート名を指定して、Excelファイルをインポートしたい【TransferSpreadsheetメソッドAccessVBA】DoCmd.TransferSpreadsheetacImport,ac...
記事全文を読む

インポート定義を使用して、CSVファイルをインポートしたい

2024-03-18 (Mon) 23:59
​​​インポート定義を使用して、CSVファイルをインポートしたい【TransferTextメソッドAccessVBA】DoCmd.TransferTextacImportDelim,インポート定義の名...
記事全文を読む

Blog Calendar

Blog Category

RSS 2.0