Создание акта из существующей базы

[mistx]

Всем привет!
Имеется база. Необходимо при нажатии кнопки сформировать акт для печать, чтобы все данные перенеслись с базы(активной строки) в акт.

Пробовал сделать через
Sheets("Печать").Range("B18").Value = Sheets("База").Cells(b, 1).Value
получается громоздко и неудобно, можно ли сделать все это покрасивее?

Заранее благодарен.

[IgorGO]

покрасивее - єто шаблон акта набрать в Word, создать файл слияния и связать его с вашей базой из Excel.
Тема обсуждалась неоднократно.

[mistx]

Сообщение от IgorGO

покрасивее - єто шаблон акта набрать в Word, создать файл слияния и связать его с вашей базой из Excel.
Тема обсуждалась неоднократно.

Иначе никак? Со слиянием нет проблем. Раньше он так и был сделан. Нужно именно, чтобы с помощью vba был сделан акт и в экселе. Это основное требование.

[shanemac51]

Необходимо при нажатии кнопки сформировать акт для печать, чтобы все данные перенеслись с базы(активной строки) в акт.

а в акте-отчете несколько строк --не понимаю, что необходимо

[VictorM]

Если уж нужно именно в Excel, можно назначить кнопке на листе "БАЗА" вот такой код

Sub tt()
    Sheets("БАЗА").Activate'на всякий случай
    With ActiveCell
        дата = .Offset()
        Время = Format(.Offset(, 1), "hh:mm")
        Склад = .Offset(, 2)
        'и т.д.
    End With
    With Sheets("Печать")
        [d6] = дата
        [d7] = Время
        [c10] = Склад
        'и т.д.
    End With
End Sub

Продолжите дальше и дополните в конце вывод на печать листа "Печать"

[mistx]

Сообщение от shanemac51

а в акте-отчете несколько строк --не понимаю, что необходимо

несколько строк для того, чтобы если со склада взяли 2 принтера, то один принтер в одну строку с инвентарным номером, а другой во вторую строку.

VictorM
Спасибо. постараюсь разобраться с выводом на печать.

[VictorM]

постараюсь разобраться с выводом на печать.

в конце кода допишите
Sheets("Печать").[A1:J28].PrintOut Copies:=1, Collate:=True

[mistx]

Сообщение от VictorM

в конце кода допишите
Sheets("Печать").[A1:J28].PrintOut Copies:=1, Collate:=True

Спасибо большое