Мой первый макрос

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

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

Мой первый макрос (Первый блин комом))))

Мой первый макрос

light26

Дата: Вторник, 13.03.2012, 21:56 | Сообщение № 1

Группа: Друзья

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

Сообщений: 1351

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

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

2007, 2010, 2013

Еще вопрос по макросу. Записал я макрорекодером код для кнопки "Печать". Пока экспериментировал, не заметил как создались пустой модуль и форма. А удалить их не могу и как это сделать не знаю.
И еще один вопрос. Я хотел, чтобы первые три листа были скрыты, но распечатывались при нажатии кнопки "Печать". Как это реализовать? Через макрорекодер? Включить запись, открыть все листы, запустить печать, скрыть все листы?

К сообщению приложен файл: 1620175.xls (81.5 Kb)

Я не волшебник. Я только учусь

Ответить

Jhonson

Дата: Вторник, 13.03.2012, 22:05 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

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

Удалить модуль - правой кнопкой на модуле и выбрать Remove Madule2...
для печати [vba]

Code

Sheets("Итог").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

[/vba]
Вместо Итог впишите любой лист, думаю что и скрытый лист напечатается.

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

RAN

Дата: Вторник, 13.03.2012, 22:06 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Для первого по счету листа ("Мусор").
[vba]

Code

Sheets(1).PrintOut
Sheets("Мусор").PrintOut

[/vba]
Для остальных - думай... happy

Удалять модули так

К сообщению приложен файл: 1419844.jpg (41.3 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Вторник, 13.03.2012, 22:45 | Сообщение № 4

Группа: Друзья

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

Сообщений: 1351

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

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

2007, 2010, 2013

Quote (RAN)

Для остальных - думай...

Я подумал. Вроде головой. Ниче не вышло.
Я, пожалуй, все варианты испробовал. Куда только не ставил этот код. Результат нулевой sad

Я не волшебник. Я только учусь

Ответить

light26

Дата: Вторник, 13.03.2012, 23:14 | Сообщение № 5

Группа: Друзья

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

Сообщений: 1351

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

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

2007, 2010, 2013

Короче, сделал я как писал ранее

Quote (light26)

Через макрорекодер? Включить запись, открыть все листы, запустить печать, скрыть все листы?

[vba]

Code

Sub Печать()
' Печать Макрос
Sheets("Мусор").Visible = True
     Sheets("Газ").Visible = True
     Sheets("Свет").Visible = True
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
     Sheets("Свет").Select
     ActiveWindow.SelectedSheets.Visible = False
     Sheets("Газ").Select
     ActiveWindow.SelectedSheets.Visible = False
     Sheets("Мусор").Select
     ActiveWindow.SelectedSheets.Visible = False
End Sub

[/vba]
Все работает. Немного, правда, напрягает, что листы на экране мелькать начинают. Но это мелочи. Главное, что я своего добился )))

Я не волшебник. Я только учусь

Ответить

ambasad

Дата: Вторник, 13.03.2012, 23:33 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 10

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

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

Quote (light26)

Немного, правда, напрягает, что листы на экране мелькать начинают

в начале своего кода
[vba]

Code

Application.ScreenUpdating = False

[/vba]
в конце кода возвращаете обратно
[vba]

Code

Application.ScreenUpdating = True

[/vba]

Ответить

light26

Дата: Вторник, 13.03.2012, 23:36 | Сообщение № 7

Группа: Друзья

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

Сообщений: 1351

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

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

2007, 2010, 2013

ambasad, спасибо. Теперь я полностью доволен )))

Я не волшебник. Я только учусь

Ответить

Мой первый макрос (Первый блин комом))))

Страница 1 из 1
1