[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 


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