Ola pessoal...

 

estou tendo dificuldades com o crystal, pois não estou enviar o relatorio direto para a impressora. onde esta o erro??????

 

FORMULA = "{TB_CONDOMINO.COND_COD} = CCur  ( '" & txtCodCond.Text & "')AND " & _
                            "{TB_CONDOMINO.CONDMOR_COD} = CCur ('" & Data2.Recordset!CONDMOR_COD & "')"

Set Report = Aplicacao.OpenReport(App.Path & "RPT_ComunicadoCondomino.rpt")
    With Report
        .RecordSelectionFormula = FORMULA
            If .FormulaFields.Item(1).Name = "{@<TemplateField1>}" Then
                .FormulaFields.Item(1).Text = Chr(34) & mskDt1.Text & Chr(34)
            End If
            If .FormulaFields(2).Name = "{@<TemplateField2>}" Then
                .FormulaFields(2).Text = Chr(34) & txtAssunto.Text & Chr(34)
            End If
            If .FormulaFields(3).Name = "{@<TemplateField3>}" Then
                .FormulaFields(3).Text = Chr(34) & txtDeveres.Text & Chr(34)
            End If
    End With
    With CRViewer91

        .ReportSource = Report
        .PrintReport
    End With

 

Obrigado

crystalreport1.Destination = crptToPrinter

desculpe............ mais procurei esse evento e não encontro no CR 9....onde posso encontrar .....estou usando o Crystal Report Viewer