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  

posted on 2006-11-09 20:30  七月的火热  阅读(1009)  评论()    收藏  举报