用visualbasic更新Excel标题

我有一个宏，可以从Excel中的数据表创建PDF文件。Excel中的另一个工作表是发票模板。宏将填充模板工作表上的不同单元格，并将结果保存为PDF文件。模板工作表有一个页眉，每次都需要根据供应商进行更新。我有下面更新标题的代码。它在我单步执行代码时起作用，但在运行宏时不起作用

我不知道为什么。任何建议，使这项工作将不胜感激。谢谢

Application.PrintCommunication = False

Worksheets("PrintInvoice").PageSetup.LeftHeader = ""
Worksheets("PrintInvoice").PageSetup.CenterHeader = ""
Worksheets("PrintInvoice").PageSetup.CenterHeader = Header1 & Chr(10) & Header2 & Chr(10) & Header3
Worksheets("PrintInvoice").PageSetup.RightHeader = "Page &P of &N"
Worksheets("PrintInvoice").PageSetup.LeftFooter = _
        " ©  2013 Proprietary and Confidential   Reproduction/Distribution Prohibited "
Worksheets("PrintInvoice").PageSetup.CenterFooter = ""
Worksheets("PrintInvoice").PageSetup.RightFooter = ""
Worksheets("PrintInvoice").PageSetup.LeftMargin = Application.InchesToPoints(0.75)
Worksheets("PrintInvoice").PageSetup.RightMargin = Application.InchesToPoints(0.75)
Worksheets("PrintInvoice").PageSetup.TopMargin = Application.InchesToPoints(1)
Worksheets("PrintInvoice").PageSetup.BottomMargin = Application.InchesToPoints(1)
Worksheets("PrintInvoice").PageSetup.HeaderMargin = Application.InchesToPoints(0.5)
Worksheets("PrintInvoice").PageSetup.FooterMargin = Application.InchesToPoints(0.5)
Worksheets("PrintInvoice").PageSetup.Zoom = 91
Worksheets("PrintInvoice").PageSetup.PrintErrors = xlPrintErrorsDisplayed
Worksheets("PrintInvoice").PageSetup.OddAndEvenPagesHeaderFooter = False
Worksheets("PrintInvoice").PageSetup.DifferentFirstPageHeaderFooter = False
Worksheets("PrintInvoice").PageSetup.ScaleWithDocHeaderFooter = True
Worksheets("PrintInvoice").PageSetup.AlignMarginsHeaderFooter = False
Worksheets("PrintInvoice").PageSetup.EvenPage.LeftHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.EvenPage.CenterHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.EvenPage.RightHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.EvenPage.LeftFooter.Text = ""
Worksheets("PrintInvoice").PageSetup.EvenPage.CenterFooter.Text = ""
Worksheets("PrintInvoice").PageSetup.EvenPage.RightFooter.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.LeftHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.CenterHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.RightHeader.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.LeftFooter.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.CenterFooter.Text = ""
Worksheets("PrintInvoice").PageSetup.FirstPage.RightFooter.Text = ""

Application.PrintCommunication = True

    Sleep 2000

---

我发现一些信息指出“Application.PrintCommunication=False”行是问题的原因。一旦我删除它，我的代码就会更新标题。

什么意思是

…但在我运行宏时不是。

？你有错误吗？@VitaliyPrushak……我的意思是当按下按钮运行整个宏时。更新头代码只是宏的一部分。没有错误消息。它不会更新标题。我在另一张纸上有一些字段，用户输入信息，宏会选择这些字段，并且应该修改标题。目前，它没有更新，并保留上次运行时的头。您是否尝试在这段代码的开头放置断点，以确保它被完整的代码解析？它看起来没有显示问题…@Shaves如果

它不更新标题。

我可能会认为这部分没有任何内容：

我在另一张纸上有一些字段，用户输入信息，宏会选择这些字段并修改标题。

为了不阅读茶叶，最好与大家共享整个代码，或至少涉及的部分。@VitaliyPrushak……我读到了关于导致问题的“Application.PrintCommunication=False”这一行的内容。一旦我删除了它，我的代码就更新了标题。谢谢你的帮助。。。