Обновление заголовка Excel с помощью Visual Basic

Question

У меня есть макрос, который создает PDF-файлы из таблицы данных в Excel. Другой лист в 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

Answer 1

Я нашел некоторую информацию, которая указала мне на строку «Application.PrintCommunication = False» в качестве причины проблемы. Как только я удалил его, мой код обновил заголовок.