CRYSTAL

USUARIO.EXCLUIDOS 29/11/2004 10:02:47
#52453
Olá, gostaria de saber como é que eu faço para passar um valor de um textBox do VB direto para um relatório do crystal ao emitir o próprio.

Valew...
LIZANDRO 29/11/2004 14:19:52
#52500 Resposta escolhida
Vito ai vai .... acho que isto resolve seu problema .
            crpRelatorio.Formulas(1) = "Titulo = 'Relatório de Clientes com Pendências no SPC'"
            Call ImprimeRelatorio(mdiPrincipal.crpRelatorio, Mid(sPathNomeBanco, 1, Len(sPathNomeBanco) - 7) & "rptClientesDebito_Credito.rpt", "Relatório de Clientes por Débito", strSelectionFormula, crptToWindow)


A rotina para impressao que uso: se quiser usar ....
Public Sub ImprimeRelatorio(ByRef objCristal As CrystalReport, _
                            ByVal strNomeRelatorio As String, _
                            ByVal strTituloRelatorio As String, _
                            Optional strSelectionFormula As String, _
                            Optional strDestinoImpressao As String)

On Error GoTo TrataErro
    objCristal.Connect = "Driver=Microsoft Access Driver (*.mdb);"
    objCristal.ReportFileName = strNomeRelatorio
    objCristal.ReplaceSelectionFormula strSelectionFormula
    objCristal.Destination = strDestinoImpressao
    objCristal.WindowTitle = strTituloRelatorio
    objCristal.WindowState = crptMaximized
    objCristal.WindowBorderStyle = crptSizable
    objCristal.ProgressDialog = True
    objCristal.Action = 1
    objCristal.PageZoom 80
    objCristal.Formulas(1) = ""

    Exit Sub

TrataErro:
    MsgBoxPadrao "Esta impressora não suporta este relatório !", "Atenção", vbOK, vbCritical
    'MsgBoxPadrao "Ocorreu um Erro na Impressão !" & vbCrLf & vbCrLf & "Contacte o Analista de Desenvolvimento.", "Atenção", vbOK, vbCritical

End Sub


Para passar alguma coisa do VB p/ Cristal vc tem que criar uma fórmula lá e passar por parametro como faço acima.

"Titulo = " -> é o nome da formula dentro do cristal
Tópico encerrado , respostas não são mais permitidas
Voltar