Office中国论坛/Access中国论坛

标题: 还是关于报表打印中的空格问题！（本人无VB基础） [打印本页]

作者: 阿菜 时间: 2003-12-17 17:31
标题: 还是关于报表打印中的空格问题！（本人无VB基础）
多谢各位老师的提示说：旧贴中有关于如何让格子打满一张的话题！我是找到了，可不对劲！这位老兄是以“表”为打印数据源，可我的是以“查询”为源的，而且是有“准则”

Private Sub Report_Open(Cancel As Integer)
If DCount("*", "查询1") Mod 20 <> 0 Then
Me.RecordSource = "Select * from 查询1 UNION ALL select TOP " & (20 - DCount("*", "查询1") Mod 20) & " * from Blank"
Else
Me.RecordSource = "Select * from 查询1"
End If
End Sub

这是那位老兄的高作！

或哪位老师帮我改一下吧，回头我就发上来！

作者: 阿菜 时间: 2003-12-17 17:57
标题: [下载]这是那个打印的“毛坯”，请各位老师给予帮助！
[attach]2813[/attach]

作者: 阿菜 时间: 2003-12-17 18:07
标题: 我还找到了另一种方法！
另一种方法是在打印时硬画几个格子，我总认为那方法不是太科学，但可能这方法比较直接！

其法如下：

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

作者: 阿菜 时间: 2003-12-18 15:31
!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)