[已解决]自动检测打印到多少页后打印报告

scshaobo · 发表于 2012-8-30 16:20

本帖最后由 scshaobo 于 2012-8-30 16:23 编辑

请帮我写写打印代码，谢谢你了，你的帮助对我很大！

最佳答案

tsigms

2012-8-31 08:51

Sub ts()
ActiveSheet.PageSetup.PrintArea = Range("A1", "J" & Columns(1).Find("*", lookat:=xlValue, searchdirection:=xlPrevious).Row).Address
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

跳转到最佳答案楼层

tsigms · 发表于 2012-8-31 08:51

这个最佳答案由 tsigms 给出，感谢 tsigms 的回答。

单击隐藏图章

Sub ts()
ActiveSheet.PageSetup.PrintArea = Range("A1", "J" & Columns(1).Find("*", lookat:=xlValue, searchdirection:=xlPrevious).Row).Address
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

		自动登录	找回密码
密码			注册

[已解决]自动检测打印到多少页后打印报告

相关帖子

浏览过的版块