印刷するにはどうするReportViewerの報告な形

StackOverflow https://stackoverflow.com/questions/731049

  •  06-09-2019
  •  | 
  •  

質問

がこうだけのショーの画面上では表示され、その他多くの形式のサポートhackish wizardry、私は棒と禅道とこれからのオーダーに応えてきた。私には効率よく短時間で地元の報告書でサーバーするものなのかどうかに関して与えてあげたいユーザーのオプションのいずれかを閲覧または印刷(その他の言葉にならないようにしたい力して解決していくために印刷中).残念ながら、ReportViewer制御不約の"状態"私がプリントしてみたら楽しいのいずれかを成分としていを明示的に私のコード(内部用()ブロック、または合っていインスタンスを生成する私のビューアの形で印刷くのことを示します。

あるということは非常に収まりが良くなっていくきっか画面へお進んです。

役に立ちましたか？

解決

いたサンプルはここに掲載して私のこのブログはこちら http://blogs.msdn.com/brianhartman/archive/2009/02/27/manually-printing-a-report.aspx

のLocalReportオブジェクトでインスタンスを生成できる独自のReportViewer制御用のサンプルコードを付けることができます。まで渡すことができますReportViewer.LocalReportない場合でも最初の表示の報告のポートします。

他のヒント

...これをチェックアウトし、それが助けかどうかを確認し、 http://scruffylookingcatherder.com/archive/2007/12/07/printing-reporting-services-2005-reports.aspx の

少し説明：プリンタに画像を送信EMFイメージにレポートをレンダリングするためにSSRS Webサービスを使用しています。

。

あなたのために非常に便利な下記のリンクを参照してください。 のhttp：/ /social.msdn.microsoft.com/Forums/en-US/9f52d79d-5baf-4e84-97d5-7dbba6623b89/printing-without-the-reportviewerする 

Private Sub btnReceipt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReceipt.Click


    My.Forms.FormA5.ReportViewer.LocalReport.DataSources.Clear()
    Dim cmd = New SqlClient.SqlCommand("Select * from V_Sale where InvoiceNo=" & Me.txtInvoice.Text, cn)
    Dim dr = cmd.ExecuteReader()
    Dim dt As New DataTable
    dt.Load(dr)
    dr.Close()
    Dim rpt As New ReportViewer
    rpt.LocalReport.DataSources.Clear()
    rpt.LocalReport.DataSources.Add(New ReportDataSource("posds_receipt", dt))
    rpt.LocalReport.ReportEmbeddedResource = "POSsystem.receipt.rdlc"
    rpt.SetDisplayMode(DisplayMode.PrintLayout)
    rpt.ZoomMode = ZoomMode.FullPage

    Dim printDialog1 As PrintDialog = New PrintDialog
    printDialog1.Document = PrintDocument1
    Dim result As DialogResult = printDialog1.ShowDialog
    If (result = DialogResult.OK) Then
        PrintDocument1.Print()
    End If

End Sub
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top