Private Sub List1_DblClick()

Data1 = Format(TDBDate1(0).value, "YYYY")

Data2 = Format(TDBDate1(1).value, "YYYY")

NovoRelatorio (RfileName), DefaultDatabase 'Função, (Nome do Relatorio) e Nome da BD

rc = PEOutputToWindow(PJ, "Relatório", 50, 50, 500, 700, 12582912 Or 8388608 Or 16777216 Or 65536 Or 524288 Or 131072, preview.hwnd)

PESetSelectionFormula PJ, "{@Ano} >= Date(" & Data1 & ")” ' SelectionFormula do Report

PEOpenSubreport PJ, "Comp311" ' Nome do SubReport

PESetSelectionFormula PJ, "{@Ano} >= Date(" & Data1 & ")” 'SelectionFormula do SubReport

rc = PEStartPrintJob(PJ, True)

End Sub

Public Sub NovoRelatorio(RfileName As String, Optional BD As String)

Dim Locals As PETableLocation

Dim Tabela As String

Dim Tabela_Aux As String

Dim i As Integer

i = 0

Tabela_Aux = ""

rc = PEOpenEngine()

hasRangeParams = False

PJ = PEOpenPrintJob(App.Path & "Mapas" & RfileName & ".rpt") ' Localização do Relatorio

LINFO.StructSize = Len(LINFO)

With LINFO

.ServerName = Servidor & Chr(0) 'Nome do Servidor

If Len(BD) > 0 Then

.DatabaseName = BD & Chr(0) ' Nome da Base de Dados

End If

.UserID = utilizadores & Chr(0) 'Nome do Utilizador

.password = Pass_Acesso & Chr(0) 'Nome da Password

End With

rc = PESetNthTableLogOnInfo(PJ, 0, LINFO, True)

End Sub

'Oi pessoal, será que alguém sabe como é que se utiliza uma SelectionFormula num subreport??Eu tenho este programa em VB e com bases de dados em SQL Server, todos os relatorios funcionam, mas tenho alguns que têm SubReports também com SelectionFormulas, mas não consigo mete-los a funcionar? Se alguém souber como se faz podem dar-me o codigo???Ou algumas dicas, Obrigado!!!