有没有一种简单的方法来复制ActiveSheets.PageSetup?

似乎很简单,可能是“这是星期一”的情况下,但我找不到这个答案..不必事先logging所有的页面设置variablesstring,有没有办法复制工作表.pageSetup属性?

在一个正在运行的macros中,我创build一个新页面,粘贴一些数据,更改一堆页面设置,然后打印。 我希望有一种方法可以在手边保存页面设置,然后再应用,这样我的用户就不用担心修复设置了。

我试过了:

dim ws as worksheet set ws = ActiveSheet.pageSetup 'settings change / print ActiveSheet.pagesetup = ws.pagesetup 

这不工作,因为ws.pagesetup现在链接到activesheet.pagesetup,所以只要我改变活动工作表设置,Ws的设置也得到改变。

我也尝试set ws = sheets(1)因为新的页面从来不是第一页,但随后与一个ActiveSheet.pagesetup = ws.pagesetup工作,它说, object doesn't support this property or method

有一个简单的方法吗? 我必须有20个不同的stringvariables来保存所有当前页面设置variables?

谢谢

当我想要完成这样的事情时,我会将所有的格式和页面设置保存到一个隐藏的表格中。 在适当的时候,我会把我的代码复制并粘贴到需要的地方。 在这种情况下,通过制作隐藏表的副本开始可能是最容易的。 然后转储您的数据并从那里工作。

而不是应付页面设置从主表到其他表:

  1. 创build主表单
  2. build立这张单页的页面设定
  3. 制作主人的副本
  4. 用数据,公式等填充副本

换句话说,预先考虑您的需求并提前安排表格。