Print Macro - печать конфигурации клиента и № заказа из списка - PullRequest
Новая
       55

Print Macro - печать конфигурации клиента и № заказа из списка

0 голосов
/ 14 января 2020

Спасибо за помощь!

У меня есть рабочая книга с первой вкладкой, которая называется «Расписание». Каждая следующая вкладка представляет собой производственную конфигурацию: Config1, Config2 и т. Д. c.

На первой вкладке у меня есть список. заказа клиента в колонке B и конфигурации продукта в колонке C.

Я хочу напечатать каждую конфигурацию вместе с заказом клиента в нижнем колонтитуле.

У меня возникла проблема с выяснением того, как цикл массивов данных ....

Ниже мой текущий код. Любая помощь будет принята с благодарностью!

Спасибо, Джим

ТЕКУЩИЙ КОД: 

Sub test()
'config are Production Configuration, each on a separate tab
Dim config As Range
'custorder is a range of numbers in the Schedule worksheet tab
Dim custorder As Range
Dim wks As Worksheet

Set custorder = Range("B2:B5")
'For Each custorder In Sheets("Schedule").Range("B2:B5")
For Each config In Sheets("Schedule").Range("C2:C5")
    'If Trim(custorder.Value) <> "" Then
        'On Error Resume Next
        'Set wks = Nothing
        'Set wks = Sheets(custorder.Value)
        'On Error GoTo 0
    If Trim(config.Value) <> "" Then
        On Error Resume Next
        Set wks = Nothing
        Set wks = Sheets(config.Value)
        On Error GoTo 0
        If wks Is Nothing Then
            MsgBox "Sheet " & config.Value & " does not exist"
        Else
                On Error Resume Next
                    wks.PageSetup.LeftFooter = custorder.Value
                    wks.PrintPreview
                    'wks.PrintOut'
        End If
    End If
Next config
End Sub

Вот пример столбцов расписания:

ProductionSchedule

Для любой Конфигурации существует много заказов клиентов.

...