No relatório eu inseri um Fied chamado "Filtro" e está ticada a opção Can Grow.
No código eu preciso passar para este Field palavras, uma por linha. Qdo aparece algo que preciso escrever eu vou adicionando à variável Xfiltro:
Dim xFiltro As String
If optNF(1).Value = True Then
xFiltro = "- Positivo"
End If
If optStatus(0).Value = True Then
If Len(xFiltro) <> 0 Then xFiltro = xFiltro + Chr(13)
xFiltro = xFiltro + "- Reservados"
End If
E depois envio para o relatório assim:
If Len(sFiltro) <> 0 Then Report.Formulas(1) = "Filtro = '" & xFiltro & "'"
Mas daí dá este erro :
Error in File C:/programas/relatorios/Pedidos.rpt:
Error in formula <filtro>,
' '-Positivo
'
The matching ' for this string is missing.
Como resolver para que ele imprima com quebras de linha ?
