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 مباشرة بدون خيارات حفظ
وشكراً لكم