ReportViewerで直接印刷の方法（エラー解消）について

OS:Windows10
言語:VisualStudio2019 VB.net
ソリューション:WinForm
DB:Postgresql
帳票ツール:ReportViewer

VB.netで帳票をプレビュー無しでボタン押下から直接印刷する方法を探しています。
掲示板等で検索したところ帳票イメージを作成して印刷すれば出来る様なことが記述されていたのですが、
実際にやってみるとエラーになって動きませんでした。
Exception：Microsoft.Reporting.WinForms.LocalProcessingException
で、Report1.rdlcが無い？また無効？みたいなエラーになります。
ソリューション内には勿論のこと、ビルド先にもReport1.rdlcはコピーしてあります。

解決方法がわかりませんでしたので、エラーの解消方法もしくは他の直接印刷方法をご教授ください。

よろしくお願いいたします。


画面クラス
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim list As List(Of dataclass)
        Dim lrep As LocalReport = New LocalReport

        ' データ取得(DB読み込みでListに格納)
        list = dao.selectdata()

        'レポートパラメータを作成
        Dim param As ReportParameter = New ReportParameter("hiduke", "2021/10/15")

        lrep.ReportEmbeddedResource = "Report1.rdlc"
        lrep.DataSources.Add(New ReportDataSource("DataSet1", list))
        lrep.SetParameters(param)   ←ここでエラーになる

        Dim printDialog1 As PrintDialog = New PrintDialog
        Dim PrintDocument1 As PrintDocument = New PrintDocument
        Dim result As DialogResult = printDialog1.ShowDialog
        If (result = DialogResult.OK) Then
            PrintDocument1.PrinterSettings.PrinterName = printDialog1.PrinterSettings.PrinterName
            Dim pt As PrintToPrinter = New PrintToPrinter
            pt.Print(lrep, PrintDocument1)
        End If
    End Sub


モジュール（帳票イメージ作成及び印刷）
Public Class PrintToPrinter
    Private streams As New System.Collections.Generic.Queue(Of System.IO.Stream)

    Public Sub Print(ByVal localReport As Microsoft.Reporting.WinForms.LocalReport,
                         ByVal printdoc As System.Drawing.Printing.PrintDocument)

        Dim deviceInfo As String = "<DeviceInfo><OutputFormat>EMF</OutputFormat></DeviceInfo>"
        Dim warnings() As Microsoft.Reporting.WinForms.Warning = Nothing
        streams.Clear()
        localReport.Render("Image", deviceInfo, AddressOf GetStream, warnings)
        If streams.Count > 0 Then
            AddHandler printdoc.PrintPage, AddressOf PrintPage
            printdoc.Print()

            RemoveHandler printdoc.PrintPage, AddressOf PrintPage
        End If
    End Sub

    Private Function GetStream(ByVal name As String,
                                   ByVal fileNameExtension As String,
                                   ByVal encoding As System.Text.Encoding,
                                   ByVal mimeType As String,
                                   ByVal willSeek As Boolean) As System.IO.Stream
        Dim ms As New System.IO.MemoryStream()
        streams.Enqueue(ms)
        Return ms
    End Function

    Private Sub PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)
        Using ms As System.IO.Stream = streams.Dequeue()
            ms.Position = 0
            Dim pageImage As New System.Drawing.Imaging.Metafile(ms)
            ev.Graphics.DrawImage(pageImage, ev.PageBounds)
            ms.Dispose()
        End Using
        ev.HasMorePages = (streams.Count > 0)
    End Sub
End Class

退会済みユーザー

2021/10/18 12:03

まずはともかくコードを ``` と ``` で囲ってください（``` はバッククォート 3 つ）。インデントされて見やすくなるので。インデントされてないコードはあなたも読む気がしないのでは？　閲覧者はなおさらです。

kagemune

2021/10/19 11:06

失礼しました。質問掲示板を利用するのが初めてだったので使い方がよくわかっていませんでした。コード部分をバッククォートで括ったので見やすくはなったと思います。ご指摘ありがとうございます。

退会済みユーザー

2021/10/21 22:56

「プレビュー無しで」=「ReportViewer コントロールを使わない」という意味ですか？

kagemune

2021/10/25 10:35

はい。 ReportViewerコントロールを使用しないで、普通のフォームに張り付けているボタン押下から直接印刷を行うということです。プレビューの表示およびプリンター設定（設定値をINIファイルから読み出します）はしない仕様なので。コントロールを非表示にすることで対応できるのであればそれでも良いのですが。。。