紧急请教：如何灵活显示报表？

goto2008

我有一个报表，比如查询了当前订单号时，它总页数为4页，
每次点击预览按扭时，老是显示第一页，老是得人为的去右健---多页---选择2*2页

我想实现的是，点击预览按扭，马上显示的是四张缩小的报表。

比如：如果有四张报表，电脑就灵活的显示2*2页的模式。
            二张报表，电脑就灵活的显示1*2页的模式。

比如：单号为3487/08/PI这个报表就有四页。。。



我想实现的是如图片中的效果，请指教，谢谢

todaynew

不知道是否有分页显示功能，呵呵。

goto2008

我想实现的，就是按总页数，让ACC自动选择比较接近的“多页”---1*1   1*2   1*3   2*2   2*3什么的。
不知怎么实现，搜了很多贴子，都没有见过有人问过这个问题。。
这个问题也是我最近比较困扰的。

t小宝

在窗体模块中添加如下过程：

1. 
   
2. Private Function AutoToPage(ReportName As String)
   
3. 
   
4. Select Case Reports(ReportName).Pages
   
5. Case 1
   
6. DoCmd.RunCommand acCmdPreviewOnePage
   
7. Case 2
   
8. DoCmd.RunCommand acCmdPreviewTwoPages
   
9. Case 3, 4
   
10. DoCmd.RunCommand acCmdPreviewFourPages
    
11. Case 5, 6, 7, 8
    
12. DoCmd.RunCommand acCmdPreviewEightPages
    
13. Case Else
    
14. DoCmd.RunCommand acCmdPreviewTwelvePages
    
15. End Select
    
16. 
    
17. End Function
    

复制代码

然后在打开报表的代码后调用，如：

1. Private Sub 预览_Click()
   
2. On Error GoTo Err_预览_Click
   
3. 
   
4. Dim stDocName As String
   
5. 
   
6. stDocName = ChrW(20570) & ChrW(-29401) & ChrW(21333)
   
7. DoCmd.OpenReport stDocName, acPreview, , "[单号]='" & Me.单号 & "'"
   
8. AutoToPage stDocName
   
9. 
   
10. Exit_预览_Click:
    
11. Exit Sub
    
12. 
    
13. Err_预览_Click:
    
14. MsgBox Err.Description
    
15. Resume Exit_预览_Click
    
16. 
    
17. End Sub

复制代码

goto2008

非常感谢小雨大哥，我想的效果就是这样的。

asklove

学习