ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать, без переключения на лист Excel
7 сообщений из 7, страница 1 из 1
Печать, без переключения на лист Excel
    #37881238
Татьяна...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татьяна...
Гость
И снова здравствуйте, уважаемые.
W7, Excel 2003

При использовании такого макроса (Вы его уже видели, чуть укоротила, смысла вопроса не меняет)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Печать_СРТС()
SetRow = ActiveCell.Row
    Лист2.Range("F2") = SetRow

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


при нажатии на кнопку я вижу как сначала становиться активным лист "КР",
потом с него осуществляется печать данных
и далее возвращаемся на лист "База"

Вопрос: а можно так сделать, чтобы на экране не было видно этих переходов по листам
так сказать чтобы данные распечатывались с листа, не активируя этот лист?

Заранее, спасибо.
...
Рейтинг: 0 / 0
16.07.2012, 19:31
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881240
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
Sheets("КР").PrintOut Copies:=1, Collate:=True
...
Рейтинг: 0 / 0
16.07.2012, 19:32
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881253
Татьяна...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татьяна...
Гость
Shocker.Pro, ух как быстро.
Спасибо.
Как-то видела на одном из сайтов, примеры много - много интересных макросов для Excel
но сейчас не могу найти, не подскажите где можно посмотреть такое
...
Рейтинг: 0 / 0
16.07.2012, 19:38
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881262
Татьяна...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татьяна...
Гость
Shocker.Pro
Код: vbnet
1.
Sheets("КР").PrintOut Copies:=1, Collate:=True


Какой вопрос, такой ответ.
Укоротила пример макроса, получила укороченный ответ
Попробую поправить вопрос, а то у меня не получается
Вопрос: а можно так сделать, чтобы на экране не было видно этих переходов по листам, при печати на разных принтерах?
Код: 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
...
Рейтинг: 0 / 0
16.07.2012, 19:46
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881455
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Чтобы не было видно переходов по листам, не надо по ним переходить

http://www.sql.ru/forum/actualthread.aspx?tid=932594
...
Рейтинг: 0 / 0
16.07.2012, 23:53
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881458
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Татьяна...много интересных макросов для Excel http://www.excelworld.ru/ например
...
Рейтинг: 0 / 0
16.07.2012, 23:54
| Ответить | Цитировать | Написать  
Печать, без переключения на лист Excel
    #37881481
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
Павел, уточню адрес , что бы ТС не искать по всему сайту :)
...
Рейтинг: 0 / 0
17.07.2012, 00:21
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать, без переключения на лист Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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