EXECL2003如何实现快速双面打印

little-key

打印的时候，是有提示的，一般都是先打印单数页，把所有的单数页打印完毕以后，会有一个提示，让你把纸张取出来放到纸巢里，这样再打印双数页。

zlcjs

word可以按1357...打印，execl却没有

little-key

一下是Excel和Word的打印界面的区别：

1、Excel：

 

  

2、Word：

[此贴子已经被作者于2008-4-16 9:25:40编辑过]

zlcjs

我要打印的东西有点多，不可能允许我一页一页的去翻面哟

little-key

这个是andysky的写的代码：

QUOTE:

Sub 双面打印()
    On Error Resume Next
    If Application.WorksheetFunction.CountA(Cells) = 0 Then MsgBox "当前工作表为空！", 64, "出错": Exit Sub
    Dim pages As Integer, ji As Integer, ou As Integer
    pages = ExecuteExcel4Macro("get.document(50)")
    For ji = 1 To Int(pages / 2) + 1
        ActiveWindow.SelectedSheets.PrintOut From:=2 * ji - 1, To:=2 * ji - 1, Copies:=1, Collate:=True
    Next ji
    MsgBox "请将打印纸反向装入打印机中," & Chr(10) & "开始打印另一面！", 64, "友情提示"
    For ou = 1 To Int(pages / 2) + 1
        ActiveWindow.SelectedSheets.PrintOut From:=2 * ou, To:=2 * ou, Copies:=1, Collate:=True
    Next ou
End Sub

LangQueS

参考：

Sub 奇偶页分别打印()
  Dim i%, Ps%
  Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)")    '总页数
  MsgBox "现在打印奇数页,按确定开始."
  For i = 1 To Ps Step 2
    ActiveSheet.PrintOut from:=i, To:=i
  Next i
  MsgBox "现在打印偶数页,按确定开始."
  For i = 2 To Ps Step 2
    ActiveSheet.PrintOut from:=i, To:=i
  Next i
End Sub

元宝爸爸

还是需要打印机支持才行。

俺平常打印的都是多页，在打印机属性中选择双面打印就可以了。

有的打印机支持自动双面打印，有的支持手动的。

俺用的是Hp3050就得手动。从没出现差错。

zlcjs

他们说要下个fp565软件才能实现双面打印，我不知哪里有？

BIN_YANG168

http://club.excelhome.net/viewthread.php?tid=158276&replyID=&skin=0

zlcjs

非常感谢大家对我的关注和指点！希望大家一如既往的关心和支持我。