excel如何打印奇偶页(宏命令)

excel如何打印奇偶页(宏命令)excel如何打印奇偶页(宏命令) excel如何打印奇偶页 1、第一种写法:Sub PrintRL() ,代码作用:在打印EXCEL文件时连续打印奇偶页 ,当为奇数时页脚设在右边，为偶时设在左边并打印 ,By redwin for yan ,2007-4-16 Dim Numb As Integer On Error Resume Next ,得到当前工作簿的打印页数Numb Numb = ExecuteExcel4Macro("Get.Document(50)") ,MsgBox Numb ...

excel如何打印奇偶页(宏命令) excel如何打印奇偶页 1、第一种写法:Sub PrintRL() ,代码作用:在打印EXCEL文件时连续打印奇偶页 ,当为奇数时页脚设在右边，为偶时设在左边并打印 ,By redwin for yan ,2007-4-16 Dim Numb As Integer On Error Resume Next ,得到当前工作簿的打印页数Numb Numb = ExecuteExcel4Macro("Get.Document(50)") ,MsgBox Numb With ActiveSheet.PageSetup For i = 1 To Numb Step 1 If i Mod 2 = 1 Then .LeftFooter = "" .RightFooter = "第 &P 页，共 &N 页" ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Else .RightFooter = "" .LeftFooter = "第 &P 页，共 &N 页" ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i End If Next i End With End Sub 2、第二种写法:Sub PrintRL() ,代码作用:在打印EXCEL文件时分开打印奇偶页 ,当为奇数时页码页脚设在右边，为偶时设在左边 ,By redwin for yan ,2007-4-16 Dim Numb As Integer Dim Numb1 As Integer On Error Resume Next ,得到当前工作簿的打印页数Numb Numb = ExecuteExcel4Macro("Get.Document(50)") ,MsgBox Numb With ActiveSheet.PageSetup ,先打印奇数页;考虑到放纸习惯，先设置好第一张的页码问题 If Numb Mod 2 <> 1 Then Numb1 = Numb - 1 Else Numb1 = Numb End If For i = Numb1 To 1 Step -2 .LeftFooter = "" .RightFooter = "第 &P 页，共 &N 页" ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Next i MsgBox "注意:奇数页已打印完毕，下面将打印偶数页，请注意放纸，确定后便开始喽～", _ vbInformation, "双面打印，将节约进行到底:)" ,再打印偶数页 For i = 2 To Numb Step 2 .RightFooter = "" .LeftFooter = "第 &P 页，共 &N 页" ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Next i End With End Sub Dim myPrompt As String myPrompt = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") On Error Resume Next With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(0.8) .RightMargin = Application.CentimetersToPoints(2.3) End With ActiveWindow.SelectedSheets.PrintPreview If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If myBottonNum = MsgBox(myPrompt, 1 + 48) '提示用户取出纸张，确认后继续打印 If (myBottonNum = 1) Then For j = 2 To Pages Step 2 ActiveSheet.PrintOut From:=j, To:=j '打印偶数页 Next j End If End Sub --------------------------------------- 按Alt+Q返回到工作表窗口，单击菜单“工具”?“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”?“自定义按钮”。拖动自定义按钮到菜单栏或工具栏上，右击刚刚拖到菜单栏或工具栏上自定义按钮然后再“命名”后面输入“打印奇数页”(注意此时不要关闭自定义对话框)，然后关闭自定义对话框。单击按钮，在弹出的“指定宏”对话框中选择我们刚才创建的宏(Sub by())。添加“打印偶数页”按钮同上。只是在“指定宏”对话框中选择(Sub cy())宏。至此命令基本添加完毕～关闭并保存工作簿打开EXCEL工作簿，单击刚才添加的打印奇数页按钮，程序先打印预览，如有问题先按取消，程序将退出，并不打印，如确定打印请按确定确定按钮程序将会自动打印奇数页;打印完毕后，再按打印偶数页按钮，程序也先打印预览，如有问题按取消按钮，程序将退出，并不打印，按确定按钮程序将自动打印偶数页。在VFP执行excel方法: eole=CreateObject("excel.application") eole.Workbooks.Open(getfile()) eole.Application.Run("Macro1") &&Macro1宏命令的名称。 eole.Visible = .T.

                    本文档为【excel如何打印奇偶页&#40;宏命令&#41;】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

excel如何打印奇偶页&#40;宏命令&#41;

你可能还喜欢

excel如何打印奇偶页(宏命令)