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

質問編集履歴

1

コード編集

2019/10/10 02:20

投稿

techiko
techiko

スコア10

title CHANGED
File without changes
body CHANGED
@@ -63,4 +63,25 @@
63
63
 
64
64
 
65
65
  End Sub
66
- ```
66
+ ```
67
+
68
+ 追記です
69
+ いろいろ検索し以下の部分を
70
+ ```ここに言語を入力
71
+ Cmd.OpenReport "レポート", acViewPreview, , "報告ID=" & Me!報告ID
72
+
73
+ DoCmd.SendObject acSendReport, "レポート", acFormatPDF, atesaki, "", "", kenmei, zenbun, True, """"
74
+
75
+ ```
76
+ 以下に書き換えてみました。
77
+
78
+ ```ここに言語を入力
79
+ DoCmd.CopyObject , "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acReport, "レポート"
80
+ DoCmd.SendObject acSendReport, "レポート_" & Format(Now(), "yyyymmdd_hhnnss"), acFormatPDF, atesaki, "", "", kenmei, zenbun, True, ""
81
+ DoCmd.DeleteObject acRepory, "レポート_" & Format(Now(), "yyyymmdd_hhnnss")
82
+
83
+ ```
84
+
85
+ メール作成画面が開くと、PDFファイル名は変わっておらず、すべてのページのレポートになってしまっています。
86
+ メール作成画面を閉じると名前に日時のついたレポートがレポート内に出現します。
87
+ 削除もされないようです…