报表布局问题

brainmao · brainmao

回复 11楼dof的帖子

Hi dof
像上面这种动态绘制的话，边框有没有相关绘制的方法呢，边框能够绘制成自定义的粗细大小

通过colum的设置的话第二列的边框我如果想不一样，那怎么能够取得迭代出来的第二列，来操作它的样式

ZenosZeng · ZenosZeng

Page类型下提供了多种绘图方法，比如以下代码：

Private Sub SectionReport1_ReportEnd(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportEnd
Dim dt As System.Data.DataTable
dt = DirectCast(DataSource, System.Data.DataTable)
Dim b As New GrapeCity.ActiveReports.Border
b.BottomColor = System.Drawing.Color.Black
b.BottomStyle = GrapeCity.ActiveReports.BorderLineStyle.ThickSolid
b.LeftColor = System.Drawing.Color.Black
b.LeftStyle = GrapeCity.ActiveReports.BorderLineStyle.ThickSolid
b.RightColor = System.Drawing.Color.Black
b.RightStyle = GrapeCity.ActiveReports.BorderLineStyle.ThickSolid
b.TopColor = System.Drawing.Color.Black
b.TopStyle = GrapeCity.ActiveReports.BorderLineStyle.ThickSolid
For index = 0 To (dt.Rows.Count / 2)
Me.Document.Pages(0).DrawBorder(b, 6.5, 0.58 + 0.2 * index, 1, 0.2)
Next
End Sub

复制代码

关于分栏中第一栏和第二栏格式不一样的问题，可以在Detail的Format事件中根据当前行的行号来进行控制，比如一页最多打印50行，如果当前行是30行则是第一栏中的样式，如果当前行是60行则是第二栏中的样式；
或者根据行号的奇偶来判断。

Dim page As Integer
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
page = page + 1
If page Mod 2 = 0 Then
TextBox4.Border.TopColor = Color.Red
Else
TextBox4.Border.TopColor = Color.Black
End If
End Sub

复制代码

brainmao · brainmao

回复 13楼dof的帖子

HI dof
Document.Pages(0).DrawBorder这个方法能能不能绘制整个文档的边框，现在基于区域报表去做，我有三爷数据显示，但是每页的最后一行数据的线条都是不同的，直接在detail中设置bottom线条3页显示都一样，请问，这个该如何处理，若要计算行数或者页数，怎么取最后一行，或者有更好的办法

brainmao · brainmao

回复 13楼dof的帖子

Hi dof
activereport报表不预览，直接打印？有什么方法么

ZenosZeng · ZenosZeng

GrapeCity.ActiveReports.SectionReport rpt = new GrapeCity.ActiveReports.SectionReport();
rpt.Run();
rpt.Document.Print();

复制代码

brainmao · brainmao

回复 16楼dof的帖子

这个方法没有用，已经试过了，查找发现好多类似这样的：
rpt.Document.Print(false,false);

brainmao · brainmao

回复 16楼dof的帖子

谢谢dof 已经解决Me.Document.Printer.Print()直接跳过了能打印希望dof再看下

Document.Pages(0).DrawBorder这个方法能能不能绘制整个文档的边框，现在基于区域报表去做，我有三页数据显示，但是每页的最后一行数据的线条都是不同的，直接在detail中设置bottom线条3页显示都一样，请问，这个该如何处理，若要计算行数或者页数，怎么取最后一行，或者有更好的办法

ZenosZeng · ZenosZeng

第二个需求，我会在调试之后给你答复

brainmao · brainmao

回复 19楼dof的帖子

dof：
如何控制Textbox的字符串显示数，现在通过shiftfit会缩小文字，有么有相关属性能够直接设几个字符？

		自动登录	找回密码
密码			立即注册

[已处理] 报表布局问题

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人