السلام عليكم ورحمة الله وبركاته
الأساتذه الكبار
طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf
كود لبرمجة زر بمجرد الضغط عليه يتم تصدير التقرير إلى صيغة pdf في مجلد منفصل
وعليكم السلام ورحمة الله وبركاته
هناك طريقتان سريعتان لذلك :
1- إذا كان العميل يعمل على ويندوز 10 ، فالصورة تشرح لك ما تعمل.
2 - وإذا كان يعمل على ويندوز أقل من ويندوز10، فأنصحه ينزل ويندوز10 وكرهه بأي نظام آخر وأرجع للصورة ونفذ اللي فيها..
3- طريقة ثالثة : إذا مش مقتنع ينزل ويندوز10 نزل أي برنامج فيه خاصية اضافة طابعة PDF .
أخي الغالي أريد كود لبرمجة زر بمجرد الضغط عليه ين=تم تصدير التقرير إلى صيغة pdf في مجلد منفصل
السلام عليكم
كنت عايز اعمل تقرير بالداتا ريبورت كنا هو موضح فى الصورة
كنت عايز اعمل تقرير الفاتورة مشتريات بتقرير بفيجول بيسك 6 كما موضح فى السابق
(31-12-21, 07:15 PM)hamada salah90 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
الأساتذه الكبار
طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf
كود لبرمجة زر بمجرد الضغط عليه يتم تصدير التقرير إلى صيغة pdf في مجلد منفصل
وعليكم السلام و رحمة الله و بركاته جرب هذه الطريقة
PHP كود :
Private Sub Command1_Click()
' الخطوة 1: إنشاء تقرير VB6
Dim reportText As String
reportText = "تقرير VB6" & vbCrLf & "تم إنشاؤه باستخدام PDFCreator في VB6."
' الخطوة 2: حفظ التقرير في ملف نصي مؤقت
Dim tempFilePath As String
tempFilePath = App.Path & "\TempReport.txt"
Open tempFilePath For Output As #1
Print #1, reportText
Close #1
' الخطوة 3: استخدام PDFCreator لتصدير التقرير إلى PDF
Dim pdfCreator As Object
Set pdfCreator = CreateObject("PDFCreator.clsPDFCreator")
' تحقق من تشغيل PDFCreator كخدمة
If pdfCreator.cStart("/NoProcessingAtStartup") = False Then
MsgBox "لا يمكن بدء PDFCreator", vbExclamation
Exit Sub
End If
' انتظار حتى اكتمال التحويل
Do Until pdfCreator.cIsPrintJobInQueue = False
DoEvents
Loop
' تحويل الملف إلى PDF باستخدام PDFCreator
pdfCreator.cOption("UseAutosave") = 1
pdfCreator.cOption("UseAutosaveDirectory") = 1
pdfCreator.cOption("AutosaveDirectory") = App.Path
pdfCreator.cOption("AutosaveFilename") = "Report.pdf"
pdfCreator.cSaveOptions
pdfCreator.cPrintFile tempFilePath
' انتظار حتى اكتمال التحويل
Do Until pdfCreator.cIsPrintJobInQueue = False
DoEvents
Loop
' الخطوة 4: إغلاق PDFCreator
pdfCreator.cClose
' حذف الملف المؤقت
Kill tempFilePath
MsgBox "تم تصدير التقرير إلى ملف PDF بنجاح!", vbInformation
End Sub
(16-01-24, 11:56 PM)Kamil كتب : [ -> ] (31-12-21, 07:15 PM)hamada salah90 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
الأساتذه الكبار
طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf
كود لبرمجة زر بمجرد الضغط عليه يتم تصدير التقرير إلى صيغة pdf في مجلد منفصل
وعليكم السلام و رحمة الله و بركاته جرب هذه الطريقة
PHP كود :
Private Sub Command1_Click()
' الخطوة 1: إنشاء تقرير VB6
Dim reportText As String
reportText = "تقرير VB6" & vbCrLf & "تم إنشاؤه باستخدام PDFCreator في VB6."
' الخطوة 2: حفظ التقرير في ملف نصي مؤقت
Dim tempFilePath As String
tempFilePath = App.Path & "\TempReport.txt"
Open tempFilePath For Output As #1
Print #1, reportText
Close #1
' الخطوة 3: استخدام PDFCreator لتصدير التقرير إلى PDF
Dim pdfCreator As Object
Set pdfCreator = CreateObject("PDFCreator.clsPDFCreator")
' تحقق من تشغيل PDFCreator كخدمة
If pdfCreator.cStart("/NoProcessingAtStartup") = False Then
MsgBox "لا يمكن بدء PDFCreator", vbExclamation
Exit Sub
End If
' انتظار حتى اكتمال التحويل
Do Until pdfCreator.cIsPrintJobInQueue = False
DoEvents
Loop
' تحويل الملف إلى PDF باستخدام PDFCreator
pdfCreator.cOption("UseAutosave") = 1
pdfCreator.cOption("UseAutosaveDirectory") = 1
pdfCreator.cOption("AutosaveDirectory") = App.Path
pdfCreator.cOption("AutosaveFilename") = "Report.pdf"
pdfCreator.cSaveOptions
pdfCreator.cPrintFile tempFilePath
' انتظار حتى اكتمال التحويل
Do Until pdfCreator.cIsPrintJobInQueue = False
DoEvents
Loop
' الخطوة 4: إغلاق PDFCreator
pdfCreator.cClose
' حذف الملف المؤقت
Kill tempFilePath
MsgBox "تم تصدير التقرير إلى ملف PDF بنجاح!", vbInformation
End Sub
أخي الغالي تظهر لي هذه الرسالة