|
3#
楼主 |
发表于 2003-12-17 18:07:00
|
只看该作者
我还找到了另一种方法!
另一种方法是在打印时硬画几个格子,我总认为那方法不是太科学,但可能这方法比较直接!
其法如下:
Private Sub Report_Page()
Dim rpt As Report, lngColor As Long
Dim i As Integer
Set rpt = Reports!送货单
rpt.ScaleMode = 7
rpt.Line (3.783, 5.097)-(6.998, 11.521), lngColor, B
rpt.Line (9.683, 5.097)-(11.797, 11.521), lngColor, B
rpt.Line (13.201, 5.097)-(15.497, 11.521), lngColor, B
rpt.Line (15.495, 5.097)-(18.497, 12.105), lngColor, B
For i = 1 To 12
rpt.Line (0#, 5.097 + (i - 1) * 0.584)-(18.497, 5.097 + i * 0.584), lngColor, B
Next i
End Sub |
|