Sub report not showing data on pdf export

[diegomarino]

Hi, i have a Report that contains some sub reports in it

when i see it in report view everything is ok, even in print preview, but when i export it using this function that i call clicking a button the sub report do not show the continuos form in it, there are no data

print preview (ok):


Pdf export:


this is the function i use:

Function EsportaProfilo(ReportObject As Report, ReportName As String, FlName As String)    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF, FlName, True
End Function

this is the code started by the button click:

Private Sub EsportaBtn_Click()    Call EsportaProfilo(Screen.ActiveReport, Report.Name, "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf")
End Sub

i can't figure it out

[Gicu]

Can you please try one of the two below:

Private Sub EsportaBtn_Click()    
Call EsportaProfilo(Screen.ActiveReport, Screen.ActiveReport.Name, "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf")
'Call EsportaProfilo(Screen.ActiveReport,Application.CurrentObjectName, "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf")
End Sub

Cheers,

[diegomarino]

the second one worked! thanks!
can you explain me my error, if you want?

EDIT it worked once (maybe i get confused)...then the problem is back


Attempts:

1) i tried to insert in the argument the name of the report as string and there is the same problem
2) i used this code in the button click event (getting rid of the function)

Private Sub EsportaBtn_Click()   Dim FlName As String, Report As String
   Report = "ProfiloPB"
   FlName = "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf"
   DoCmd.OutputTo acOutputReport, Report, acFormatPDF, FlName, True
End Sub

and worked
3) i tried to export by clicking with right button on the report in the navigation pane and worked too.

[ssanfu]

"Report" is a reserved word in Access and shouldn't be used for object names.

I would use

Private Sub EsportaBtn_Click()
    Dim FlName As String
    Dim ReportName As String

    ReportName = "ProfiloPB"
    FlName = "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf"
    '  Debug.Print FlName
    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF, FlName, True

End Sub

or even better

Private Sub EsportaBtn_Click()
    Dim FlName As String

    FlName = "C:\Users\diego\OneDrive - Indipendente\Lavoro\HH\Candidati\" & Me.Regione & "\" & Me.NomeCognome & "\" & Me.NomeCognome & " - " & Me.Comune & " - " & Me.Azienda & ".pdf"
    '  Debug.Print FlName
    DoCmd.OutputTo acOutputReport, "ProfiloPB", acFormatPDF, FlName, True

End Sub

I don't know if this is the problem, but .........

[diegomarino]

thank you very much. However the problem is when i call the function by button press, not when i insert the code in the button click directly...maybe it is a too complex report, i give up on building a function...

thanks everyone