+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: کریستال ریپورت (/showthread.php?tid=2197)
RE: کریستال ریپورت - parvin - 05-09-2012
دو تا مشکل با کریستال ریپورت دارم.
1- چرا وقتی روی دکمه چاپ توی گزارشم کلیک میکنم از گزارشم پرینت نمیگیره؟
2- چرا عکسهای توی بانک تو گزارش نشون داده نمیشه؟
ممنون میشم کمک کنین
RE: کریستال ریپورت - Amin_Mansouri - 05-09-2012
2 تا تابع زیر 2 کارو انجام میدن یاز به توضیح نیست اسم تابع ها مشخصه در اخرش هم یه سورس کد پرینت کردن حرفه ای هم پیسوت کردم برات
من نمیدونم چطوری و با چه روش پرینت میکنی اما تابع زیر بهت کمک میکنه
کد:
Dim CRReport As CRPEAuto.Report
Dim CRWindow As CRPEAuto.Window
Dim CRView As CRPEAuto.View
Dim CRApp As CRPEAuto.Application
Public ReportFileName As String
Public Title As String
Public Sub Preview()
On Error GoTo ErrMsg
Set CRApp = CreateObject("crystal.crpe.application")
Set CRReport = CRApp.OpenReport(App.Path + "\report\" + ReportFileName)
CRReport.DiscardSavedData
Set CRView = CRReport.Preview(Title)
Set CRWindow = CRView.Parent
CRWindow.ControlsVisible = True
Exit Sub
ErrMsg:
MsgBox CStr(Err.Number) + " : " + Err.Description
End Sub
Public Sub PrintToPrinter()
On Error GoTo ErrMsg
Set CRApp = CreateObject("crystal.crpe.application")
Set CRReport = CRApp.OpenReport(App.Path + "\report\" + ReportFileName)
CRReport.DiscardSavedData 'reset all the data in report
CRReport.PrintOut
Exit Subسورس 2 :
print (www.parsicoders.com).rar (اندازه 56.91 KB / تعداد دانلود: 13)
RE: کریستال ریپورت - parvin - 05-13-2012
یه مشکل دیگه با کریستال دارم.
تو رکوردهای بانکم یه فیلد هست که مقادیر مختلفی میگیره و بعضی وقتها هم خالی میمونه. چطوری میتونم فقط رکوردهایی رو نشون بدم که این فیلدشون پره(بدون توجه به اینکه تو این فیلد چیه؟)و رکوردهایی که این فیلدشون خالیه نشون داده نشن؟
RE: کریستال ریپورت - Amin_Mansouri - 05-14-2012
خوب فیلدو با vbnullstring مقایسه کن اگر خالی بود شرط بزار
چرا قبل از اینکه برنامه بره سراغ کریستال چک نمیکنی ؟
RE: کریستال ریپورت - Amin_Mansouri - 05-14-2012
اینجا هم مطالع کن کلی بهت زیاد کمک میکنه
http://www.vb6.us/tutorials/using-crystal-reports-vb6-tutorial
RE: کریستال ریپورت - parvin - 05-14-2012
ممنون آقا امین.
آخه راستش چندین حالت داره که نمی خوام با وی بی بنویسم. با خود کریستال ریپورت راحته به شرط اینکه مقدار داخل فیلد تو همه رکوردها یکسان باشه. ولی تو بانک من این فیلد تو هر رکورد ممکنه مقادیر مختلفی بگیره.