tstsst
پنج شنبه 18 اسفند 1390, 12:23 عصر
سلام
من برای این کار از کد زیر استفاده کردم ( برای PDF , EXCEL) درست جواب میده ولی برای ms-word نمی دونم بخش format رو چی بزارم !!!
من word, msword , Application/msword, microsoftofficeword, ms-word,doc,Document,
رو امتحان کردم نشد !!
FolderBrowserDialog1.ShowDialog()
Dim wg As Microsoft.Reporting.WinForms.Warning() = Nothing
Dim sm As String() = Nothing
Dim mt As String = Nothing
Dim ec As String = Nothing
Dim ex As String = Nothing
Dim fp As String = FolderBrowserDialog1.SelectedPath.ToString
fp += "\Summary.doc"
Dim bytes As Byte()
bytes = ReportViewer1.LocalReport.Render("Application/msword", Nothing, mt, ec, ex, sm, wg)
Dim fs As New FileStream(fp, FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()
من برای این کار از کد زیر استفاده کردم ( برای PDF , EXCEL) درست جواب میده ولی برای ms-word نمی دونم بخش format رو چی بزارم !!!
من word, msword , Application/msword, microsoftofficeword, ms-word,doc,Document,
رو امتحان کردم نشد !!
FolderBrowserDialog1.ShowDialog()
Dim wg As Microsoft.Reporting.WinForms.Warning() = Nothing
Dim sm As String() = Nothing
Dim mt As String = Nothing
Dim ec As String = Nothing
Dim ex As String = Nothing
Dim fp As String = FolderBrowserDialog1.SelectedPath.ToString
fp += "\Summary.doc"
Dim bytes As Byte()
bytes = ReportViewer1.LocalReport.Render("Application/msword", Nothing, mt, ec, ex, sm, wg)
Dim fs As New FileStream(fp, FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()