设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2275|回复: 6
打印 上一主题 下一主题

[与其它组件] 如何实现隔页打印?如先打印1,3,5,7...再打印2,4,6...

[复制链接]
跳转到指定楼层
1#
发表于 2006-4-17 23:59:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

各位兄弟姐妹们!!!拜托...[em01][em01][em01]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-4-18 00:03:00 | 只看该作者
这个好像就是双面打印功能吧。
3#
发表于 2006-4-18 00:08:00 | 只看该作者
这个问题曾经讨论过,这是其中的一个办法

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=150&replyID=168621&id=34031&skin=0
4#
 楼主| 发表于 2006-4-18 00:40:00 | 只看该作者
正是双面打印功能,说说办法呀[em06][em06][em06]
5#
发表于 2006-4-18 01:45:00 | 只看该作者
曾经写过这样的代码,你看看是否可以。代码节选如下:

在报表上右键菜单调用。

Dim Counter As Integer
Dim total As Integer
Dim A As Variant
Dim B As Boolean

Dim rep As Report
Dim c, d As Integer

Sub qishu()

'总页数为奇数的代码块

A = InputBox _
("输入1,将打印奇数页" + vbNewLine + "" + "输入2,将打印偶数页" + vbNewLine + "" + "输入3,将打印当前页", "请输入...")

If A <> "" Then '如果inputbox 不返回一个空字符串,即用户输入任意内容

        B = IsNumeric(A)
        
        Select Case B
        
          Case -1 '如果用户输入数字
               
                Select Case A
               
                Case 1 '如果用户输入数字1
               
                '打印奇数页
               
                    For Counter = 1 To c Step 2
                        total = total + Counter
                        MsgBox "报表第" & Counter & "页将会被直接打印"
                    '*********************
                    ' 在该过程被调用的时候,对打印机的设置已经完成,所以这里并不加入错误处理 _
                      而是在 使用docmd对象的openreport 方法来打开报表的时候使用错误处理 _
                          写在 open_report_err 模块中
                       
                        DoCmd.printout acSelection, Counter, Counter, acHigh, 1, True
                        
                    '********************
                        
                    Next Counter
                    
                Case 2 '如果用户输入数字2
                    
                ' 打印偶数页
                    
                    For Counter = 2 To c - 1 Step 2
                       total = total + Counter
                        MsgBox "报表第" & Counter & "页将会被直接打印"
                    '*************************
                    ' 在该过程被调用的时候,对打印机的设置已经完成,所以这里并不加入错误处理 _
                      而是在 使用docmd对象的openreport 方法来打开报表的时候使用错误处理 _
                          写在 open_report_err 模块中
                       
                        DoCmd.printout acSelection, Counter, Counter, acHigh, 1, True
                        
                    '************************
                    Next Counter
                    
                 Case 3
                 
                         DoCmd.printout acSelection, d, d, acHigh, 1, True
               
                    
               Case Else '如果用户输入的数字 不是1和2 中的任意一个的话
               
                    MsgBox "请输入数字1或者2"
               
                End Select
               
          Case 0 '如果用户输入 文本或者其他无效字符的话
         
            MsgBox "输入了错误的打印选项,可能是文本或者其他无效字符"
                          
        End Select

Else  '如果inputbox 返回一个空字符串,即用户 点击关闭 或者 取消按钮 或者 不输入任何内容点击了确定按钮

MsgBox "您取消了打印操作"

End If

End Sub

Function Activereports()

On Error GoTo Activereports_Err

  '  Dim rep As Report
  '  Dim c, d As Integer

    ' 返回指向活动报表。
   
    Set rep = screen.ActiveReport
   
  '  MsgBox rep.Name & " is the active rep."
      

c = Reports(rep.Name).Pages '报表的总页数
d = Reports(rep.Name).Page  '当前报表的页码
Debug.Print c, d

If c Mod 2 = 0 Then '总页数为偶数

Call oushu
Else
Call qishu
End If

Activereports_Exit:
    Exit Function

Activereports_Err:
   ' MsgBox Error$
    MsgBox "您的操作需要一个激活的报表,请打开一个激活的报表"
    Resume Activereports_Exit
   
   

End Function




[此贴子已经被作者于2006-4-17 17:47:04编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
6#
发表于 2006-4-18 17:37:00 | 只看该作者
你什么代码都不用写,装个FinePrint就带双面打印功能了。

[此贴子已经被作者于2006-4-18 9:40:42编辑过]

7#
 楼主| 发表于 2006-4-18 17:57:00 | 只看该作者
THS...[em01][em01][em01]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-13 02:39 , Processed in 0.085794 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表