Впервые пользователь Excel VBA Печать заголовка столбца, за которым следуют отдельные столбцы данных - PullRequest
Новая
       17

Впервые пользователь Excel VBA Печать заголовка столбца, за которым следуют отдельные столбцы данных

0 голосов
/ 22 ноября 2018

Я впервые пользуюсь VBA, и у меня простая проблема.Я пытаюсь распечатать отдельные страницы.Каждая страница будет иметь два столбца.Первый столбец должен быть одинаковым для всех напечатанных страниц - он из столбца «B» (= 2) электронной таблицы.Второй печатный столбец взят из другого столбца электронной таблицы для каждой страницы.Столбец «C» (= 3) для первой напечатанной страницы, «D» (= 4) для второй и т. Д. В приведенном мною коде первая страница выглядит хорошо с напечатанными столбцами B и C.Для всех последовательных страниц я печатаю только столбец "B".(В настоящее время я использую PrintPreview, чтобы не тратить впустую тонны бумаги!) Любая помощь / объяснение будет наиболее ценной! 

Option Explicit
Sub Print_Columns()
Dim lCol As Long
Dim cCol As Long
Dim Double_Column As Range
    lCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For cCol = 3 To lCol
         Set Double_Column = Union(Columns(2), Columns(cCol))
         Double_Column.PrintPreview
    Next cCol
End Sub
...