質問編集履歴
1
コード編集
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -129,3 +129,45 @@
|
|
|
129
129
|
End Sub
|
|
130
130
|
|
|
131
131
|
```
|
|
132
|
+
|
|
133
|
+
|
|
134
|
+
|
|
135
|
+
追記です
|
|
136
|
+
|
|
137
|
+
いろいろ検索し以下の部分を
|
|
138
|
+
|
|
139
|
+
```ここに言語を入力
|
|
140
|
+
|
|
141
|
+
Cmd.OpenReport "レポート", acViewPreview, , "報告ID=" & Me!報告ID
|
|
142
|
+
|
|
143
|
+
|
|
144
|
+
|
|
145
|
+
DoCmd.SendObject acSendReport, "レポート", acFormatPDF, atesaki, "", "", kenmei, zenbun, True, """"
|
|
146
|
+
|
|
147
|
+
|
|
148
|
+
|
|
149
|
+
```
|
|
150
|
+
|
|
151
|
+
以下に書き換えてみました。
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
```ここに言語を入力
|
|
156
|
+
|
|
157
|
+
DoCmd.CopyObject , "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acReport, "レポート"
|
|
158
|
+
|
|
159
|
+
DoCmd.SendObject acSendReport, "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
|
|
160
|
+
|
|
161
|
+
DoCmd.DeleteObject acRepory, "レポート_" & Format(Now(), "yyyymmdd_hhnnss")
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
```
|
|
166
|
+
|
|
167
|
+
|
|
168
|
+
|
|
169
|
+
メール作成画面が開くと、PDFファイル名は変わっておらず、すべてのページのレポートになってしまっています。
|
|
170
|
+
|
|
171
|
+
メール作成画面を閉じると名前に日時のついたレポートがレポート内に出現します。
|
|
172
|
+
|
|
173
|
+
削除もされないようです…
|