[续]基于XML的WEB系统报表精确打印实现

[续]基于XML的WEB系统报表精确打印实现

前一段时间写了篇《Web嵌入.net打印控件》http://www.blog.163.com/yixiao.he/blog/static/3889872005105846190/

但因这半年在做一WIN项目，所以一直未完善，近来又做一WEB项目，所以将该打印控件进行了完善。

一、WEB表单页面中XML传递

由于并非所有用户都需要进行预览和打印，所以打印控件最好不放在表单页面，在需要打印时，在表单页面生成需要打印的XML文档，通过session传给 reports/printbill.aspx文件，该文件再根据打印模式 printmode 属性的设置进行相应的操作。也就是说，整个项目打印全部都用printbill.aspx文件进行打印

二、控件与页面之间的XML传递

有几种方法，有些可行，有些有问题，有些不可行！

（一） 页面生成一个xml文件，随机或按用户名命名，形一个文件放在WEB服务器上，然后将文件名传给打印控件，打印控件根据传过来的参数取到要打印的XML文件路径，如http://localhost/tdxd/reports/temp/1.xml。

但这种办法存在一个问题是形成的xml文件会越来越多，没有合适的方法去删除这些文件，而且读写文件，效率可能会低一些。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
doc.Load(strXml) 'strXML为从页面传来的参数
Me.Label1.Text = "OK"
Catch ex As Exception
Me.Label1.Text = "Error"
End Try
End Sub

（二） 通过WebServices来传递数据。

这样做法的好处是将所以打印的程序，如打开XML模板，并根据要打印的数据形成最终打印XML，都放在一个WEBServices的函数里来处理，这样系统会更清晰。

但WEB引用在需要改变时，需要把XML引用的URL行为改为动态

系统会自动加一个 app.config文件

<appSettings><add key="WinCtlLib.wsPrint.WSPrint" value="http://localhost/tdxd/WebServices/WSPrint.asmx"/></appSettings>

在使用单独的WEB项目或WIN项目时，这种方案都是比较好的，但现在是将WIN控件嵌入到WEB页面中，没有app.config文件，所以更改WebServices路径后会出错

Try

Dim ws As New wsPrint.WSPrint
doc.LoadXml(ws.PrintXmlDoc(sXmlName, sTableName, sRecNo))
Me.Label1.Text = "OK"
Catch ex As Exception
Me.Label1.Text = "Error" & ex.Message
End Try
(三）

即本文开始说的方法,通过SESSION将待打印的XML文件传给printBill.aspx 该文件再将该XML传给控件

<OBJECT style="WIDTH: 480px; HEIGHT: 160px" classid="http:WinCtlLib.dll#WinCtlLib.ctlXmlPrint"
VIEWASTEXT>
<PARAM VALUE="<%=sXml%>">
</OBJECT>

控件代码

Imports System.Xml
Imports WinCtlLib.Hot.Print.RemotePrint
Imports System.Drawing.Printing
Public Class ctlXmlPrint
Inherits System.Windows.Forms.UserControl

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化
AddHandler PrintDocument1.PrintPage, AddressOf pd_PrintPage

End Sub

'UserControl1 重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog
Friend WithEvents btnShowXml As System.Windows.Forms.Button
Friend WithEvents lblMsg As System.Windows.Forms.Label
Friend WithEvents btnPreview As System.Windows.Forms.Button
Friend WithEvents btnPrint As System.Windows.Forms.Button
Friend WithEvents btnPageSetting As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ctlXmlPrint))
Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument
Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog
Me.lblMsg = New System.Windows.Forms.Label
Me.btnShowXml = New System.Windows.Forms.Button
Me.btnPreview = New System.Windows.Forms.Button
Me.btnPrint = New System.Windows.Forms.Button
Me.btnPageSetting = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'PageSetupDialog1
'
Me.PageSetupDialog1.Document = Me.PrintDocument1
'
'PrintPreviewDialog1
'
Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
Me.PrintPreviewDialog1.Document = Me.PrintDocument1
Me.PrintPreviewDialog1.Enabled = True
Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
Me.PrintPreviewDialog1.Location = New System.Drawing.Point(290, 17)
Me.PrintPreviewDialog1.MinimumSize = New System.Drawing.Size(375, 250)
Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
Me.PrintPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty
Me.PrintPreviewDialog1.Visible = False
'
'lblMsg
'
Me.lblMsg.Location = New System.Drawing.Point(0, 25)
Me.lblMsg.Name = "lblMsg"
Me.lblMsg.Size = New System.Drawing.Size(296, 12)
Me.lblMsg.TabIndex = 0
Me.lblMsg.Text = "测试"
'
'btnShowXml
'
Me.btnShowXml.BackColor = System.Drawing.Color.Azure
Me.btnShowXml.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnShowXml.Location = New System.Drawing.Point(0, 0)
Me.btnShowXml.Name = "btnShowXml"
Me.btnShowXml.TabIndex = 6
Me.btnShowXml.Text = "显示Xml"
Me.btnShowXml.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnPreview
'
Me.btnPreview.BackColor = System.Drawing.Color.Azure
Me.btnPreview.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPreview.Location = New System.Drawing.Point(75, 0)
Me.btnPreview.Name = "btnPreview"
Me.btnPreview.TabIndex = 7
Me.btnPreview.Text = "预览"
Me.btnPreview.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnPrint
'
Me.btnPrint.BackColor = System.Drawing.Color.Azure
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Location = New System.Drawing.Point(150, 0)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.TabIndex = 8
Me.btnPrint.Text = "打印"
Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnPageSetting
'
Me.btnPageSetting.BackColor = System.Drawing.Color.Azure
Me.btnPageSetting.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPageSetting.Location = New System.Drawing.Point(225, 0)
Me.btnPageSetting.Name = "btnPageSetting"
Me.btnPageSetting.TabIndex = 9
Me.btnPageSetting.Text = "页面设置"
Me.btnPageSetting.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'ctlXmlPrint
'
Me.BackColor = System.Drawing.SystemColors.Window
Me.Controls.Add(Me.btnPageSetting)
Me.Controls.Add(Me.btnPrint)
Me.Controls.Add(Me.btnPreview)
Me.Controls.Add(Me.btnShowXml)
Me.Controls.Add(Me.lblMsg)
Me.Name = "ctlXmlPrint"
Me.Size = New System.Drawing.Size(302, 40)
Me.ResumeLayout(False)

End Sub

#End Region
Private doc As New XmlDocument
Public Shared Pages As Integer = 1

#Region " 属性定义 "
'要打印的XML文档
Dim _sXml As String
Public Property sXml() As String
Get
Return _sXml
End Get
Set(ByVal Value As String)
_sXml = Value
End Set
End Property

Enum emPrintMode
预览 = 1
打印 = 2
页面设置 = 3
End Enum

'打印模式
Dim _PrintMode As emPrintMode
Property PrintMode() As emPrintMode
Get
Return _PrintMode
End Get
Set(ByVal Value As emPrintMode)
_PrintMode = Value
End Set
End Property
#End Region

#Region " 函数定义 "
'预览
Public Function PrintPreview()
Try
Call SettingPrinter(doc("root")("pagesetting"))
Me.PrintPreviewDialog1.ShowDialog()
Me.lblMsg.Text = "预览完成"
Catch ex As Exception
Me.lblMsg.Text = "预览失败:" & ex.Message
End Try

End Function
'打印
Public Function Print()
Try
Call SettingPrinter(doc("root")("pagesetting"))
Me.PrintDocument1.Print()
Me.lblMsg.Text = "打印完成"
Catch ex As Exception
Me.lblMsg.Text = "打印失败:" & ex.Message
End Try
End Function
'页面设置
Public Function PrintSetting()
Try
Me.PageSetupDialog1.ShowDialog()
Me.lblMsg.Text = "已打开页面设置"
Catch ex As Exception
Me.lblMsg.Text = "开页面设置打开失败:" & ex.Message
End Try

End Function
'根据 PrintMode 设置 自动调用相应函数
Public Function PirntAuto()
Select Case Me.PrintMode
Case emPrintMode.预览
Call Me.PrintPreview()
Case emPrintMode.打印
Call Me.Print()
Case emPrintMode.页面设置
Call Me.PrintSetting()
End Select
End Function
#End Region

#Region " 打印函数 "
Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim g As Graphics = ev.Graphics
Dim HasMorePages As Boolean = False
Dim printElement As PrintElement = Nothing

Dim node As XmlNode
For Each node In doc("root")("reporttable").ChildNodes
printElement = Parser.CreateElement(node) '调用解析器生成相应的对象

Try
HasMorePages = printElement.Draw(g) '是否需要分页
Catch ex As Exception
Me.lblMsg.Text = ex.Message
End Try
Next node

'在页底中间输出页码
Dim font As New Font("黑体", 12.0F)
Dim brush = New SolidBrush(Color.Black)
g.DrawString("第 " + Pages.ToString() + " 页", font, brush, ev.MarginBounds.Width / 2 + ev.MarginBounds.Left - 30, ev.PageBounds.Height - 60)

If HasMorePages Then
Pages += 1
End If
ev.HasMorePages = HasMorePages
End Sub 'pd_PrintPage

Private Sub SettingPrinter(ByVal ps As XmlNode)
'打印方向（纵/横）
Me.PrintDocument1.DefaultPageSettings.Landscape = Boolean.Parse(ps("landscape").InnerText)
'设置纸张类型
Dim papername As String = ps("paperkind").InnerText
Dim fitpaper As Boolean = False
'获取打印机支持的所有纸张类型
Dim size As PaperSize
For Each size In Me.PrintDocument1.PrinterSettings.PaperSizes
If papername = size.PaperName Then '看该打印机是否有我们需要的纸张类型
Me.PrintDocument1.DefaultPageSettings.PaperSize = size
fitpaper = True
End If
Next size
If Not fitpaper Then
'假如没有我们需要的标准类型,则使用自定义的尺寸
Me.PrintDocument1.DefaultPageSettings.PaperSize = New PaperSize("Custom", Integer.Parse(ps("paperwidth").InnerText), Integer.Parse(ps("paperheight").InnerText))
End If

'设置页边距
Me.PrintDocument1.DefaultPageSettings.Margins.Left = Integer.Parse(ps("pageleft").InnerText)
Me.PrintDocument1.DefaultPageSettings.Margins.Top = Integer.Parse(ps("pagetop").InnerText)
Me.PrintDocument1.DefaultPageSettings.Margins.Right = Integer.Parse(ps("pageright").InnerText)
Me.PrintDocument1.DefaultPageSettings.Margins.Bottom = Integer.Parse(ps("pagebottom").InnerText)
End Sub 'SettingPrinter
#End Region

Private Sub btnShowXml_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowXml.Click
MsgBox(doc.OuterXml.ToString.Replace("""", "'"))
System.Windows.Forms.Clipboard.SetDataObject(doc.OuterXml.ToString.Replace("""", "'"))
End Sub

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
Call Me.PrintPreview()
End Sub

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Call Me.Print()
End Sub

Private Sub btnPageSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetting.Click
Call Me.PrintSetting()
End Sub

Private Sub ctlXmlPrint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
doc.LoadXml(sXml)
Me.lblMsg.Text = "数据加载完成"
Catch ex As Exception
Me.lblMsg.Text = "数据加载失败:" & ex.Message
End Try
End Sub