1、需要每页打印副标题：第一页有以后没有（代码红色部分）
此主题相关图片如下：2011-3-24 19-42-16.png
此主题相关图片如下：2011-3-24 19-44-12.png
2、自动列宽不是等宽
Dim Filter As String
Dim cma As WinForm.ComboBox=e.Form.Controls("ComboBox1")
If cma.Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "乡名= '" & cma.Value & "'"
End If
Dim cmb As WinForm.ComboBox=e.Form.Controls("ComboBox2")
If cmb.Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "村名 = '" & cmb.Value & "'"
End If
Dim cmc As WinForm.ComboBox=e.Form.Controls("ComboBox3")
If cmc.Value IsNot Nothing Then
Filter = "组别= '" & cmc.Value & "'"
End If
If cma.Value IsNot Nothing AndAlso cmb.Value IsNot Nothing Then
Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim rs As New prt.RenderText()
doc.PageSetting.Landscape = True '横向打印方向
doc.PageSetting.PaperKind = 9 '纸张类型为A3
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 10 '设置上边距
Doc.PageSetting.BottomMargin = 10 '设置下边距
Dim cmd As New SQLCommand '定义一个SQL命令
cmd.C
Dim dt As DataTable '定义一个数据表变量
Dim Count As Integer = 0
If cma.Value IsNot Nothing AndAlso cmb.Value IsNot Nothing AndAlso cmc.Value IsNot Nothing Then
cmd.CommandText = "Select 村名,组别,宗地序号,申请单位,小班号,小地名,四至界限_东至,四至界限_南至,四至界限_西至,四至界限_北至,林种,申请单位 AS 林木所有权, 申请单位 AS 林木使用权 From {申请表} Where 乡名 ='" & cma.Value & "' and 村名= '" & cmb.Value & "' and 组别= '" & cmc.Value & "'"
Else
cmd.CommandText = "Select 村名,组别,宗地序号,申请单位,小班号,小地名,四至界限_东至,四至界限_南至,四至界限_西至,四至界限_北至,林种,申请单位 AS 林木所有权, 申请单位 AS 林木使用权 From {申请表} Where 乡名 ='" & cma.Value & "' and 村名= '" & cmb.Value & "'"
End If
dt = cmd.ExecuteReader() '生成一个临时表
For Each Col AS DataCol In Dt.DataCols
rt.Cells(0,Count).Text = Col.Name
For r As Integer = 0 To dt.DataRows.Count - 1
rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
Next
Count = Count + 1
Next
If cmb.Value IsNot Nothing Then
rs.Text = "" & cmb.Value & "集体林权改革林地林权登记公布表"
End If
rs.Style.Font = New Font("宋体",16,FontStyle.Bold)
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
rt.Width = "Parent.Width"
rt.Style.Spacing.Top = 4 '表格和前面对象的垂直间隔为4毫米
Doc.PageHeader = rs '作为页眉使用 '设置页眉
Dim rt1 As prt.RenderText '定义一个文本对象
rt1 = New prt.RenderText '设置文本对象的内容
rt1.Text = "乡名:" & cma.Value & " 单位:亩" '设置文本内容
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt1.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
rt1.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rt1.Style.FontSize = 10 '字体大小为8磅
doc.Body.Children.Add(rt1) '将文本对象加入到表格中
Dim rx1 As New prt.RenderTable
rx1.Cells(0,0).Text = "第[PageNo]页 共[PageCount]页 打印日期:[date.now]"
rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx1.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx1.Style.FontSize = 10 '字体大小为8磅
Doc.PageFooter = rx1 '作为页脚使用
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '将第一行作为表头
rt.RowGroups(0,1).Style.Font = New Font("宋体",10,FontStyle.Bold) '字体大小
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
doc.Body.Children.Add(rt)
doc.Preview()
Else
MessageBox.show("同时选择年度乡名")
End If
加好友 
发短信
Post By：2011/3/24 9:20:00 [只看该作者]
