请教：excel中如何实现奇偶页打印

及时雨 · 发表于 2006-6-8 09:48

请教：在excel中如何实现奇偶页打印。在word和wps的打印中都有这个功能。请各位高手指教！谢谢。我是想为了每页纸双面打印。

gvntw · 发表于 2006-6-8 09:54

要用VBA，请用“奇偶页”搜索一下。

zhxbsc · 发表于 2006-6-8 09:55

文件---打印---属性---输出---打印顺序可以实现

及时雨 · 发表于 2006-6-8 10:27

我用的是佳能lbp--3000打印机，没有这个属性

zhxbsc · 发表于 2006-6-8 10:35

以下是引用[I]及时雨[/I]在2006-6-8 10:27:56的发言：[BR]我用的是佳能lbp--3000打印机，没有这个属性

文件---页面设置----选项---输出---打印顺序，这个有吗？？？不是打印机的属性，如果这样不行，那按2楼说的，用VBA吧，去程序开发版搜一下。

gvntw · 发表于 2006-6-8 14:28

写一个：

Sub Print_双面()

Dim pageTotal As Integer
Dim jPage As Integer
Dim OK

pageTotal = Application.ExecuteExcel4Macro("get.document(50)")

For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next

OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")

If OK = vbOK Then
For jPage = 2 To pageTotal Step 2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next
End If

End Sub

及时雨 · 发表于 2006-6-8 14:31

感谢众位指教，谢谢。用了大家的方法。我已成功解决这个问题了。这种型号的打印机只有vba编程了。

LIXIANACCP · 发表于 2007-1-4 10:36

QUOTE:

以下是引用gvntw在2006-6-8 14:28:22的发言：

写一个：

Sub Print_双面()

    Dim pageTotal As Integer
    Dim jPage As Integer
    Dim OK

    pageTotal = Application.ExecuteExcel4Macro("get.document(50)")

    For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
        ActiveSheet.PrintOut from:=jPage, To:=jPage
    Next

    OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")

    If OK = vbOK Then
        For jPage = 2 To pageTotal Step 2
            ActiveSheet.PrintOut from:=jPage, To:=jPage
        Next
    End If

End Sub

这代码怎么使用呢？请高手详解为谢！

gvntw · 发表于 2007-1-4 10:39

右击工作表标签—查看代码—插入—模块—粘贴代码—关闭VBE编辑器，回到工作表，工具—宏—宏，选择Print_双面，单击执行。

ccbb2006 · 发表于 2007-1-4 13:49

高人那

		自动登录	找回密码
密码			免费注册