普通打印机实现双面打印

• VBA • 17 条评论 • •11,623 次查阅
双面,打印
普通的打印机打印报表往往只能单面打印。
为了节约纸张，有没办法实现双面打印呢？
有~
VBA模块实现。
上代码：
 
  1. Sub 双面打印()   
  2.   On Error Resume Next   
  3.   If VBA.IsEmpty(ActiveSheet.UsedRange) Then MsgBox "当前工作表为空！", 64, "出错": Exit Sub   
  4.   Dim pages As Integer, ji As Integer, ou As Integer   
  5.   ActiveWindow.View = xlPageBreakPreview  ‘进入分页状态，便于获取页数   
  6.   pages = Application.ExecuteExcel4Macro("get.document(50)")    ‘利用宏表函数计算页数   
  7.   For ji = 1 To Int(pages / 2) + 1  ‘遍历每一页   
  8.     ActiveSheet.PrintOut From:=2 * ji – 1, To:=2 * ji – 1, Copies:=1, Collate:=True    ‘打印奇数页   
  9.   Next ji   
  10.   MsgBox "请将打印纸反向装入打印机中," & Chr(10) & "开始打印另一面！", 64, "友情提示"  
  11.   For ou = 1 To Int(pages / 2) + 1    ‘再打印偶数页   
  12.     ActiveSheet.PrintOut From:=2 * ou, To:=2 * ou, Copies:=1, Collate:=True   
  13.   Next ou   
  14.     ActiveWindow.View = xlNormalView ‘还原为常规视图   
  15. End Sub  
代码搜集来源于互联网。
有需求总得有人去搜寻，大家享用吧~~~
分享到：

17 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼
  1. liutingyaning

    内容不错，学习了

  2. 神经衰弱的症状

    这个不错，科技发展越来越快

  3. 北京个性摄影工作室

    时代在发展，人的大脑在下降，总有一天那些死了的人都是聪明死的。呵呵

    1. Kael.Z

      总比笨死的好~~哈哈~

  4. 涡街流量计

    对于一体式打印机也有效果么

    1. Kael.Z

      有~~~

  5. 婚纱摄影网站

    对。挺好的。不然浪费好多纸啊。呵呵。

    1. Kael.Z

      恩，是的，就是麻烦点

  6. YinYan博客

    这样可以吗？普通打印机不是经过设置就可以吗，中秋快乐！

    1. Kael.Z

      普通的多张的时候，数据不会分奇偶页打印的

      1. YinYan博客

        哦，那博主就太牛啦，精通代码很有优势啊！

        1. Kael.Z

          呵呵，瞎折腾吧~

          Notify
  7. 会议系统

    以后我会常来的 路过，感觉不错 谢谢你的分享，以后我会常来的

  8. 保健养生

    中秋过后也要快乐哈！

    1. Kael.Z

      一定~~

  9. 随云飘

    中秋快乐！

    1. Kael.Z

      你也是，同乐~~