sv sathish Ответов: 3

как программно сохранить отчет RDLC в формате PDF с помощью vb.net

привет...
i создание отчета разработка в vb.net,я хочу сохранить отчет rdlc автоматически в формате pdf.pls отправить свой код..

3 Ответов

Рейтинг:
19

sv sathish

Эта проблема решена см. решение означает перейти к

Как сохранить отчет RDLC в формате Pdf в vb.net приложение для windows[^]

Рейтинг:
1

Rakesh Meel

Я могу помочь с экспортом, не знаю, как печатать - и у меня есть только пример C# :

ЭКСПОРТ В EXCEL ИЛИ PDF

В отчете есть кнопка, позволяющая пользователю экспортировать данные в excel или pdf. Однако если вы хотите принудительно выполнить экспорт с помощью кода, просто добавьте этот код:

private void exportToExcel(string DestWhereExcelFileWillBe)

{

System.IO.FileInfo fi = new System.IO.FileInfo(DestWhereExcelFileWillBe);

if (fi.Exists) fi.Delete();

Warning[] warnings;

string[] streamids;

string mimeType, encoding, filenameExtension;

byte[] bytes = reportViewer1.LocalReport.Render( "Excel", null, out mimeType, out encoding, out filenameExtension,

out streamids, out warnings);

System.IO.FileStream fs = System.IO.File.Create(DestWhereExcelFileWillBe);

fs.Write(bytes, 0, bytes.Length);

fs.Close();

}



или VB.Net пример кода здесь

Код, который я использую для создания одного отчета в формате PDF, таков::

Dim warnings As Microsoft.Reporting.WebForms.Warning() = Nothing

Dim streamids As String() = Nothing

Dim mimeType As String = Nothing

Dim encoding As String = Nothing

Dim extension As String = Nothing

Dim deviceInfo As String

Dim bytes As Byte()

Dim lr As New Microsoft.Reporting.WebForms.LocalReport

deviceInfo = "<deviceinfo><simplepageheaders>True</simplepageheaders></deviceinfo>"

bytes = ReportViewer1.LocalReport.Render("PDF", deviceInfo, mimeType, encoding, extension, streamids, warnings)

Response.ClearContent()

Response.ClearHeaders()

Response.ContentType = "application/pdf"

Response.BinaryWrite(bytes)

Response.Flush()

Response.Close()


[Правка МК] Источник Решения

fjdiewornncalwe

Если вы собираетесь скопировать/вставить решение из другого источника (в данном случае ОТСЮДА) тогда, пожалуйста, приведите источник.

Рейтинг:
1

sv sathish

я делаю тот же код для Здесь моего кода:

Imports Microsoft.Reporting.WinForms
Public Class Form1
    Public Property strReport As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.companyTableAdapter.Fill(Me.invoicedbDataSet.company)
        Dim rptDataSource As ReportDataSource
        Try
            With Me.ReportViewer1.LocalReport
                .DataSources.Clear()
            End With

            Dim ds As New report.invoicedbDataSet
            Dim da As New report.invoicedbDataSetTableAdapters.companyTableAdapter
            da.Fill(ds.company)
            rptDataSource = New ReportDataSource("DataSet1", ds.Tables("company"))
            Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
            Me.ReportViewer1.RefreshReport()

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

Tarhe

Я не могу найти, где этот кусок кода сохраняет отчеты в PDF программно.