老师:

     我在制作打印报表时,不知道怎么设外框的双实线.我单位的原报表要求内框为单实线,外框为双实线.可我设完以后.表的内外框都是双实线了. 请看一下我发的截图,

第1张是需要作的单位的原报表格式,第2张,是我设置的打印报表,第3张是我作成的结果.

          请问老师要怎么改?

不行.我预览了一下.还是不行.我把表传上来.请帮我改一下,如改好.教我一下怎么操作的?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1班.xls

作不好啊.请在我上传上去的表上改下,再传上来.我学习一下!

以下是引用ybmjy在2017/12/3 21:34:00的发言：

下载信息  [文件大小：21.0 KB  下载次数：1]

点击浏览该文件:1班.xls

这样设吧，可以以假乱真

[此贴子已经被作者于2017/12/3 21:34:51编辑过]

这样倒是美观,但我最后一行,一定要有数据的啊.这是账页,不能断开的啊!请再帮我想一个好办法!

• 除此之外，我们还可以为单元格有针对性的设置边框，它必须指定为XlBordersIndex枚举中的其中之一：
  
  xlDiagonalDown：    从区域中每个单元格的左上角至右下角的边框(斜下)。
  xlDiagonalUp：      从区域中每个单元格的左下角至右上角的边框(斜上)。
  xlEdgeBottom：      区域底部的边框(底边框)。
  xlEdgeLeft：        区域左边的边框(左边框)。
  xlEdgeRight：       区域右边的边框(右边框)。
  xlEdgeTop：         区域顶部的边框(上边框)。
  xlInsideHorizontal：区域中所有单元格的水平边框，区域以外的边框除外(内部水平边框线)。
  xlInsideVertical：  区域中所有单元格的垂直边框，区域以外的边框除外(内部垂直边框线)。
  
  例如下面的代码就仅为已经使用的单元格区域设置了内部水平边框线：
  
  Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
  Dim Rg As MSExcel.Range = Ws.UsedRange
  With Rg.Borders(MSExcel.XlBordersIndex.xlInsideHorizontal)
     .LineStyle = MSExcel.XlLineStyle.xlContinuous 
     .Weight = MSExcel.XlBorderWeight.xlThin  
     .ColorIndex = 3
  End With
  App.Visible = True
  
  如要取消全部边框，则只需：Rg.Borders.Linestyle = 0
  　

啊?这么难啊?要怎么写这个代码?要放在哪个事件里啊?

用5楼的方法，你把最后一行的内边框去掉，然后把行高调小一点，不就好了？