Печать документа с регистрацией его в реестре

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать документа с регистрацией его в реестре (Макросы/Sub)

KolyvanOFF

Дата: Вторник, 12.08.2014, 14:54 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 217

Репутация: 7 ±

Замечаний: 60% ±

Excel 2010

И еще раз здравствуйте.
Подскажите пожалуйста, в файле есть 3 листа. Первый - форма доверенности, который цепляет данные из листа 2 с помощью ВПР. А 3 лист это реестр доверенностей которые были выданы. Вопрос заключается в следующем: возможно ли при выведении доверенности на печать в 3 лист вносились данные о этой доверенности (дата выдачи, ФИО, № доверенности)????

К сообщению приложен файл: 111285.xltm (41.9 Kb)

С уважением, Евгений

Ответить

paramedic

Дата: Вторник, 12.08.2014, 15:39 | Сообщение № 2

Группа: Проверенные

Ранг: Участник

Сообщений: 67

Репутация: 6 ±

Замечаний: 0% ±

Excel 2007

Событие BeforePrint в помощь:
[vba]

Код

Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, _
          Cancel As Boolean)
    If wb.ActiveSheet.Name="Доверенность" Then

'здесь пишем добавление данных в реестр, а заодно можно и номер присвоить.

    End If

End Sub

[/vba]

Я не ламер - я честный чайник

Сообщение отредактировал paramedic - Вторник, 12.08.2014, 15:41

Ответить

KolyvanOFF

Дата: Вторник, 12.08.2014, 15:40 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 217

Репутация: 7 ±

Замечаний: 60% ±

Excel 2010

paramedic, попробую. но возможно затуплю.

С уважением, Евгений

Ответить

_Boroda_

Дата: Вторник, 12.08.2014, 15:49 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Там еще выбор листа добавить нужно
И еще - код будет отрабатывать не только при печати, но и при предварительном просмотре. Если для Вас это принципиально, то где-то у меня в загашнике был код, отсекающий предв. просмотр.
Этот код реагирует и на печать, и на ПП.
[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        If Me.ActiveSheet.CodeName = "Лист1" Then
        Application.ScreenUpdating = 0
            r_ = Лист1.Range("A3") + 1
            Лист3.Range("B" & r_) = Лист1.Range("D3")
            Лист3.Range("C" & r_) = Лист1.Range("K3")
            Application.ScreenUpdating = 1
        End If
End Sub

[/vba]
Про лист Александр уже, похоже, добавил выше, пока я писал

К сообщению приложен файл: 1112852_1.xlsm (45.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995