Точнее, для случая с переносом строки можно сделать так (объявить последний параметр как необязательный, а по умолчанию подставлять знак абзаца):
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function Replace(strWhere As String, strOld As String, Optional strNew As String = vbCrLf) As String
Dim strPat As String, i As Integer
strPat = strWhere
i = InStr(strPat, strOld)
Do While i > 0
strPat = Left$(strPat, i - 1 ) & strNew & Mid$(strPat, i + Len(strOld))
i = InStr(i + 1 , strPat, strOld)
Loop
Replace = strPat
End Function
А в запросе - источнике данных отчета пишешь SELECT ... , Replace(Поле, " ") FROM ...
