با سلام
برای ساخت گزارشهای پیچیده با دیزاین متفاوت و محاسبات زیاد از اکسل استفاده می کنیم بعد از طراحی گزارش فایل اکسل باز و اطلاعات از اکسس وارد میشه وبعدش به شکل pdf در یه یک WebBrowserبه نمایش میاد . فایل پی دی اف و اکسل در مسیر ونام از پیش تعیین شده ذخبره میشه . در این مثال پنج تا sheetکه هریک حاوی یک گزارش می باشد طی ارایه ای بطور یکجا در یک فایل پی دی اف اوره میشه که تقریبا در گزارش سازی خود اکسس غیر ممکنه و شما به سختی میتونی مولتی ریپورت در قالب یه فایل پی دی اف بگیری
Dim xlapp As New Excel.Application
DoCmd.OpenForm "frmpdf"
Set wrk = xlapp.Workbooks.Open("F:\Access\Projects\ReportExc el.xlsx")
xlapp.Application.Visible = True '
X = Shamsi() & "-" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())
namxl = "Jameh#" & X & "#" & ".xlsx"
nampdf =CurrentProject.Path & "\Backup\" & X & ".pdf"
wrk.Sheets(Array("dp", "sh", "tk", "ha", "xv")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=nampdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=25, _
OpenAfterPublish:=False
Forms!frmpdf!WebBrowserpdf.Navigate (nampdf)
wrk.SaveAs CurrentProject.Path & "\Backup\" & namxl
'wrk.Save
wrk.Close False
xlapp.Workbooks.Close
xlapp.Application.Quit
Set wrk = Nothing
End Sub
فقط یکم زمان میبره برای کانکت شدن به اکسل وبعضا ارور میده که بعد جند بار کاکنکت میشه . دوستان اگه تجربه ای در این مورد دارند لطفا ارائه بفرمایند
پاسخ با نقل قول