winform 水晶报表 更改 打印队列 中的 文档名 (Set Crystal Reports Document Name In Printer Queue)

项目有个很变态的需求.由于预计同时打印的报表特别多.所以要给每个打印文档命名,以便知道每个病人报表的打印情况,可是水晶报表似乎并没有提供设置在提交给打印机队列前设置文档名,都是默认是document ,网上找了一天似乎都没结果,要么是根本就是没有实现,要么就是一点理解有问题.

.思考摸索了一天,google了一天,没有合适的解决方案!很遗憾,心一横用了一个周末的时间重写了CrystalReportViewer控件..希望对后来人有帮助..

源代码如下:

 

Imports CrystalDecisions.Windows.Forms
Imports System.Reflection
Imports System.ComponentModel
Imports System.Drawing.Printing
Imports CrystalDecisions.CrystalReports.ViewerObjectModel
'add jove 2010-12-05
Namespace myReportViewerTools


    ''' 

    
''' 重写的报表打印工具(add jove 2010-12-05)
    ''' 可以控制打印机队列的中 jobName
    ''' 
    ''' 
    Public Class myCrystalReportViewer
        Inherits CrystalReportViewer
        Private pageView1 As PageView
        Public Sub New()
            MyBase.New()
        End Sub
        Private _jobName As String = "Doc" & Date.Now.ToString("yyyy-MM-dd HH:mm:ss")
        
        ''' 

        
''' 设置打印队列中的名称
        ''' 
        ''' 
        ''' 
        Public WriteOnly Property JobName()
            Set(ByVal value)
                If Not String.IsNullOrEmpty(value) Then
                    _jobName = value
                End If
            End Set
        End Property

        Private Sub laog() Handles Me.Load
            Dim ponfo = GetType(CrystalReportViewer).GetField("pageView", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
            If ponfo IsNot Nothing Then
                pageView1 = ponfo.GetValue(Me)
                Dim ponfobtn = GetType(PageView).GetField("printButton", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
                If ponfobtn IsNot Nothing Then
                    Dim btn As ToolStripButton = ponfobtn.GetValue(Me.pageView1)
                    RemoveEvent(btn)
                    'AddHandler btn.Click, AddressOf showmsg
                    AddHandler btn.Click, AddressOf PrintReport
                End If

            End If
        End Sub
        ''' 

        
''' 移除控件上的特定类型的委托队列
        ''' 
        ''' 
        ''' 
        Private Sub RemoveEvent(ByVal c As ToolStripButton)
            Dim d As EventHandler = GetDelegate(c, "EventClick")
            If d IsNot Nothing Then
                For Each tmp As [Delegate] In d.GetInvocationList()
                    RemoveHandler c.Click, tmp
                Next
            End If
        End Sub
        ''' 

        
''' 获得某控件上的特定委托
        ''' 
        ''' 
        ''' 
        ''' 
        ''' 
        Private Function GetDelegate(ByVal issuer As Component, ByVal keyName As String) As Object
            Dim key = issuer.GetType() _
                    .GetField(keyName, BindingFlags.Static Or BindingFlags.NonPublic Or BindingFlags.FlattenHierarchy) _
                    .GetValue(Nothing)
            Dim events = GetType(Component).GetField("events", BindingFlags.Instance Or BindingFlags.NonPublic).GetValue(issuer)
            Dim listEntry = GetType(EventHandlerList) _
                     .GetMethod("Find", BindingFlags.NonPublic Or BindingFlags.Instance) _
                     .Invoke(events, New Object() {key})
            Dim handler = listEntry _
                     .GetType() _
                     .GetField("handler", BindingFlags.Instance Or BindingFlags.NonPublic) _
                     .GetValue(listEntry)
            Return handler
        End Function
        ''' 

        
''' 设置value
        ''' 
        ''' 
        ''' 
        ''' 
        ''' 
        Private Sub SetPrivat(ByVal obj As Object, ByVal strname As String, ByVal vaule As Object)
            If obj Is Nothing Then
                Return
            End If
            Dim fd = GetType(ReportDocumentBase).GetField(strname, BindingFlags.Instance Or BindingFlags.NonPublic)
            fd.SetValue(obj, vaule)
        End Sub
        ''' 

        
''' 获得值
        ''' 
        ''' 
        ''' 
        ''' 
        ''' 
        Private Function GetPrivat(ByVal obj As Object, ByVal strname As String) As Object
            If obj Is Nothing Then
                Return Nothing
            End If
            Dim fd = GetType(ReportDocumentBase).GetField(strname, BindingFlags.Instance Or BindingFlags.NonPublic)
            Return fd.GetValue(obj)
        End Function

        ''' 

        
''' 测试代码
        ''' 
        ''' 
        Private Sub showmsg()
            MsgBox(Date.Now.ToLongTimeString)
        End Sub
        ''' 

        
''' 重写报表打印方法
        ''' 
        ''' 
        Public Overrides Sub PrintReport()
            Dim activeDocument As ReportDocumentBase = CType(pageView1.GetActiveDocument(), ReportDocumentBase)
            If (Not activeDocument Is Nothing) Then
                'activeDocument.Print()

                Dim dialog As New PrintDialog
                dialog.UseEXDialog = True
                dialog.AllowSomePages = True
                Dim settings As New PrinterSettings
                settings.MinimumPage = 1
                settings.FromPage = 1
                Dim minfo1 = GetType(ReportDocumentBase).GetMethod("GetLastPageNumber", BindingFlags.Instance Or BindingFlags.NonPublic)
                settings.MaximumPage = minfo1.Invoke(activeDocument, Nothing)
                settings.ToPage = settings.MaximumPage
                If (settings.MinimumPage <= settings.MaximumPage) Then
                    Dim document As New PrintDocument
                    document.DocumentName = _jobName
                    document.PrinterSettings = settings
                    Dim minfo2 = GetType(ReportDocumentBase).GetMethod("isPaperLandscape", BindingFlags.Instance Or BindingFlags.NonPublic)
                    document.DefaultPageSettings.Landscape = minfo2.Invoke(activeDocument, Nothing)
                    Dim minfo = GetType(ReportDocumentBase).GetMethod("getPaperKind", BindingFlags.Instance Or BindingFlags.NonPublic)
                    Dim kind As PaperKind = minfo.Invoke(activeDocument, Nothing)
                    Dim size As PaperSize
                    For Each size In settings.PaperSizes
                        If (size.Kind = kind) Then
                            document.DefaultPageSettings.PaperSize = size
                            Exit For
                        End If
                    Next
                    dialog.Document = document
                    Dim oK As DialogResult = DialogResult.OK
                    Dim b = New PrintingPermission(PrintingPermissionLevel.AllPrinting)
                    b.Assert()
                    Try
                        oK = dialog.ShowDialog
                    Catch exception1 As Exception

                    End Try
                    If (oK <> DialogResult.OK) Then
                        settings = Nothing
                    Else
                        AddHandler dialog.Document.PrintPage, New PrintPageEventHandler(AddressOf myPrintPageEventHander)
                        SetPrivat(activeDocument, "CurHorizontalPage", 1)
                        If (settings.PrintRange = PrintRange.AllPages) Then
                            SetPrivat(activeDocument, "FromPage", 1)
                            SetPrivat(activeDocument, "CurPage", 1)
                            SetPrivat(activeDocument, "ToPage", settings.MaximumPage)
                            SetPrivat(activeDocument, "TotalHorizontalPage", 1)
                        Else

                            SetPrivat(activeDocument, "FromPage", settings.FromPage)
                            SetPrivat(activeDocument, "CurPage", settings.FromPage)
                            SetPrivat(activeDocument, "ToPage", settings.ToPage)
                        End If
                        SetPrivat(activeDocument, "PrintCopies", settings.Copies)
                        Try
                            document.Print()
                        Catch exception3 As Exception

                        End Try
                    End If
                End If
            End If
        End Sub
        Private Sub myPrintPageEventHander(ByVal sender As Object, ByVal e As PrintPageEventArgs)
            Dim activeDocument As ReportDocumentBase = CType(pageView1.GetActiveDocument(), ReportDocumentBase)
            Dim minfo2 = GetType(ReportDocumentBase).GetMethod("PrintPageEventHander", BindingFlags.Instance Or BindingFlags.NonPublic)
            minfo2.Invoke(activeDocument, New Object() {sender, e})

        End Sub
        Private Function getPaperKind(ByRef activeDocument As ReportDocumentBase) As PaperKind
            Dim defaultPaperSize As CrystalDecisions.Shared.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
            Dim i As Integer
            Dim fino = activeDocument.GetType.GetField("pages", BindingFlags.Instance Or BindingFlags.NonPublic)
            For i = 0 To fino.GetValue(activeDocument).Count - 1
                Dim obj2 As PageObject = fino.GetValue(activeDocument).Item(i)
                If (Not obj2 Is Nothing) Then
                    defaultPaperSize = obj2.PaperSize
                    Exit For
                End If
            Next i
            Select Case defaultPaperSize
                Case CrystalDecisions.Shared.PaperSize.DefaultPaperSize
                    Return PaperKind.Letter
                Case CrystalDecisions.Shared.PaperSize.PaperLetter
                    Return PaperKind.Letter
                Case CrystalDecisions.Shared.PaperSize.PaperLetterSmall
                    Return PaperKind.LetterSmall
                Case CrystalDecisions.Shared.PaperSize.PaperTabloid
                    Return PaperKind.Tabloid
                Case CrystalDecisions.Shared.PaperSize.PaperLedger
                    Return PaperKind.Ledger
                Case CrystalDecisions.Shared.PaperSize.PaperLegal
                    Return PaperKind.Legal
                Case CrystalDecisions.Shared.PaperSize.PaperStatement
                    Return PaperKind.Statement
                Case CrystalDecisions.Shared.PaperSize.PaperExecutive
                    Return PaperKind.Executive
                Case CrystalDecisions.Shared.PaperSize.PaperA3
                    Return PaperKind.A3
                Case CrystalDecisions.Shared.PaperSize.PaperA4
                    Return PaperKind.A4
                Case CrystalDecisions.Shared.PaperSize.PaperA4Small
                    Return PaperKind.A4Small
                Case CrystalDecisions.Shared.PaperSize.PaperA5
                    Return PaperKind.A5
                Case CrystalDecisions.Shared.PaperSize.PaperB4
                    Return PaperKind.B4
                Case CrystalDecisions.Shared.PaperSize.PaperB5
                    Return PaperKind.B5
                Case CrystalDecisions.Shared.PaperSize.PaperFolio
                    Return PaperKind.Folio
                Case CrystalDecisions.Shared.PaperSize.PaperQuarto
                    Return PaperKind.Quarto
                Case CrystalDecisions.Shared.PaperSize.Paper10x14
                    Return PaperKind.Standard10x14
                Case CrystalDecisions.Shared.PaperSize.Paper11x17
                    Return PaperKind.Standard11x17
                Case CrystalDecisions.Shared.PaperSize.PaperNote
                    Return PaperKind.Note
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelope9
                    Return PaperKind.Number9Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelope10
                    Return PaperKind.Number10Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelope11
                    Return PaperKind.Number11Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelope12
                    Return PaperKind.Number12Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelope14
                    Return PaperKind.Number14Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperCsheet
                    Return PaperKind.CSheet
                Case CrystalDecisions.Shared.PaperSize.PaperDsheet
                    Return PaperKind.DSheet
                Case CrystalDecisions.Shared.PaperSize.PaperEsheet
                    Return PaperKind.ESheet
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeDL
                    Return PaperKind.DLEnvelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC5
                    Return PaperKind.C5Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC3
                    Return PaperKind.C3Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC4
                    Return PaperKind.C4Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC6
                    Return PaperKind.C6Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC65
                    Return PaperKind.C65Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB4
                    Return PaperKind.B4Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB5
                    Return PaperKind.B5Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB6
                    Return PaperKind.B6Envelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeItaly
                    Return PaperKind.ItalyEnvelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeMonarch
                    Return PaperKind.MonarchEnvelope
                Case CrystalDecisions.Shared.PaperSize.PaperEnvelopePersonal
                    Return PaperKind.PersonalEnvelope
                Case CrystalDecisions.Shared.PaperSize.PaperFanfoldUS
                    Return PaperKind.USStandardFanfold
                Case CrystalDecisions.Shared.PaperSize.PaperFanfoldStdGerman
                    Return PaperKind.GermanStandardFanfold
                Case CrystalDecisions.Shared.PaperSize.PaperFanfoldLegalGerman
                    Return PaperKind.GermanLegalFanfold
            End Select
            Return PaperKind.Letter
        End Function







    End Class
End Namespace