View Full Version : سوال: Export گزارش به صورت فایل تصویری
VB.NET2005
شنبه 18 خرداد 1387, 16:32 عصر
با سلام :
میخاستم ببینم کسی در این مورد کدی داره ؟
parsavb
شنبه 25 خرداد 1387, 17:28 عصر
مثل اینکه علیرضا خان دیگه عصبانی شده و هر چی پست ما داریم تو تالار داره پاک می کنه
پس بهتره تا اخراجمون نکرده یه چیزی بنویسم
این کد برای ارسال گزارش به 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.