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

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

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

Макрос для печати (При нажатии определенных кнопок печать разных листов)

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

Timus

Дата: Вторник, 25.09.2012, 13:33 | Сообщение № 1

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

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

Сообщений: 1

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

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

Добрый день
Помогите пожалуйста. Нужно чтобы при нажатии на кнопку она закрашивалась определенным цветом и отправляла на печать определенное количество копий заданного диапазона определенного листа.
Я сделал следующим образом, но чтото не работает:

[vba]

Code

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = vbBlack Then
CommandButton1.BackColor = vbGreen
CommandButton1.ForeColor = vbBlack
CommandButton1.Caption = "Договор"
Worksheets("Договор).Range("A27:AC199").PrintOut Copies:=2
GoTo EndSub
End If
EndSub:
End Sub

[/vba]

*где Договор это название кнопки и Листа в книге

Ответить

vikttur

Дата: Вторник, 25.09.2012, 14:51 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 2941

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

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

Worksheets("Договор) - нет закрывающих кавычек

Строки лишние: GoTo EndSub, EndSub: (при необходимости лучше Exit Sub)

[vba]

Code

Private Sub CommandButton1_Click()
     With CommandButton1
         If .BackColor = vbBlack Then
             .BackColor = vbGreen
             .ForeColor = vbBlack
             .Caption = "Договор"
             Worksheets("Договор").Range("A27:AC199").PrintOut Copies:=2
         End If
     End With
End Sub

[/vba]

После печати ведь нужно обратно перекрасить?

Сообщение отредактировал vikttur - Вторник, 25.09.2012, 15:53

Ответить

Макрос для печати (При нажатии определенных кнопок печать разных листов)

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