+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf (/showthread.php?tid=40365)
طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - hamada salah90 - 31-12-21
السلام عليكم ورحمة الله وبركاته
الأساتذه الكبار
طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf
كود لبرمجة زر بمجرد الضغط عليه يتم تصدير التقرير إلى صيغة pdf في مجلد منفصل
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - Taha Okla - 31-12-21
وعليكم السلام ورحمة الله وبركاته
هناك طريقتان سريعتان لذلك :
1- إذا كان العميل يعمل على ويندوز 10 ، فالصورة تشرح لك ما تعمل.
2 - وإذا كان يعمل على ويندوز أقل من ويندوز10، فأنصحه ينزل ويندوز10 وكرهه بأي نظام آخر وأرجع للصورة ونفذ اللي فيها..
3- طريقة ثالثة : إذا مش مقتنع ينزل ويندوز10 نزل أي برنامج فيه خاصية اضافة طابعة PDF .
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - hamada salah90 - 01-01-22
أخي الغالي أريد كود لبرمجة زر بمجرد الضغط عليه ين=تم تصدير التقرير إلى صيغة pdf في مجلد منفصل
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - ekaram - 24-10-23
السلام عليكم
كنت عايز اعمل تقرير بالداتا ريبورت كنا هو موضح فى الصورة
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - ekaram - 16-01-24
كنت عايز اعمل تقرير الفاتورة مشتريات بتقرير بفيجول بيسك 6 كما موضح فى السابق
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - Kamil - 16-01-24
(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
RE: طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf - hamada salah90 - 19-01-24
(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
أخي الغالي تظهر لي هذه الرسالة