普通打印机实现双面打印

双面,打印
普通的打印打印报表往往只能单面打印。
为了节约纸张,有没办法实现双面打印呢?
有~
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

      你也是,同乐~~