[求助]关于报表自动画线,线条太细的问题

一名

从论坛里下了一个报表自动画线的例子,的确是很好,可觉得线太细了,打印出来发传真,对方就看不到线了,所以请大家帮忙,如何加粗,谢谢

一名

原粘子:

http://www.office-cn.net/forum.php?mod=viewthread&tid=37599&replyID=1215&skin=1

无忧

谢谢提供下载点

一名

有没有懂的朋友,帮忙一下吧

无忧

有朋友给我一段参考代码，源文件不方便给我，但VBA我不是很懂，没法帮你改成合适的用到你的文件中，本来想等我会儿再跟你联系，不过，你急的话，自己先看看吧。

Option Compare Database

Option Explicit

Dim Ctl As Control
Dim i As Integer

Dim x() As Long
Dim p As Integer
Dim MaxX As Long
Dim MaxBound As Integer

Dim LastRptName As String
Dim LastSection As AcSection

Public OutWidth As Integer
Public InWidth As Integer

'在报表中要画线的段的print事件 调用此参数
Public Sub DrawGrid(rpt As Report, DrawSection As AcSection, Optional DrawLR As Boolean = True, Optional DrawTop As Boolean = False, Optional DrawBottom As Boolean = False)
  ''''假如要绘制的对象或段不同，就重查找相应的控件位置
' If LastRptName <> rpt.Name Or LastSection <> DrawSection Then
   'LastRptName = rpt.Name
    'LastSection = DrawSection
   
    MaxBound = rpt.Section(DrawSection).Controls.Count
    ReDim x(MaxBound)
   
    p = 0: MaxX = 0
    For i = 1 To MaxBound
      Set Ctl = rpt.Section(DrawSection).Controls(i - 1)
      x(i) = Ctl.Left + Ctl.Width
      If x(i) > MaxX Then MaxX = x(i): p = i
    Next i

   
'End If
  
  rpt.DrawWidth = InWidth
  For i = 1 To MaxBound
    If i <> p Then rpt.Line (x(i), 0)-(x(i), rpt.Height), RGB(0, 0, 160)
  Next i
  
  rpt.DrawWidth = OutWidth
  If DrawLR Then
    rpt.Line (0, 0)-(0, rpt.Height)  '''画左线
    rpt.Line (rpt.Width, 0)-(rpt.Width, rpt.Height) ''画右线
  End If
  
  If DrawTop Then rpt.Line (0, 0)-(rpt.Width, 0) '''画上线
  
  
  '''画底线
  If DrawBottom = False Then rpt.DrawWidth = InWidth
  rpt.Line (0, rpt.Height)-(rpt.Width, rpt.Height)


End Sub

nxjswt

简单直接应用access2003的报表功能即可将报表的划线加粗！！见附件！[em05]

[此贴子已经被作者于2006-3-21 12:48:27编辑过]

sgrshh29

以下是引用一名在2006-3-21 11:10:00的发言：


有没有懂的朋友,帮忙一下吧

如果你觉得？看看这样可行了？

一名

sgrshh29 终于帮助解决了问题,感谢,同时也感谢热心的无忧,还有nxjswt

一名

还请大家接着来帮助:

例子里共有三个报表:

1、第一种方法可以设置线的粗细，可没有报表页眉正常，有报表页眉不正常

2、另一种方法线太细，看有没有办法设置

friendship

在第三种中添加，Me.Report.DrawWidth = 5 ,

access2003中是没问题的，access2000是否有这个属性，有待大家测试。