1楼 3tzjq (
永不言弃)
回复于
2005-06-24 10:00:29 得分
95
你要的功能都在里面，慢慢看...
Public Sub SetSheetStyles(ByVal xlSheet As Excel.Worksheet, _
ByVal rowCount As Int32, _
ByVal colCount As Int32)
Dim i, intStart As Int32
With xlSheet
If AllowHeaderColor Then .Range(.Cells(1, 1), .Cells(1, MasterColumnCount)).Interior.Color = GetHeaderBackColorRGB
If IsExistMasterD Then '主从表
intStart = 5
.Range(.Cells(1, 1), .Cells(1, MasterColumnCount)).Font.Size = 10 '标头字体大小
.Range(.Cells(2, 1), .Cells(2, MasterColumnCount)).Font.Size = 10 '主数据字体大小
.Range(.Cells(1, 1), .Cells(1, MasterColumnCount)).Font.Bold = True '标题字体加粗
.Range(.Cells(2, 1), .Cells(2, MasterColumnCount)).Font.Italic = True '主数据字体斜体
.Range(.Cells(1, 1), .Cells(1, MasterColumnCount)).Borders.LineStyle = 1 '粗边框(已取消)
.Range(.Cells(2, 1), .Cells(2, MasterColumnCount)).Borders.LineStyle = 1 '粗边框(已取消)
If AllowHeaderColor Then .Range(.Cells(4, 1), .Cells(4, colCount)).Interior.Color = GetHeaderBackColorRGB
.Range(.Cells(4, 1), .Cells(rowCount + 4, colCount)).Borders.LineStyle = 1 '主数据边框样式
.Range(.Cells(4, 1), .Cells(4, colCount)).Font.Bold = True '标题字体加粗
.Range(.Cells(4, 1), .Cells(4, colCount)).Font.Size = 10 '数据项字体大小
.Range(.Cells(5, 1), .Cells(rowCount + 4, colCount)).Font.Size = 9 '数据项字体大小
Else
intStart = 2
.Range(.Cells(1, 1), .Cells(1, colCount)).Font.Size = 10 '标头字体大小
.Range(.Cells(1, 1), .Cells(1, colCount)).Font.Bold = True '标题字体加粗
.Range(.Cells(1, 1), .Cells(rowCount + 1, colCount)).Borders.LineStyle = 1 '设表格边框样式
.Range(.Cells(2, 1), .Cells(rowCount + 1, colCount)).Font.Size = 9 '数据项字体大小
End If
If exportSet.IsApply_PCR_ToExcelWord AndAlso exportSet.IsApplyExcel Then '允许使用颜色区分
If rowCount > 2 AndAlso exportSet.IsAlwaysQuestion_ApplyPCRToEW Then '先询问是否执行颜色区分
If MessageBox.Show("数据转换到Excel文档已完成！是否现在就执行奇偶行颜色区分？这可能需要较长的时间。" & vbLf & "如果不再希望出现此提示，请转到 打印设置的高级选项卡。", "总是询问", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.No Then Return
End If
If rowCount > 2 Then Common.Common.OnInfo("开始用颜色来区分奇偶数据行，这可能需要较长的一段时间。请稍候...", Common.InfoBase.InfoTypeEnum.Working)
Dim bolP As Boolean = (((rowCount - 1) Mod 2) = 0) '减去标头行Count - 1 True=偶行 Even,False=奇行 Odd
Dim startD As Double = Microsoft.VisualBasic.Timer
Dim intEBC, intOBC As Int32
intEBC = GetEvenBackColorRGB
intOBC = GetOddBackColorRGB
Dim intS As Int32 = intStart
rowCount += intS - 1
For i = intStart To rowCount
If bolP Then '偶行
.Range(.Cells(i, 1), .Cells(i, colCount)).Interior.Color = intEBC
Else '奇行
.Range(.Cells(i, 1), .Cells(i, colCount)).Interior.Color = intOBC
End If
bolP = Not bolP
Next i
If rowCount > 2 Then Common.Common.OnInfo("颜色区分奇偶数据行已完成！用时：" & (Microsoft.VisualBasic.Timer - startD).ToString & " 秒", Common.InfoBase.InfoTypeEnum.Message)
End If
End With
With xlSheet.PageSetup
If MasterColumnCount > 6 Then
If MasterColumnCount > 12 Then .PaperSize = Excel.XlPaperSize.xlPaperA3 '超过12列就用A3纸
.Orientation = Excel.XlPageOrientation.xlLandscape '横幅
Else
.Orientation = Excel.XlPageOrientation.xlPortrait '竖幅A4纸
End If
' .TopMargin = 1'不改变，因为有Header
'.BottomMargin = 1
.LeftMargin = 1
.RightMargin = 1
.CenterHorizontally = True '水平居中对齐
' .LeftHeaderPicture.Filename = Application.StartupPath & "\Resources\TRI-T Icon.gif"
.LeftHeader = "&""宋体,Bold""&13" & "TRI-T Company Limited" '公司
.CenterHeader = "&""宋体,Bold""&13" & TitleText '标题"
.LeftFooter = "&""宋体""&10制表人：" & PreparedBy '制表人
.CenterFooter = "&""宋体""&10制表日期：" & GetDatasheetDate
.RightFooter = "&""宋体""&10第&P页 共&N页"
End With
End Sub
回复于 
回复于