11-09-19, 05:22 AM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , قم بالذهاب لقائمة Project أو مشروع ثم الأمر References أو مراجع ثم من الشاشة التي ستظهر لك إبحث عن ActiveReports Excel Export Filter وعلم عليه صح ثم إستخدم هذا الكود والذي هو موجود في ملف المساعده التابع لتقارير الأكتف ريبورت الذي يشرح كيفية عمليات التصدير :
أهلا بك أخي الكريم , قم بالذهاب لقائمة Project أو مشروع ثم الأمر References أو مراجع ثم من الشاشة التي ستظهر لك إبحث عن ActiveReports Excel Export Filter وعلم عليه صح ثم إستخدم هذا الكود والذي هو موجود في ملف المساعده التابع لتقارير الأكتف ريبورت الذي يشرح كيفية عمليات التصدير :
PHP كود :
Private Sub mEExpt_Click()
Dim xls As ActiveReportsExcelExport.ARExportExcel
Dim sFile As String
Set xls = New ActiveReportsExcelExport.ARExportExcel
sFile = "d:\test1.xls"
xls.FileName = sFile
If ActiveReport1.Pages.Count > 0 Then
xls.Export ActiveReport1.Pages
End If
End Sub
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next