|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Crystal Reports)
|
|
 |
Título da Dica: Como alterar o template após gerar o código RDC no VB?
|
 |
|
|
|
Postada em 6/10/2003 por ~Ð@®£@Ñ
Refere-se a: Crystal Reports 9.0
Dica
Desenvolvendo em VB, você pode utilizar o Designer para montar o template do seu report, mas isso gera problemas do tipo como alterar o template após linkado o código?
Então eu não monto templates dentro do VB, eu os crio dentro do Crystal Reports e os carrego através de um método da classe Application, o ".OpenReport", ele devolve um objeto do tipo "Report", que eu através de um método do ActiveX consigo carregá-lo. Isso é muito mais útil, pois assim permite que você altere o report, mesmo após do código ter sido compilado e linkado.
Exemplo didático de como poder alterar os templates mesmo após linkado o código pelo vb:
Crie um projeto no vb e mande inserir o Crystal. Selecione Blank Report e o Crystal vai inserir por default um Designer e um novo form2. Delete o Designer e altere o código do form2 para o seguinte:
Dim Report As CRAXDRT.Report
Dim objCrystal As New CRAXDRT.Application
Option Explicit
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Set Report = objCrystal.OpenReport("G:\Trabalho\Projeto
FC302\Report\Reports\00-AEV.rpt")
'se não usar banco de dados insira a
'seguinte linha, supondo que
'vc já tenha um recordset
'report.Database.SetDataSource rs_recordset
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Esse exemplo funcionou legal, ele permite que você altere o template mesmo após de linkado o código, pois o código vai sempre abrí-lo através do path especificado em runtime
|
|
|
|
|
