Условие в макросе от выбора кнопки

[ELE-COM]

Есть проблема: на листе 2 кнопки, запускающие 2 почти одинаковых макроса. Разница в том, что первая выводит на печать заданную область, а вторая нет. Оставшаяся часть макросов выполняет одинаковые функции. Можно-ли создать условие в одном макросе, по которому при нажатии на первую кнопку печать будет, а при нажатии на вторую - нет (чтобы удалить лишний макрос).
Вариант: MsgBox("Распечатать ?", Buttons:=3) не подходит, хотелось бы в одно нажатие.
Посоветуйте, пожалуйста.

[IgorGO]

Допустим с печатью МАКРОС1.
В обьявлении макроса добавляем параметр ПЕЧАТАТЬ as boolean.
С одной кнопки вызываем МАКРОС1 true, с другой МАКРОС1 false.
в теле макроса фрагмент, который выводит на печать заключаем в такие скобки
if ПЕЧАТАТЬ then
' фрагмент распечатывающий данные
end if

[nilem]

Может быть, объявить булеву переменную на уровне модуля. Что-то вроде этого:
Dim Бул As Boolen

Sub CommandButton1_Click()
Бул = False
Call ОсновнойМакрос
End Sub

Sub CommandButton2_Click()
Бул = True
Call ОсновнойМакрос
End Sub

А в основном макросе:
...
If Бул=False Then
печатаем
Else
не печатаем
End If
...

[nilem]

Упс, опоздал на минуту.

[ELE-COM]

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

Допустим с печатью МАКРОС1.
...
С одной кнопки вызываем МАКРОС1 true, с другой МАКРОС1 false.

Я правильно понял:

Sub спечатью()
Call МАКРОС1(true)
End Sub

Sub безпечати()
Call МАКРОС1(false)
End Sub

?
Просто принтера сейчас нет, проверить не могу. Без печати работает.

[IgorGO]

Правильно.
Макрос был обьявлен
Sub МАКРОС1()
а теперь надо
Sub МАКРОС1(ПЕЧАТЬ as boolean)
и в теле макроса две строки добавить (описано уже выше как)

[ELE-COM]

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

Правильно.
Макрос был обьявлен
Sub МАКРОС1()
а теперь надо
Sub МАКРОС1(ПЕЧАТЬ as boolean)
и в теле макроса две строки добавить (описано уже выше как)

Остальное я так и сделал сразу же.
Модуль сократился на 28 Кb
Спасибо!!!

[IgorGO]

ELE-COM,
проверить сейчас можно так:
закомментировать все что должно было печатать
поставить одну строку MsgBox "Тут должно было распечатываться..."
Не забыть потом все вернуть к правильному состоянию

nilem,
очень понравилось это:
If Бул=False Then
печатаем
Else
не печатаем
End If

Строго как в анекдоте о программисте. Ложится программист спать возле кровати ставит стакан с водой и пустой стакан. На вопрос:
- Зачем?
- А вдруг пить ночью захочу!
- А пустой???
- А вдруг не захочу!

[ELE-COM]

Dim стакан As Boolean
If Стакан > 0 Then
MsgBox "Хочу пить"
Else 
MsgBox "Не хочу пить"
End If

[nilem]

Да, не профессионал. Но подход-то верный!