列非常多，横向篇幅非常长的表,怎么做续表？

2005-02-05 10:44:07 956 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

EMGPro 肌肉电手势识别手环传感器 EMG手势识别技术需要进行多方面的工作，包括传感器的设计和布局、EMG信号的采集和预处理、特征提取和分类等。通过对采集到的信号进行特征提取和分类，可以将手势信号与预定义的手势模型进行匹配，从而实现手势识别和控制。通过使用EMG手势识别技术，用户可以更加自由地操纵设备，使得我们的交互方式更加智能和自然。EMG手势识别是利用EMG信号测量肌肉运动的实时性和高精度性，采用机器学习等技术进行数据处理和分析，并将其应用于手势识别领域的一种技术。阅读详情

列非常多，横向篇幅非常长的表，不想用纵向显示所有报表对象。据说可以用续表，那续表该如何建立呢？

...全文

人力资源+大数据+薪酬报告+涨薪调薪，在学习、工作生活中，越来越多的事务都会使用到报告，通常情况下，报告的内容含量大、篇幅较长人力资源+大数据+薪酬报告+涨薪调薪，在学习、工作生活中，越来越多的事务都会使用到报告，通常情况下，报告的内容含量大、篇幅较长。那么什么样的薪酬报告才是有效的呢？以下是小编精心整理的调薪申请报告，欢迎大家分享。相信老板看到这样的报告，一定会考虑涨薪的哦。立即下载

photojjc

图表区 4,818 成员 14,133 内容

+ 关注 + 加入社区

切换为时间正序

nytony 2005-05-17

打赏
举报

不知道，帮丁

wqjch 2005-05-15

打赏
举报

rowCount Mod 4 = 0 这句话是我默认一页打5行,也就是只有这一页打印完了才强制换页.
如果你不是固定的行数的话,你可以用打印的有效高度儿判断

wqjch 2005-05-15

打赏
举报

'=============================第一个单元格，画斜线和内容======================================================================================================
e.Graphics.DrawLine(Pens.Black, x + 40, y, x + FirstColumnWidth, y + 60)
e.Graphics.DrawLine(Pens.Black, x, y + 20, x + FirstColumnWidth, y + 60)
_RectangleF = New RectangleF(x + 66, y + 6, 130, 60)
e.Graphics.DrawString("衣服颜色", tableFont, Brushes.Black, _RectangleF)
_RectangleF = New RectangleF(x + 3, y + 2, 40, 19)
e.Graphics.DrawString("物料", tableFont, Brushes.Black, _RectangleF)
_RectangleF = New RectangleF(x + 30, y + 15, 40, 60)
e.Graphics.DrawString("颜色", tableFont, Brushes.Black, _RectangleF)
_RectangleF = New RectangleF(x + 2, y + 44, 40, 60)
e.Graphics.DrawString("部位", tableFont, Brushes.Black, _RectangleF)
_RectangleF = New RectangleF(x + 43, y + 44, 80, 60)
e.Graphics.DrawString("物料", tableFont, Brushes.Black, _RectangleF)

'=====================================画边框==================================================
'画第一列
For i = 0 To _FirstColumnHeight.Length - 1
_RectangleF = New RectangleF(y, x, _FirstColumnHeight(i), FirstColumnWidth)
e.Graphics.DrawRectangle(Pens.Black, _RectangleF.Top, _RectangleF.Left, _RectangleF.Height, _RectangleF.Width)
y += _FirstColumnHeight(i)
Next

x = _left + FirstColumnWidth
y = _top + CON_SPACE_CAPTION_TOP + CON_SPACE_HEADER_BODY

'画第二列以上
If _Widths.Length > 0 Then
For i = 0 To _Height.Length - 1
For j = 1 To _Widths.Length - 1
_RectangleF = New RectangleF(y, x, _Height(i), _Widths(j))
e.Graphics.DrawRectangle(Pens.Black, _RectangleF.Top, _RectangleF.Left, _RectangleF.Height, _RectangleF.Width)
x += _Widths(j)
Next
y += _Height(i)
x = _left + FirstColumnWidth
Next
End If

'========================================添加数据=====================================
'添加列标题（衣服颜色）
_Align.Alignment = StringAlignment.Center
x = _left + FirstColumnWidth
y = _top + CON_SPACE_CAPTION_TOP + CON_SPACE_HEADER_BODY + _Height(0) / 3

If dtCross.Columns.Count > 2 Then
For j = CurrentColumn - 1 To dtCross.Columns.Count - 2
If j > GColumnCount * GColumnCounts Then
Exit For
End If
_RectangleF = New RectangleF(x, y, _Widths(1), _Height(0))
Me.DrawText(dtCross.Columns(j + 1).ColumnName, tableFont, e.Graphics, _RectangleF, _Align)
x += _Widths(1)
Next
End If

'添加部位、物料、物料颜色等的
x = _left
y = _top + CON_SPACE_CAPTION_TOP + CON_SPACE_HEADER_BODY + _Height(0)

If _isForceToChangePage Then
rowCount = initRowCount
End If

Do While dtCross.Rows.Count > rowCount
rowCount += 1
_RectangleF = New RectangleF(x, y, FirstColumnWidth, _FirstColumnHeight(1))
Me.DrawText(dtCross.Rows(rowCount - 1).Item("Description") & "--" & dtCross.Rows(rowCount - 1).Item("MatType"), tableFont, e.Graphics, _RectangleF, _Align)
x = _left + FirstColumnWidth
For j = CurrentColumn - 1 To dtCross.Columns.Count - 2
If j > GColumnCount * GColumnCounts Then
Exit For
End If
Dim _RectangleF1 As RectangleF = New RectangleF(x, y, _Widths(1), _Height(0))
Me.DrawText(dtCross.Rows(rowCount - 1).Item(j + 1).ToString, tableFont, e.Graphics, _RectangleF1, _Align)
x += _Widths(1)
Next

x = _left
y += _FirstColumnHeight(1)

'强制换页
If rowCount Mod 4 = 0 AndAlso dtCross.Columns.Count - 2 > GColumnCount * GColumnCounts Then
CurrentColumn = j + 1
GColumnCounts += 1
initRowCount = rowCount - 4
_isForceToChangePage = True
e.HasMorePages = True
Exit Sub
ElseIf rowCount Mod 4 = 0 Then
Exit Do
End If
Loop

'强制换页
'当它打印到最后的行时，但还有列需要换页打印
If dtCross.Rows.Count <= rowCount Then
If dtCross.Columns.Count - 2 > GColumnCount * GColumnCounts Then
_islastPage = True
CurrentColumn = j + 1
GColumnCounts += 1
initRowCount = rowCount - (rowCount Mod 4)
_isForceToChangePage = True
e.HasMorePages = True
Exit Sub
End If
End If

'正常的换页
If rowCount Mod 4 = 0 And dtCross.Rows.Count > rowCount And Not _islastPage Then
_isForceToChangePage = False
CurrentColumn = 2
GColumnCounts = 1
e.HasMorePages = True
Else
e.HasMorePages = False
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

#End Region

我是默认打印7列的,但思路是一样的,希望对你有所帮助.

wqjch 2005-05-15

打赏
举报

我做过，就是强制换页
思路如下：
检测当前的所有列宽度是否大于要打印的有效宽度,如果大于而且还有剩下要打印的列,就记下当前的列和行,然后强制换页

下面的代码你参考一下吧:
Dim _islastPage As Boolean = False '是否是最后一页
Dim initRowCount As Integer = 0 '强制换页时的当前行
Dim _isForceToChangePage As Boolean = False '识别该页是否被强制换页
Dim GColumnCounts As Integer = 1 'dtCross的列数是GColumnCount的几倍
Dim CurrentColumn As Integer = 2 '当前列,dtCross默认有两列(description和MatType)，所以当前列设置为从第三列开始(以0开始计算)
Const FirstColumnWidth As Integer = 130 '第一单格的宽度
Dim GColumnCount As Integer = 7 '默认是打印7列

#Region "打印事件"

Private Sub ppd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
Dim i As Integer
Dim j As Integer
Dim _top As Integer
Dim _left As Integer

Try

If g Is Nothing Then
g = e.Graphics
End If

_left = Me.pd.DefaultPageSettings.Margins.Left
_top = Me.pd.DefaultPageSettings.Margins.Top

x = _left
y = _top

'===================================画标题=================================================================
_Align.Alignment = StringAlignment.Center
_RectangleF = New RectangleF(0, y, Me.pd.DefaultPageSettings.PaperSize.Height, Me.pd.DefaultPageSettings.PaperSize.Width)
e.Graphics.DrawString("物料使用对照表", titleFont, Brushes.Black, _RectangleF, _Align)

y += CON_SPACE_CAPTION_TOP

'====================================TOP====================================================================
_Align.Alignment = StringAlignment.Near
Dim space As Integer = _width / 3
_RectangleF = New RectangleF(x, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText("客户：", tableFont, e.Graphics, _RectangleF, _Align)

_RectangleF = New RectangleF(x + _width / 2, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText("款号：", tableFont, e.Graphics, _RectangleF, _Align)

_RectangleF = New RectangleF(x + _width / 5 * 4, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText("办单号：", tableFont, e.Graphics, _RectangleF, _Align)

If dtTop.Rows.Count > 0 Then
Dim _textWidth As Integer
With dtTop.Rows(0)
_textWidth = e.Graphics.MeasureString("客户：", tableFont).Width
_RectangleF = New RectangleF(x + _textWidth, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText(dtTop.Rows(0).Item("BuyerName").ToString, tableFont, e.Graphics, _RectangleF, _Align)

_textWidth = e.Graphics.MeasureString("款号：", tableFont).Width
_RectangleF = New RectangleF(x + _width / 2 + _textWidth, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText(dtTop.Rows(0).Item("StyleNo").ToString, tableFont, e.Graphics, _RectangleF, _Align)

_textWidth = e.Graphics.MeasureString("办单号：", tableFont).Width
_RectangleF = New RectangleF(x + _width / 5 * 4 + _textWidth, y, space, Me.pd.DefaultPageSettings.PaperSize.Height)
Me.DrawText(dtTop.Rows(0).Item("sampleNO").ToString, tableFont, e.Graphics, _RectangleF, _Align)
End With
End If

y += CON_SPACE_HEADER_BODY

'一贴写不下,再接下面一贴

SeeSunSet 2005-05-03

打赏
举报

大就大呗.用A3的纸打印.

lupenda 2005-04-28

打赏
举报

顶啊，等待高手解答

tangxiaogang510 2005-03-02

打赏
举报

你有好多列嘛，有没有50列？关于多列、动态列和动态显示数据的问题我正在研究，有一点点起色了，便还不完善，我的报表竖向线条现在还没有控制好，你现在做成什么样子？

李环汀 2005-02-18

打赏
举报

我也曾经遇到过，不过我用了pb，datawindow可以实现

pcdogyu 2005-02-18

打赏
举报

cross－table

anmeier 2005-02-18

打赏
举报

我也遇到同样的问题,等待高人..........

photojjc 2005-02-16

打赏
举报

顶顶

hedonister 2005-02-09

打赏
举报

列非常多，横向篇幅非常长的表,怎么做续表？

相关推荐