[LISP函数]：EXCEL表格问题

wuxi_jzsy

我打印的表格线太粗了。能否自已设定一下表格线的粗细。
不知在什么地方设置一下线的粗细。
请指教！

qwerasts

好像excel中边框与底纹选项太少，我也一直找不到折中的办法，打印出来的线条有些偏粗，不知有没有高手解决一下

xiaog

Sub Line()
   
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

qwerasts

请教3楼，你的程序我也看得懂，也能通过录制宏剖析出来，但我不知道如何定义表格边框线宽，excel默认提供的线宽类型太少，如何能够自己定义

xiaog

在下列代码中
Sub line()
    Selection.Borders.Weight = xlThin
End Sub
其中XlBorderWeight是常量，不能自己设定，它定义了以下几种：
xlHairline
xlThin
xlMedium
xlThick

wuxi_jzsy

你的方法太复杂了，要如何设定呢？
在哪里设定？