Preciso imprimir um relatório em que constem somente os registros de um determinado técnico (tabela.Técnico), num intervalo de datas de saída, pelo Crystal 4.6 (VB5 Professional).
Adaptei uma dica do Macoratti, utilizando um relatório baseado num banco de dados (SistemaLoja.mdb). A rotina abaixo gera o relatório entre duas datas, de forma correta. Onde é que eu deveria concatenar a variável Nome do técnico , para que o relatório separasse os registros pelo nome do técnico e no intervalo de datas?


Private Sub mnuImprimir_Click()
Dim DataInicio, DataFinal As String
Dim txtDataInicio As String, txtDataFinal As String
txtDataInicio = InputBox("Informe a data inicial de saída" _
& Chr(13) & "no formato dd/mm/yyyy. Ex.: 16/05/2004")

txtDataFinal = InputBox("Você informou como data inicial de saída" & Chr(13) & _
txtDataInicio & ". Informe agora a data final de saída.")

Screen.MousePointer = vbHourglass

DataInicio = Format(txtDataInicio, "yyyy,mm,dd")
DataFinal = Format(txtDataFinal, "yyyy,mm,dd")

Dim rptData As String
'formula a ser usada
rptData = "{loja.DataDeSaída}"

Dim rptSelecao As String
rptSelecao = rptData & " in Date(" & DataInicio & ") to Date (" & DataFinal & ")"

'Imprime o relatorio
CrystalReport1.ReportFileName = App.Path & "     ecnico.rpt"
CrystalReport1.WindowTitle = "Entrega de aparelhos"
CrystalReport1.SelectionFormula = rptSelecao
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1

Screen.MousePointer = vbDefault
End Sub

Agradeço a colaboração.
chico