普通打印机实现双面打印

双面,打印
普通的打印打印报表往往只能单面打印。
为了节约纸张,有没办法实现双面打印呢?
有~
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  
代码搜集来源于互联网。
有需求总得有人去搜寻,大家享用吧~~~
分享到: