Страницы: 1
RSS
Печать с подстановкой значений из другого листа
 
Всем привет)
Появилась задача распечатать много одинаковых бланков, но с разными значениями.
Для удобства сверстал этот бланк в экселе, а на другом листе у меня табличка со значениями которые нужно вставить.

Хочется чтобы при печати эти значения автоматически подставлялись в бланк.
Не подскажете, как это сделать?
Спасибо.
 
Добрый вечер
Файл покажите
 
Вот)
 
Чуть-чуть почитал, подумал) написал свой первый макрос)
Всем спасибо))


Код
Dim i As Integer
For i = 5 To 6 Step 1
    Rows(i & ":" & i).Select
    Selection.Copy
    Rows("2:2") .Select
    ActiveSheet.Paste
    Sheets("Лист1").PrintOut Copies:=1, Collate:=True
Next i
    
End Sub
Изменено: hommeLibre - 04.11.2014 10:26:52
 
hommeLibre, можно укоротить копирование:
Код
Rows(i & ":" & i).Copy Rows("2:2")

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Конечно можно укоротить))
Код
Dim i As Integer
    For i = 5 To 6
        Rows(i).Copy Rows(2)
        Sheets("Лист1").PrintOut Copies:=1, Collate:=True
    Next
Страницы: 1
Читают тему
Наверх