それと、詳細セクションも複数ページにまたがることがあったりしますか?
ページ跨ぎが発生すると詳細_Formatもその都度発生するので、dataに薬品名が重複して登録されます。こちらもページ跨ぎの場合はdataにデータを追加しない様、制御処理を追加しておいたほうがいいかもしれません
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
data = data & Left(Me!薬品名 & String(12, "・"), 12) & Format(Me.Page, "@@@") & vbCrLf
End If
End Sub
通報 ...