Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Дополнить макрос в Excel / 11 сообщений из 11, страница 1 из 1
14.07.2012, 21:11
    #37879472
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Доброе время суток, знатоки.
W7, Excel 2003
Выделена произвольная ячейка в таблице, при нажатии на функциональную кнопку, на которой следующий макрос:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Печать_СРТС()

SetRow = ActiveCell.Row
    Лист2.Range("F2") = SetRow

    Sheets("ДК").Select
    Application.ActivePrinter = "EPSON LX-300+ /II (Ne05:)"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "EPSON LX-300+ /II (Ne05:)", Collate:=True
    Sheets("База").Select

    Sheets("КР").Select
    Application.ActivePrinter = "Samsung ML-1860 Series (Ne02:)"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("База").Select

End Sub


производится вставка данных строки с активной ячейкой на разные листы ("ДК" и "КР")
и печать на разных принтерах (матричном и лазерном).

Помогите внести изменения в этот макрос, чтобы, если отсутствуют данные в ячейке столбца AR,
той же строки с активной ячейкой, то печать на лазерном принтере Samsung ML-1860 Series отменялась.

Заранее спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2012, 21:18
    #37879477
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Татьяна...,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Печать_СРТС()

SetRow = ActiveCell.Row
    Лист2.Range("F2") = SetRow

    Sheets("ДК").Select
    Application.ActivePrinter = "EPSON LX-300+ /II (Ne05:)"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "EPSON LX-300+ /II (Ne05:)", Collate:=True
    Sheets("База").Select

    Sheets("КР").Select
    ' та самая проверка
    If Not IsEmpty(Range("AR" & ActiveCell.Row).Value) Then
        Application.ActivePrinter = "Samsung ML-1860 Series (Ne02:)"
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
    Sheets("База").Select
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2012, 21:22
    #37879482
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
big-duke, спасибо большое за оперативность
сейчас нет возможности проверить, смогу только завтра, на работе.

С уважением
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 01:25
    #37879645
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Прошу меня простить, за вопрос не по теме
не хотелось создавать новую тему.

У меня один из листов используется как источник данных по транслиту (с формулами)
Возможно ли скрыть этот лист, но чтобы он продолжал работать?
Как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 11:17
    #37879715
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
big-dukeТатьяна...,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Печать_СРТС()

SetRow = ActiveCell.Row
    Лист2.Range("F2") = SetRow

    Sheets("ДК").Select
    Application.ActivePrinter = "EPSON LX-300+ /II (Ne05:)"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "EPSON LX-300+ /II (Ne05:)", Collate:=True
    Sheets("База").Select

    Sheets("КР").Select
    ' та самая проверка
    If Not IsEmpty(Range("AR" & ActiveCell.Row).Value) Then
        Application.ActivePrinter = "Samsung ML-1860 Series (Ne02:)"
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
    Sheets("База").Select
End Sub



что то не получается.
если данные в столбце AR отсутствуют, то все нормально
а если есть данные, то все равно, печать на этом принтере пропускается (ни чего не печатает)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 11:35
    #37879722
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
ура все заработало.

подскажите пожалуйста еще
опять же дополнить этот макрос
что нужно добавить, чтобы по завершению печати на всех принтерах
строка с активной ячейкой на листе "База", была удалена.

С уважением.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 12:07
    #37879731
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Татьяна...
подскажите пожалуйста еще
опять же дополнить этот макрос
что нужно добавить, чтобы по завершению печати на всех принтерах
строка с активной ячейкой на листе "База", была удалена.

С уважением.

Люди добрые, отзовитесь, помогите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 12:56
    #37879754
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Татьяна...строка с активной ячейкой на листе "База", была удалена. Татьяна, а где в Ваших постах хоть одно упоминание о листе "База"?
Активная ячейка может быть только на активном листе, а значит:
activecell.entirerow.delete
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 13:07
    #37879759
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
kuklp, добрый день
честно говоря, я думала, что это и так понятно из кода
мы же там всегда возвращаемся на лист "База"
Sheets("База").Select

Спасибо за помощь, буду пробовать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 16:26
    #37879850
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
Татьяна...kмы же там всегда возвращаемся на лист "База"
Sheets("База").Select Sheets("База").Select и Sheets("База").Activate - несколько разные вещи...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2012, 19:47
    #37879933
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дополнить макрос в Excel
AndreTM Sheets("База").Select и Sheets("База").Activate - несколько разные вещи
Но в любом случае мы
Татьяна...возвращаемся на лист "База"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Дополнить макрос в Excel / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 146ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175552]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 13ms
total:  146ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]