الكود:


Private Sub Form_Load ()

CrystalReport1.ReportFileName = App.Path & "/soft.rpt"

End Sub


الكود:


Private Sub Command1_Click ()
CrystalReport1.Action = 1
End Sub


ذوكا كتب:طالما قمت بتصميم التقرير فاليك كيفية تشغلية و عرضة ...واكتب الكود التالى فى حدث الورم لوود :

الكود:


Private Sub Form_Load ()

CrystalReport1.ReportFileName = App.Path & "/soft.rpt"

End Sub


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

الكود:


Private Sub Command1_Click ()
CrystalReport1.Action = 1
End Sub


و اليك المقال التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الكود:

 With CrystalReport1
        .ReportFileName = App.Path & "\soft.rpt"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
        SQLQuery = "{Basicdata.Account_Number}=" & Val(txtNo.Text)
        .ReportTitle = "Employee Details Report"
        .Destination = crptToWindow
        .PrintFileType = crptCrystal
        .WindowState = crptMaximized
        .WindowMaxButton = False
        .WindowMinButton = Fals
        .SelectionFormula = SQLQuery
           
        .Action = 1
    End With


Microformt كتب:
اخي العزيز
 السلام عليكم ورحمة وبركاته
 الرجاء التاكد من صيغة السوال قبل الاجابه!؟  
انا استخدم برنامج كريستال ريبوت 8.5
وانت تجيب على السوال
 بجابة كريستال ربيوت 6.4
ارجوك التاكد من السوال ثم الاجابه عليه ارجوك