还是关于报表打印中的空格问题！（本人无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


这是那位老兄的高作！

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

阿菜

阿菜

另一种方法是在打印时硬画几个格子，我总认为那方法不是太科学，但可能这方法比较直接！

其法如下：

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

阿菜

!!