EXCEL文档打印设置

ycxchen

大家知道，WORD文档打印时，打印设置可进行单双页（奇偶页）打印选择，但同一打印机，在打印EXCEL文档时却无法进行奇偶页打印设置，请问，如何解决？

ycxchen

谢谢两位指教，我先试用！

ycxchen

3楼的不行，提示子过程或函数未定义， ExecuteExcel4Macro反相显示，加入Dim x, i As Integer也不行，如何办？

ycxchen

谢谢roych的热心指教！高手！
6楼的办法可以，不过，代码有两处要分行：
Sub Excel双面打印()

    On Error Resume Next

    Dim x As Long

'定义并激活工作表才能执行宏表函数

    Dim wk As Worksheet

    wk.Activate

    x = ExecuteExcel4Macro("get.document(50)")

    For i = 1 To Int(x / 2) + 1
    ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1

    Next i

    MsgBox "放好纸回车继续打印另一面"

    For j = 1 To Int(x / 2) + 1
    ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j

    Next j

End Sub
期望宏表函数教程的早日出现！

ycxchen

再次谢谢roych的指导！