teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

4

追記

2021/11/18 01:35

投稿

mnbwqz
mnbwqz

スコア74

title CHANGED
File without changes
body CHANGED
@@ -51,9 +51,8 @@
51
51
  を参考にしてレポートを作成しています。
52
52
  黄色の部分のみ、VBAで線を引くというのはできなそうでした。
53
53
 
54
- 改ページされる時点をVBAで認識する方法は無いでしょうか。
54
+ 改ページされる時点をVBAで認識する方法は
55
- →[こちら](https://hatenachips.blog.fc2.com/blog-entry-70.html)
55
+ →[こちら](https://hatenachips.blog.fc2.com/blog-entry-70.html)を参考にして認識し、各ページ最終行の一番下の罫線を引けました。
56
- を参考に、認識し、各ページ最終行の一番下の罫線を引く方法を考えます。
57
56
 
58
57
  (以下詳細)
59
58
 
@@ -61,5 +60,4 @@
61
60
 
62
61
  データの中にはセル(テキストボックス)の背景に色を付けるものがあり(テキストボックスの背景色の設定で色を付ける方法では、VBAで引いた線の部分にまで背景色がはみ出だす大きさになる)、全ての枠線をVBAの四角形を描画する方法で作成する方法も試しています。サブレポートでの各商品のデータ件数の量に応じ、縦罫線を伸ばさないといけない点・下罫線が移動する点、については、サブレポートの件数に応じて縦罫線を伸ばす・下罫線を移動させる方法で対応できたので、データの最後の部分の下の線は引けました。
63
62
 
64
- 改ページする場合に、改ページをVBAで認識し、その場合に下線を引くようにはできないでしょうか。ページフッター(一番下の薄い色の線)を引く方法では、下図のように詳細セクションの最終行の間に隙間できす。よろくお願いします
63
+ 改ページする場合に、改ページをVBAで認識する方法も「こちら」ページの情報を参考に線を引くとが出来まし
65
- ![イメージ説明](91478ce1203a4d8c63d6dbccf306b00c.jpeg)

3

追記

2021/11/18 01:35

投稿

mnbwqz
mnbwqz

スコア74

title CHANGED
File without changes
body CHANGED
@@ -52,6 +52,9 @@
52
52
  黄色の部分のみ、VBAで線を引くというのはできなそうでした。
53
53
 
54
54
  改ページされる時点をVBAで認識する方法は無いでしょうか。
55
+ →[こちら](https://hatenachips.blog.fc2.com/blog-entry-70.html)
56
+ を参考に、認識し、各ページ最終行の一番下の罫線を引く方法を考えます。
57
+
55
58
  (以下詳細)
56
59
 
57
60
  縦罫線をVBAで、横罫線を詳細セクションに配置という方法では自動でレイアウトが変更され(詳細セクションの幅が自動的に+0.026cmされる)、想定通りにならないところがありました。

2

追記

2021/11/17 12:40

投稿

mnbwqz
mnbwqz

スコア74

title CHANGED
File without changes
body CHANGED
@@ -47,9 +47,16 @@
47
47
 
48
48
  (追記)
49
49
  ご回答ありがとうございます。
50
- [Access - Access2016:印刷時拡張で高さの拡がったテキストボックスに合わせて自動的に他のテキストボックスの高さも拡げたい|teratail]
50
+ [Access - Access2016:印刷時拡張で高さの拡がったテキストボックスに合わせて自動的に他のテキストボックスの高さも拡げたい|teratail](https://teratail.com/questions/84083)
51
- (https://teratail.com/questions/84083)
52
51
  を参考にしてレポートを作成しています。
53
52
  黄色の部分のみ、VBAで線を引くというのはできなそうでした。
54
53
 
55
- 縦罫線をVBAで、横罫線を詳細セクションに配置という方法では自動でレイアウトが変更され、想定通りにならないところがありました。データの中にはセル(テキストボックス)の背景に色を付けものがあり(テキストボックスの背景色の設定で色付ける方法では、VBAで引いた線の部分にまで背景色がはみ出てくることもあり)、全ての枠線をVBAの四角形を描画する方法で作成する方法も試しています。その場合、改ページする場合の最後の下線、データが最後の場合の下線以外引けました。改ページする場合、データが最後の場合をVBAで判断し、その場合に下線を引くようにはできないでしょうか。
54
+ 改ページされる時点をVBAで認識する方法はいでしょうか。
55
+ (以下詳細)
56
+
57
+ 縦罫線をVBAで、横罫線を詳細セクションに配置という方法では自動でレイアウトが変更され(詳細セクションの幅が自動的に+0.026cmされる)、想定通りにならないところがありました。
58
+
59
+ データの中にはセル(テキストボックス)の背景に色を付けるものがあり(テキストボックスの背景色の設定で色を付ける方法では、VBAで引いた線の部分にまで背景色がはみ出だす大きさになる)、全ての枠線をVBAの四角形を描画する方法で作成する方法も試しています。サブレポートでの各商品のデータ件数の量に応じ、縦罫線を伸ばさないといけない点・下罫線が移動する点、については、サブレポートの件数に応じて縦罫線を伸ばす・下罫線を移動させる方法で対応できたので、データの最後の部分の下の線は引けました。
60
+
61
+ 改ページする場合に、改ページをVBAで認識し、その場合に下線を引くようにはできないでしょうか。ページフッターに下線(一番下の薄い色の線)を引く方法では、下図のように詳細セクションの最終行との間に隙間ができます。よろしくお願いします。
62
+ ![イメージ説明](91478ce1203a4d8c63d6dbccf306b00c.jpeg)

1

追記

2021/11/17 10:31

投稿

mnbwqz
mnbwqz

スコア74

title CHANGED
File without changes
body CHANGED
@@ -5,7 +5,7 @@
5
5
  レポートの詳細セクションに、テキストボックスに加え
6
6
  サブレポートも配置して、レイアウトを設定しています。
7
7
  テキストボックス・サブレポートのプロパティは、
8
- 高さ・上位置・背景線スタイル(実)・境界線幅(1ポイント)同一です。
8
+ 高さ・上位置・背景線スタイル(実)・境界線幅(1ポイント)同一です。
9
9
  しかし、サブレポートの部分のみ、一回り小さく線が引かれてしまいます。
10
10
  他のテキストボックスと同じサイズで線を引く方法は無いでしょうか。
11
11
  また、サブレポートが無い項目の場合、サブレポートが表示されていないのか、
@@ -42,4 +42,14 @@
42
42
  ![現状](8fe3b79c61620b1e32c2e09a36432cdf.jpeg)
43
43
 
44
44
  線を引きたい部分を黄色表示
45
- ![希望](8ef1cc59750f2c491b0303bc0e2965af.jpeg)
45
+ ![希望](8ef1cc59750f2c491b0303bc0e2965af.jpeg)
46
+
47
+
48
+ (追記)
49
+ ご回答ありがとうございます。
50
+ [Access - Access2016:印刷時拡張で高さの拡がったテキストボックスに合わせて自動的に他のテキストボックスの高さも拡げたい|teratail]
51
+ (https://teratail.com/questions/84083)
52
+ を参考にしてレポートを作成しています。
53
+ 黄色の部分のみ、VBAで線を引くというのはできなそうでした。
54
+
55
+ 縦罫線をVBAで、横罫線を詳細セクションに配置という方法では自動でレイアウトが変更され、想定通りにならないところがありました。データの中にはセル(テキストボックス)の背景に色を付けるものがあり(テキストボックスの背景色の設定で色を付ける方法では、VBAで引いた線の部分にまで背景色がはみ出てくることもあり)、全ての枠線をVBAの四角形を描画する方法で作成する方法も試しています。その場合、改ページする場合の最後の下線、データが最後の場合の下線以外は引けました。改ページする場合、データが最後の場合をVBAで判断し、その場合に下線を引くようにはできないでしょうか。