Макрос на печать

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на печать (Иное/Other)

Макрос на печать

Jler

Дата: Пятница, 14.11.2014, 15:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Ребята, добрый день.
Хотим коллеге задарить сертификат, который хотим замутить через печать с файла, которая (печать) происходит путём вбивания её имени в определённую ячейку. Как это прописать макросом? Т.е. она пишет своё имя в ячейку, и после этого запускается автоматическая печать нужного листа Экспеля.

Ответить

Karataev

Дата: Воскресенье, 16.11.2014, 21:59 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "имя сотрудника" Then
ActiveSheet.PrintOut
End If
End Sub

[/vba]

Ответить

Jler

Дата: Понедельник, 17.11.2014, 07:00 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Цитата Karataev, 16.11.2014 в 21:59, в сообщении № 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "имя сотрудника" Then
ActiveSheet.PrintOut
End If
End Sub

Нужно, допустим, в ячейку B3 вписать имя сотрудницы "Анна", она нажимает Enter - сразу идёт печать нужного нам листа (или даже картинки на листе), которые не видно на первом листе (допустим эта картинка находится в другом файле (это возможно?) или внизу 3 листа)

Ответить

Karataev

Дата: Понедельник, 17.11.2014, 09:23 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b3]) Is Nothing Then Exit Sub
If Target = "Анна" Then Sheets(2).PrintOut
End Sub

[/vba]

Ответить

Jler

Дата: Понедельник, 17.11.2014, 09:32 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Спасибо! Только не печатает =)
Вбил в B3 Анна, нажал Enter - не печатает. Или ещё потанцевать надо с бубном?

Сообщение отредактировал Jler - Понедельник, 17.11.2014, 09:33

Ответить

Karataev

Дата: Понедельник, 17.11.2014, 09:41 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

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

Сообщение отредактировал Karataev - Понедельник, 17.11.2014, 09:43

Ответить

Jler

Дата: Понедельник, 17.11.2014, 09:52 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Получилось! Благодарю!

Ответить

Даша

Дата: Пятница, 30.01.2015, 10:54 | Сообщение № 8

Группа: Гости

Доброе утро! Подскажите, пожалуйста, как отменить задачу "печать" при открытии файла Excel? Нужно, чтобы сначала файл открывался, а не шел сразу на печать.