Inviare .pdf singolo report

di il
2 risposte

Inviare .pdf singolo report

Salve,
premetto la mia ignoranza in campo VBA.
Ho creato una macro per stampare un report da una maschera attiva in quel momento di creazione nuovi lavori. La stampa del singolo record avviene perfettamente, ma non riesco ad inviare il .pdf via mail perchè mi invia tutto l'elenco di "lavori" presente nel database e non solo quello appena creato. Spero di essere stato chiaro. allego codice:

Private Sub Comando77_Click()

DoCmd.RunCommand acCmdSaveRecord

Dim DocName As String
DocName = "lavori"

DoCmd.OpenReport DocName, acViewNormal, , "[Id_lavoro] = Forms![Nuovo lavoro]![Id_lavoro]", acDialog
DoCmd.SendObject acReport, "Lavori", "PDFFormat(*.pdf)", "", "", "", "Foglio lavoro", "", False, ""

End Sub

2 Risposte

  • Re: Inviare .pdf singolo report

    Le tue due istruzioni
    DoCmd.OpenReport apre il report con il filtro: OK.
    DoCmd.SendObject invia TUTTO il report.
    Le due istruzioni non sono strettamente legate, vanno ognuna per conto suo.
    Prova a far poggiare il tuo report su una query avente lo stesso parametro Forms![Nuovo lavoro]![Id_lavoro] sul campo IDLavoro. E fai il SendObject su di esso.
  • Re: Inviare .pdf singolo report

    Mitico!! Grazie dell'aiuto. Funziona perfettamente.
Devi accedere o registrarti per scrivere nel forum
2 risposte