[ΚΩΣΤΑΣ2]

ΝΑΣΟ ευχαριστώ
DoCmd.OutputTo acOutputReport, "DELPAR", acFormatPDF, "C:\users\v\Dropbox\" & " Δελτίο Παραγγελίας " & Me.id & ".pdf", 0, True
δεν τρέχει
έχω κάτι από ίντερνετ αλά κάνει εξαγωγή στην επιφάνεια εργασίας
Private Sub Εντολή154_Click()
Dim strDateiname As String
DoCmd.OpenReport "DELPAR", View:=acViewPreview, _
WhereCondition:="DPAR = " & DPAR
strDateiname = CurrentProject.Path & "\DPAR_" & DPAR & ".pdf"

DoCmd.OutputTo acOutputReport, "DELPAR", acFormatPDF, strDateiname
DoCmd.Close acReport, "DELPAR"

End Sub