29-02-20, 11:06 AM
02-03-20, 12:42 AM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , بالنسبة لتقرير الأكتف ريبورت تستطيع من خلال مكتبة تابعة للأكتف ريبورت تمكك من حفظ التقرير كملف PDF أما بالنسبة للداتا ريبورت وأيضا للأكتف ريبورت أو أي أنواع تقارير أخرى يوجد برامج مجانية تقوم بتعريف طابعة في جهازك حيث عندما تطبع التقرير فيها لا تطبع بالطريقة العادية وإنما عندما تختارها عند الطباعة تقوم بتحويل صفحات التقرير إلى ملف PDF , بالتوفيق .
أهلا بك أخي الكريم , بالنسبة لتقرير الأكتف ريبورت تستطيع من خلال مكتبة تابعة للأكتف ريبورت تمكك من حفظ التقرير كملف PDF أما بالنسبة للداتا ريبورت وأيضا للأكتف ريبورت أو أي أنواع تقارير أخرى يوجد برامج مجانية تقوم بتعريف طابعة في جهازك حيث عندما تطبع التقرير فيها لا تطبع بالطريقة العادية وإنما عندما تختارها عند الطباعة تقوم بتحويل صفحات التقرير إلى ملف PDF , بالتوفيق .
02-03-20, 05:28 PM
(02-03-20, 12:42 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , بالنسبة لتقرير الأكتف ريبورت تستطيع من خلال مكتبة تابعة للأكتف ريبورت تمكك من حفظ التقرير كملف PDF أما بالنسبة للداتا ريبورت وأيضا للأكتف ريبورت أو أي أنواع تقارير أخرى يوجد برامج مجانية تقوم بتعريف طابعة في جهازك حيث عندما تطبع التقرير فيها لا تطبع بالطريقة العادية وإنما عندما تختارها عند الطباعة تقوم بتحويل صفحات التقرير إلى ملف PDF , بالتوفيق .
تحياتي لك استاذ احمد
وشكراً على الرد
قمت باضافة اكتيف ريبورت
واسخدمت المكتبة مع الكود التالي
كود :
Dim myPDF As ARExportPDF
'to save as pdf
Set myPDF = New ARExportPDF
myPDF.FileName = App.Path & "\Invoice.PDF" 'or where you want to save your file
ActiveReport1.Export myPDF
'to show
ActiveReport1.Showالمشكلة ظهرت في السطر ActiveReport1.Export myPDF
مع رسالة الخطأ التالية بالرابط
03-03-20, 12:01 AM
أهلا بك أخي الكريم , الرسالة تقول لك لايوجد صفحات في التقرير ليتم تصديرها , عدل كودك ليصبح هكذا :
بالتوفيق .
PHP كود :
Dim myPDF As ARExportPDF
'to save as pdf
Set myPDF = New ARExportPDF
myPDF.FileName = App.Path & "\Invoice.PDF" 'or where you want to save your file
ActiveReport1.Run False
myPDF.Export ActiveReport1.Pages
'to clean up
Set ActiveReport1 = Nothing
Set myPDF = Nothing
بالتوفيق .
03-03-20, 10:54 AM
(03-03-20, 12:01 AM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم , الرسالة تقول لك لايوجد صفحات في التقرير ليتم تصديرها , عدل كودك ليصبح هكذا :
PHP كود :
Dim myPDF As ARExportPDF
'to save as pdf
Set myPDF = New ARExportPDF
myPDF.FileName = App.Path & "\Invoice.PDF" 'or where you want to save your file
ActiveReport1.Run False
myPDF.Export ActiveReport1.Pages
'to clean up
Set ActiveReport1 = Nothing
Set myPDF = Nothing
بالتوفيق .
بارك الله بك استاذ احمد
شكراً لك على ردك الجميل مع تقديري وامتناني لك
اصبح يعمل جيداً بهذا الكود و كنت اود ان يكون بطريقة احترافية اكثر حيث انني وجدت على الانترنت مثال
بنفس الطريقة (نفس المكتبة) ولكن يقوم باعطائك خيارالحفظ بشكل txt أو PDF او RTF
على هذا الرابط
http://www.freevbcode.com/ShowCode.asp?ID=1617
مثال سهل جداً ايضاً يوجد شرح ارجو ان يكون مفيد بالاضافة للكود البسيط من السيد احمد اذا كنت تريد حفظ الصفحة على شكل PDF مباشرة بدون خيارات حفظ
وشكراً لكم
29-06-20, 08:06 PM
(03-03-20, 12:01 AM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم , الرسالة تقول لك لايوجد صفحات في التقرير ليتم تصديرها , عدل كودك ليصبح هكذا :
PHP كود :
Dim myPDF As ARExportPDF
'to save as pdf
Set myPDF = New ARExportPDF
myPDF.FileName = App.Path & "\Invoice.PDF" 'or where you want to save your file
ActiveReport1.Run False
myPDF.Export ActiveReport1.Pages
'to clean up
Set ActiveReport1 = Nothing
Set myPDF = Nothing
عند التصدير الى بي دي اف اخي واستاذي احمد يتحول الى حروف مقلوبة ماهي الاسباب بارك الله فيك
بالتوفيق .
(29-06-20, 08:06 PM)عمور2016 كتب : [ -> ](03-03-20, 12:01 AM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم , الرسالة تقول لك لايوجد صفحات في التقرير ليتم تصديرها , عدل كودك ليصبح هكذا :
عند التصدير الى بي دي اف اخي واستاذي احمد يتحول الى حروف مقلوبة ماهي الاسباب بارك الله فيك
PHP كود :
Dim myPDF As ARExportPDF
'to save as pdf
Set myPDF = New ARExportPDF
myPDF.FileName = App.Path & "\Invoice.PDF" 'or where you want to save your file
ActiveReport1.Run False
myPDF.Export ActiveReport1.Pages
'to clean up
Set ActiveReport1 = Nothing
Set myPDF = Nothing
عند التصدير الى بي دي اف اخي واستاذي احمد يتحول الى حروف مقلوبة ماهي الاسباب بارك الله فيك
بالتوفيق .