可以在小程序里增加excle的打印功能？
发布网友
发布时间：2022-04-19 13:21
我来回答
共2个回答
热心网友
时间：2023-08-04 23:09
两个方式：1,用VBA编一段小程序，不知道你会不会．Sub dy() On Error Resume Next 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 "请将打印出的纸张反向装入纸槽中"， vbOKOnly， "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j， To:=2 * j Next jEnd Sub２，下载一个ExcelPrinter工具,它是一个可以增强Excel打印功能的小插件(仅75KB大小)，它不仅适用于Excel 2003，也适用于Excel 2007。效果与WORD的双面打印功能相同. 安装完毕，打开Excel你就会发现多出了一个名为GxlBar的新工具栏。GxlBar工具栏共有三个按钮，分别为手动双面打印按钮、打印当前页按钮和显示版本信息按钮。 下载地址是： http://www.diydown.cn/soft/down_6/Catalog38/854.html
采纳哦
热心网友
时间：2023-08-04 23:09
两个方式：1,用VBA编一段小程序，不知道你会不会．Sub dy() On Error Resume Next 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 "请将打印出的纸张反向装入纸槽中"， vbOKOnly， "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j， To:=2 * j Next jEnd Sub2，下载一个ExcelPrinter工具,它是一个可以增强Excel打印功能的小插件(仅75KB大小)，它不仅适用于Excel 2003，也适用于Excel 2007。效果与WORD的双面打印功能相同. 安装完毕，打开Excel你就会发现多出了一个名为GxlBar的新工具栏。GxlBar工具栏共有三个按钮，分别为手动双面打印按钮、打印当前页按钮和显示版本信息按钮。 下载地址是： http://www.diydown.cn/soft/down_6/Catalog38/854.html
