你这代码直接粘贴真没法看啊！
核心就一句：`ExportAsFixedFormat`！
整本工作簿导出？→ `wbook.ExportAsFixedFormat`
只导当前表？→ `ActiveSheet.ExportAsFixedFormat`
只导某块区域？→ `Range(A1:D10).ExportAsFixedFormat`
想按打印区域导PDF？用这个：
`Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat`
??但注意！要是没设打印区域，直接崩给你看！批量处理的话得加判断，比如先`If ActiveSheet.PageSetup.PrintArea <> Then ...`不然准报错～
另外你问怎么让代码像老师那样一行行显示？复制时用「代码块」格式（就是围在三个反引号里 ），或者发之前手动换行+缩进，看着立马清爽！
还有那个只能打一页的问题——不是代码限制，是你的打印区域本身就只框了一页 批量搞的话，建议统一设好打印区域，或改用`UsedRange`兜底。
麻烦老师了！真的巨感谢！！
核心就一句：`ExportAsFixedFormat`！
整本工作簿导出？→ `wbook.ExportAsFixedFormat`
只导当前表？→ `ActiveSheet.ExportAsFixedFormat`
只导某块区域？→ `Range(A1:D10).ExportAsFixedFormat`
想按打印区域导PDF？用这个：
`Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat`
??但注意！要是没设打印区域，直接崩给你看！批量处理的话得加判断，比如先`If ActiveSheet.PageSetup.PrintArea <> Then ...`不然准报错～
另外你问怎么让代码像老师那样一行行显示？复制时用「代码块」格式（就是围在三个反引号里 ），或者发之前手动换行+缩进，看着立马清爽！
还有那个只能打一页的问题——不是代码限制，是你的打印区域本身就只框了一页 批量搞的话，建议统一设好打印区域，或改用`UsedRange`兜底。
麻烦老师了！真的巨感谢！！