Export گزارش به صورت فایل تصویری

[VB.NET2005]

با سلام :
میخاستم ببینم کسی در این مورد کدی داره ؟

[parsavb]

مثل اینکه علیرضا خان دیگه عصبانی شده و هر چی پست ما داریم تو تالار داره پاک می کنه
پس بهتره تا اخراجمون نکرده یه چیزی بنویسم
این کد برای ارسال گزارش به pdf است امیدوارم به دردتون بخوره
البته من کد رو از زمانی نوشتم که گزارش آماده ارسال است




Imports System.Data.SqlClient

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class frm_test
Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New rpt_report1
CrystalReportViewer1.ReportSource = rpt
rpt.close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim report As New rpt_report1
Dim exp_option As New ExportOptions
Dim pdf_exp_optin As New PdfRtfWordFormatOptions()
Dim disk_option As New DiskFileDestinationOptions()
exp_option.ExportFormatType = ExportFormatType.PortableDocFormat
pdf_exp_optin.FirstPageNumber = 1
pdf_exp_optin.LastPageNumber = 20
pdf_exp_optin.UsePageRange = True

exp_option.ExportFormatOptions = pdf_exp_optin
disk_option.DiskFileName = "c:\pdf_report1"

exp_option.destianationoption = disk_option
report.export(exp_option)
report.close()
End Sub
End Class