EXCEL奇偶数打印的代码.docxVIP

下载本文档

23
0
约1.75千字
约 6页
2021-04-12 发布于天津
举报

EXCEL奇偶数打印的代码.docx

判断是否只有一页如奇偶数打印的代码可以通过宏来实现奇偶打印在中新建一个宏取名为点击创建代码如下统统计总页数请输入需要打印的起始页及结束页然后点击确定您输入的起始页将决定奇偶页例如输入页码范围奇偶页打印判断输入页码的合法性对不起输入的页码有误对不起您输入的起始页大于结束页打印取消如果为零说明没有可打印内容退出程序未发现任何可以打印的内容果是只打印第一页然后退出提示用户发生打印错误设置循环打印奇数页或偶数页是否续继打印提示对不起输入的页码有误打印取消您未选择任何页面范围打印取消将这段代码复制到和之间

If (Pages If (Pages = 1) Then 判断是否只有一页，如 StrPage1) StrPage1) EXCEL 奇偶数打印的代码可以通过“宏”来实现奇偶打印，在 EXCEL 中新建一个宏，取名为 printpage ，点击“创建”，代码如下： Dim StrTS As String, StrPage As String, StrPage1 As String, i As Integer Dim Pages As Long, PrintFlag As Integer, Cho As Integer Dim Aa As Integer, Bb As String,

您可能关注的文档

文档评论（0）

1亿VIP精品文档

更多 >

EXCEL奇偶数打印的代码.docxVIP