这两天有个批量打印报表的需求，于是简单撸了几行代码。使用说明：1.将当前xlsm文件和需要打印的文件放入同一文件夹中，运行代码即可打印目录下的所有xlsx文件中的所有表。其他类型文件没有测试，应...
Option Explicit Sub 打印报表() '一键打印4张报表，打印源为当前文档前4张表，打印格式：前3张纵向，第四张横向，页边距左右0.5，上下默认，左右剧中，缩放到一页。 If...
Dim i As Integer Dim j As Integer Dim k As Integer Sheet3.Range("C4:C43").ClearContent...
Windows11刚发布的时候微软就爆出了Windows11系统将支持安装安卓应用，在PC电脑上刷抖音、点外卖将变得更简单，这让很多的用户都非常期待。终于2021年10月...