[Iska]

Сделал табличку с пояснениями Шаблон с заполненными данными нужно запускать на печать на матричном принтере… »

Sic! Стал понятен смысл слова шаблон в контексте задачи.

Вставьте данный код:

читать дальше »

Код:

Option Explicit

Sub InsertValuesFromActiveCellIntoWorksheet()
    If ActiveSheet.Name = "Лист1" Then
        If Right(ActiveCell.Address(ReferenceStyle:=xlR1C1), 2) = "C1" Then
            If Not IsEmpty(ActiveCell.Value) Then
                With ThisWorkbook
                    With .Worksheets.Item("Лист2")
                        .Cells.Item(13, 1).Value = ActiveCell.Value
                        .Cells.Item(15, 4).Value = ActiveCell.Offset(0, 1).Value
                        .Cells.Item(13, 6).Value = ActiveCell.Offset(0, 2).Value
                        
                        .PrintPreview
                    End With
                End With
            Else
                MsgBox "Активная ячейка не содержит данных", vbExclamation, "Ошибка"
            End If
        Else
            MsgBox "Активная ячейка не находится в столбце [A]", vbExclamation, "Ошибка"
        End If
    Else
        MsgBox "Активная ячейка не находится на листе [Лист1]", vbExclamation, "Ошибка"
    End If
End Sub

в модуль рабочей книги. Назначьте его вызов на сочетание горячих клавиш. Выделите на первом листе в первом столбце потребную ячейку из списка. Нажмите сочетание горячих клавиш. Будет произведена подстановка данных из строки с выделенной ячейкой во второй лист рабочей книги, и этот лист будет выведен на предварительный просмотр (чтобы Вы могли убедиться, правильно ли произведена подстановка).

Или, может, Вам нужно, перебрав созданный список, просто отпечатать всё подряд?