چند تا سوال در مورد PDF ونمودار

[mehdijoooon]

سلام به همه دوستاي گلم
من توي برنامه دو تا مشكل دارم اولي اينه كه ميخوام خروجي PDFبگيرم نميدونم چيزي هست بتونه مثلا محتويات Datagrid رو خروجي PDFبده؟؟
دومي نموداره يه نمونه اگه بذارين كه عاليه
ميخوام سطر نمودار يه فيلد از بانك باشه و ستونش هم يه فيلد ديگه
مرسي

[kitcat_m18]

سلام،
بسته نرم افزار ComponentOne Studio رو نصب کن ابزار های زیادی توش داره.
VsFlexGrid بهترین گرید برای این کاره اما خروجی PDF نمیده.
شما برای خروجی PDF باید از ابزار های گزارش گیری مثل Active Report و یا Crystal Reports استفاده کنی.
برای Chart هم ابزار داره که خودم همیشه از این چارت ها استفاده می کنم چون امکانات زیادی داره و فارسی رو هم به خوبی پشتیبانی می کنه
موفق باشی :لبخندساده:

[mehdijoooon]

kitcat_m18 عزيز مرسي از راهنماييت
من بانكم پسورد داره و كريستال ريپورت ارور ميده بنابر اين از كريستال ريپورت نميتونم استفاده كنم پسورد بانكم رو هم نميتونم بردارم به دلايل امنيتي!
من چشم اميدم به توئه..!
دمت گرم..

[kitcat_m18]

کی گفته نمیشه با کریستال ریپورت به بانک پسورد دار وصل شد؟؟؟

Dim CRapp As New CRAXDDRT.Application
Dim CRrep As New CRAXDDRT.Report
Dim Crtable As CRAXDDRT.DatabaseTable

Private Sub Form_Load()

Set CRrep = CRapp.OpenReport(App.Path & "\Report\CrystalReport.Rpt")

For Each Crtable In CRrep.Database.Tables
Crtable.ConnectionProperties.Item("Database Name") = App.Path & "\Database.mdb"
Crtable.ConnectionProperties.Item("Database Password") = "YourPassword"
Next

CRrep.RecordSelectionFormula = "{ُُShomareh}= '" & Shomare.Text & "'"

CRViewer.ReportSource = CRrep
CRViewer.ViewReport
CRrep.DiscardSavedData

End Sub

موفق باشی :لبخندساده:

[hosein3000]

مهندس حالا نمیشه تحت هیچ شرایطی بدون استفاده از کریستال ریپورت از دیتاگرید خروجی پی دی اف تهیه کرد؟
چون من نه کریستال ریپورت دارم و نه اینکه بلدم ازش استفاده کنم و هم نمی خوام تو برنامه ام زیاد از ocx های مختلف استفاده کنم

راستی چطور میشه محتویات دیتاگرید رو بدون دیتا ریپورت به چاپگر فرستاد؟

[kitcat_m18]

سلام،

مهندس حالا نمیشه تحت هیچ شرایطی بدون استفاده از کریستال ریپورت از دیتاگرید خروجی پی دی اف تهیه کرد؟
شاید بشه اما من بلد نیستم، چون برای این کار ابزار وجود داره. و بهتون معرفی کردم.

چون من نه کریستال ریپورت دارم و نه اینکه بلدم ازش استفاده کنم
بهتره یاد بگیری چون اگه می خوای برنامه نویسی کنی بهش احتیاج داری، منم نداشتم رفتم خریدم

و هم نمی خوام تو برنامه ام زیاد از ocx های مختلف استفاده کنم
ببخشید اما بعضی از حرفا کفرم رو در میاره :عصبانی: عزیز دلم می دونی چرا برنامه نویسا تو برنامه هاشون زیاد از OCX و کامپوننت های اضافی استفاده نمی کنن؟؟؟
برای اینکه سرعت برنامشون پایین نیاد، این سرعتی هم که می گم در حدی هست که شما قادر به تشخیصش نیستی، دلیل دیگشونم اینه که منابع سخت افزاری زیادی اشغال نشه، حالا تو یه برنامه فکستنی که با وی بی می نویسی این حرفا چه مفهومی داره؟؟؟ کسی این حرفا رو میزنه که داره یه برنامه تجاری یا اصلا یه برنامه ای میسازه که نیازه سرعت بسیار بالایی داشته باشه. شما که ماشالا برنامت الان نقش فرقون رو داره، هی اطلاعات میگیری میریزی تو دیتابیس.

راستی چطور میشه محتویات دیتاگرید رو بدون دیتا ریپورت به چاپگر فرستاد؟
اگه مشکلی نیست یه سر به مجموعه ای که بهت معرفی کردم بزن

موفق باشی :لبخندساده:

[hosein3000]

مهندس چرا عصبانی می شی

خوب منظور من از استفاده نکردن از ocx و dll های اضافی سرعت نیست . به خاطر اینکه اکثرا هنگام نصب تو سیستم های مختلف خطا می دن به علت درست رجیستر نشدن که شاید اشکال از خود من باشه

به همین خاطر ترجیح می دم زیاد دورو بره این جور فایل ها نرم و حدالامکان ازشون استفاده نکنم :گریه:

ولی اتفاقا فرقون رو خوب اومدی !! نمی دونم از کجا متوجه شدی ولی به هر حال ممنون :گریه:

در مورد دیتاگرید تو یه سایت کد زیر رو پیدا کردم اما هر کاری کردم پرینت نکرد

Dim BeginPage, EndPage, NumCopies, Orientation, i
'Set Cancel to true
CommonDialog1.CancelError = True
On Error GoTo Errhandler
'Display the print dialog box
CommonDialog1.ShowPrinter
'Get user-selected values from the dialog box
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Orientation
For i = 1 To NumCopies
'put codes here to send data to your printer
' something.PrintForm
Me.DataGrid1.Print

Next
Exit Sub
Errhandler:
'user press cancel button
Exit Sub

[mehdijoooon]

مرسي Kitcat عزيز واقعا ممنون از راهنمايي هاي خوبت..
:قلب: