SOS！Help！在打印表格时，如何缩短每列的宽度！急！哪位大侠帮帮我！谢谢了！（一次性能给的最多分数，分不够的话，请注明我下次给！说话一向算话。）

[kill_jp]

打印横线和竖线的code如下，请帮忙！怎么样才能修改列与列之间的宽度？
（分不够，请注明我下次给！说话一向算话。）


'打印竖分隔线
Dim HightRows As Single
HightRows = 205 'HightRows = RowHight * Page1 'modify01
For J = 0 To 22
Printer.Line (A(J), 29)-(A(J), HightRows)
Next
Printer.Line (4, 29)-(4, HightRows) '左竖分隔线
Printer.Line (A(22) + 15, 29)-(A(22) + 15, HightRows) '右竖分隔线


'打印横分割线。
Dim RowHight As Single
RowHight = 8
Dim M As Integer
Printer.CurrentY = 37
For M = 1 To Page1 + 2 '总共21条记录，最后一条存放 各列合计。
Printer.Line (4, Printer.CurrentY)-(A(22) + 15, Printer.CurrentY) 'modify x+50
Printer.CurrentY = Printer.CurrentY + RowHight
Next

[kill_jp]

我试过了，可是还不行！怎么办？

[kill_jp]

Help!help me!

[BadCatw]

直接改A(J)和A(J+1)的差值

绝对可以。

[basey]

不懂,直接改A(J)和A(J+1)的差值不行吗?

[kill_jp]

不知道，试试看！

[Richard2001]

对。A（）数组元素之间的差值就是列之间的宽度。
如，A(1)-A(0)的值就是第一列的宽度。
你可以按需要修改A()数组各元素的值来获得你所需的列宽度。

[shkingstargroup]

修改数组A( )的各个值就行！

[kill_jp]

直接改A(J)和A(J+1)的差值


哪里有A(J+1)啊？

我这样改行吗：(A(J)-6, 29)-(A(J)-6, HightRows)

[Jneu]

没有效果的~只是向左移动罢了
(A(J), 29)-(A(J)-6, HightRows)

[kill_jp]

对！Jneu(沧海桑田)　说的对！


那应该如何改啊！请教了！谢谢

[kill_jp]

多谢Jneu(沧海桑田)　！

[Jneu]

跟你的A(J)数组设置有关系~
请将其数组设置相关代码贴出。

[kill_jp]

Dim A(22) As Single
Printer.FontSize = 12
For J = 0 To 22
StrHead = StrHead & CStr(rs.Fields(J).Name) & " "
A(J) = Printer.TextWidth(StrHead) + 5
'Debug.Print A(J)

[Jneu]

Dim A(22) As Single
Printer.FontSize = 12
For J = 0 To 22
StrHead = StrHead & CStr(rs.Fields(J).Name) & " "
A(J) = Printer.TextWidth(StrHead) - 5
'Debug.Print A(J)

[Jneu]

试试吧：）

[81083]

ok