主题：打印模板设置

对了请问,字符超出单元格怎样让它自动换行.

 

 

 自动行高比较麻烦，要用vba处理

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
'Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True

e.Book.Marks("收货单位") = DataTables("金发转仓").GetComboListString("收货单位", Filter, "_Identify").replace("|", ",")这句代码要怎样改才能让它在显示不重复收货单位时后面加上该收单位的送货吨位 像:光宝6.7T

Select Case e.Book.TempLate
    Case "货物运输确认"
        Dim str1 As String = ""
        Dim str2 As String = ""
        Dim Filter As String = "协议号 = '" & e.DataRow("协议号") & "'"
        For Each dr As DataRow In e.DataRow.DataTable.Select(filter)           
            str1 &= dr("收货单位") & dr("送货吨位") & "T,"
            str2 &= dr("送货单号") & ","
        Next
        e.Book.Marks("收货单位") = str1.trim(",")
        e.Book.Marks("送货单号") = str2.trim(",")
End Select

(⊙o⊙)…  行用怎么提不重复值, 用

GetComboListString

 

我想实现收货单位只出现不重复值,像光宝出现三次 光宝5.5T,光宝0.5T,光宝0.75T,总重量为6.7  只要:光宝 6.75T 一次

Select Case e.Book.TempLate
    Case "货物运输确认"
        Dim str1 As String = ""
        Dim str2 As String = ""
        Dim Filter As String = "协议号 = '" & e.DataRow("协议号") & "'"
        For Each dw As String In e.DataRow.DataTable.GetValues("收货单位", filter)
            str1 &= dw &  e.DataRow.DataTable.compute("sum(送货吨位)", filter & " and 收货单位 = '" & dw & "'") & "T,"
        Next
        For Each dr As DataRow In e.DataRow.DataTable.Select(filter)
            str2 &= dr("送货单号") & ","
        Next
        e.Book.Marks("收货单位") = str1.trim(",")
        e.Book.Marks("送货单号") = str2.trim(",")
End Select

感谢! 我想每张A4纸只打印3张派车单,设置时报错

<金发转仓,3>

<GroupHeader,金发转仓,协议号,1>

<GroupHeader,金发转仓,协议号,1>

<金发转仓>

<End>

说报表只能有一个细节区

 

不行，无法直接做到这种控制。

 

如果要控制行数，那你就先分组统计，生成表格，再根据这个表格设计excel报表。