Надстройка для печати

@Asgaroth · Регистрация: 22.07.2012

Студворк — интернет-сервис помощи студентам

Всем привет,
Очень плохо знаю VBA. Как здесь работать с событиями? Например нужно чтобы на событие "Печать документа" помимо печати документа, он автоматически сохранялся в архив с названием "текущая дата" в "директорию\к\архивам".

@Казанский · 22.07.2012, 13:39

Во-1, какое приложение? От этого зависит реализация.

@Asgaroth · 22.07.2012, 13:46 **[ТС]**

Сообщение от Казанский

Во-1, какое приложение? От этого зависит реализация.

Это для экселя 10.

@Казанский · 22.07.2012, 15:15

В модуль книги (ЭтаКнига или ThisWorkbook)

Visual Basic
1
2
3
4
5
6
7
Const ARC_PATH = "d:\Архив\"
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ext$
ext = Mid$(Me.Name, InStrRev(Me.Name, "."))
Me.SaveCopyAs ARC_PATH & Format(Date, "YYYY-MM-DD") & ext
End Sub

@Asgaroth · 23.07.2012, 14:25 **[ТС]**

Спасибо, работает, но почему-то только в текущей книге, когда сохраняю как .xlam и активирую надстройку, то перестает работать. Неужели есть разница в коде для глобального и для книги

@Казанский · 23.07.2012, 19:04

Конечно, есть. Этот код обрабатывает событие книги, в которую помещен. Для работы с любой книгой надо обрабатывать событие приложения.
И что, Вы хотите сохранять любую книгу, которая отправляется на печать? Возможно, надо делать проверку имени книги, или пути, или содержимого?

@Asgaroth · 23.07.2012, 19:41 **[ТС]**

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

@Казанский · 23.07.2012, 20:43

В модуль ЭтаКнига (ThisWorkbook) надстройки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const ARC_PATH = "d:\Архив\"
 
Dim WithEvents app As Application
 
Private Sub Workbook_Open()
Set app = Application
End Sub
 
Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
Dim ext$
On Error Resume Next
ext = Mid$(Wb.Name, InStrRev(Wb.Name, "."))
Wb.SaveCopyAs ARC_PATH & Format(Date, "YYYY-MM-DD") & ext
End Sub

Когда будете отлаживать код, после внесения правок запускайте Private Sub Workbook_Open(), чтобы вновь привязать переменную к объекту.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Asgaroth 2 / 2 / 1 Регистрация: 22.07.2012 Сообщений: 19

	Надстройка для печати 22.07.2012, 13:24. Показов 1386. Ответов 7 Метки нет (Все метки) Всем привет, Очень плохо знаю VBA. Как здесь работать с событиями? Например нужно чтобы на событие "Печать документа" помимо печати документа, он автоматически сохранялся в архив с названием "текущая дата" в "директорию\к\архивам". 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	22.07.2012, 13:39
	Во-1, какое приложение? От этого зависит реализация. 0

@Asgaroth 2 / 2 / 1 Регистрация: 22.07.2012 Сообщений: 19
	23.07.2012, 14:25 [ТС]
	Спасибо, работает, но почему-то только в текущей книге, когда сохраняю как .xlam и активирую надстройку, то перестает работать. Неужели есть разница в коде для глобального и для книги 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	23.07.2012, 19:04
	Конечно, есть. Этот код обрабатывает событие книги, в которую помещен. Для работы с любой книгой надо обрабатывать событие приложения. И что, Вы хотите сохранять любую книгу, которая отправляется на печать? Возможно, надо делать проверку имени книги, или пути, или содержимого? 0

@Asgaroth 2 / 2 / 1 Регистрация: 22.07.2012 Сообщений: 19
	23.07.2012, 19:41 [ТС]
	Да, хотелось бы чтобы все документы без проверки, если надо делать проверку, то я думаю допетрю до этого самостоятельно. 0