Stampa report da maschera filtrata

Question

Buonasera, ho un problema con un db che sto creando. Ho una maschera che è una lista di ordini dove ho messo un bottone che mi esporta la lista in excel, questo è il codice:

DoCmd.OutputTo acOutputForm, "Ma_ListaOrdine", acFormatXLSX, "", False, "", , acExportQualityPrint

Questo codice mi permette di esportare la lista anche dopo averla filtrata in vari modi in modo da avere in excel solo i dati che di volta in volta  mi interessano.

Ora vorrei aggiungere un altro bottone che mi esporti come l'altro la lista filtrata in quel momento però in .pdf e usando un report che ho creato, ho scritto questo codice:

DoCmd.OutputTo acOutputReport, "Re_ListaOrdine", "PDFFormat(*.pdf)", "", False, "", 0, acExportQualityPrint

Questo codice funziona solo che mi esporta in .pdf sempre e solo la lista intera e non la lista filtrata come voglio io.

Qualcuno riesce a darmi una mano.

Grazie.

Answer 1

ciao Roberto,

parliamo di filtro inteso come filter property, giusto?

mi vengono in mente due soluzioni facili.

La prima, su apertura dela report passi al report stesso il filtro che hai creato nella form, e crei il file pdf solo dei records che stai visualizzando nella form.

su evento click del command Button :

Const strFullPathPdfReport As String = "myPathReport.pdf"

DoCmd.OutputTo objecttype:=acOutputReport, _

               objectname:="ordini", _

               outputformat:=acFormatPDF, _

               outputfile:=strFullPathPdfReport

e su apertura del report :

Private Sub Report_Open(Cancel As Integer)

Const myFilterdForm As String = "Ma_ListaOrdine"

If CurrentProject.AllForms(myFilterdForm).IsLoaded Then

    With Me

        .FilterOn = True

        .Filter = Forms(myFilterdForm).Filter

    End With

End If

End Sub

oppure apri il report nascosto, lo filtri applicando la clausola where del metodo open report, lo esporti e lo chiudi.

Const strFullPathPdfReport As String = "myPathReport.pdf"

DoCmd.OpenReport reportName:="myReport", _

                  view:=acViewPreview, _

                  wherecondition:=Me.Filter, _

                  windowmode:=acHidden

DoCmd.OutputTo objecttype:=acOutputReport, _

               objectname:="myReport", _

               outputformat:=acFormatPDF, _

               outputfile:=strFullPathPdfReport

DoCmd.Close acReport, "myReport"

in questo secodo caso puoi elminare il codice su apertura del report.

ovviamente personalizza il nome del report e del percorso con quelli proprio del tuo scenario.

Ciao, Sandro.

Answer 2

Grazie Sandro, ora funziona perfettamente, era il codice su apertura del report che mi mancava.

Grazie mille.