ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Дополнить макрос в Excel
11 сообщений из 11, страница 1 из 1
Дополнить макрос в Excel
    #37879472
Татьяна...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татьяна...
Гость
Доброе время суток, знатоки.
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:11
| Ответить | Цитировать | Написать  
Дополнить макрос в Excel
    #37879477
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
...
Рейтинг: 0 / 0
14.07.2012, 21:18
| Ответить | Цитировать | Написать  
Дополнить макрос в Excel
    #37879482
Татьяна...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татьяна...
Гость
big-duke, спасибо большое за оперативность
сейчас нет возможности проверить, смогу только завтра, на работе.

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

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

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

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

С уважением.

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

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


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