[hamada salah90]

السلام عليكم ورحمة الله وبركاته

الأساتذه الكبار


طريقة تصدير بيانات الداتا ريبورت datareport  لصيغة  pdf

كود لبرمجة زر بمجرد الضغط عليه يتم تصدير التقرير إلى صيغة pdf  في مجلد منفصل

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته 

هناك طريقتان سريعتان لذلك :
1- إذا كان العميل يعمل على ويندوز 10 ، فالصورة تشرح لك ما تعمل.
2 - وإذا كان يعمل على ويندوز أقل من ويندوز10، فأنصحه ينزل ويندوز10 وكرهه بأي نظام آخر وأرجع للصورة ونفذ اللي فيها..
3- طريقة ثالثة : إذا مش مقتنع ينزل ويندوز10 نزل أي برنامج فيه خاصية اضافة طابعة PDF .

[hamada salah90]

أخي الغالي أريد كود لبرمجة زر بمجرد الضغط عليه ين=تم تصدير التقرير إلى صيغة pdf  في مجلد منفصل

[ekaram]

السلام عليكم
كنت عايز اعمل تقرير بالداتا ريبورت كنا هو موضح فى الصورة

[ekaram]

كنت عايز اعمل تقرير الفاتورة مشتريات بتقرير بفيجول بيسك 6 كما موضح فى السابق

[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 


[hamada salah90]

(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 


 أخي الغالي تظهر لي هذه الرسالة