ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопка печати в Excel
16 сообщений из 16, страница 1 из 1
Кнопка печати в Excel
    #33662043
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
Есть лист Excel для расчета з/п.
Пользователь вносит данные в таблицу (выполнение плана, оплата проезда и т.п.), нажимает кнопку "Следующий" и только что введенные данные копируются 30 ячейками ниже, а в таблицу вносятся данные по следующему работнику. И так пока не подсчитают всю з/п.
Босс сказал - сделай кнопку рядом с каждой таблицей - "Печать" - чтобы печаталась только эта таблица (всего на листе их до 20 бывает)
Сделал, но для печати, сначала надо выделить область печати (ту самую таблицу) - потом нажать кнопку
Вопрос - а можно ли обойтись без предварительного выделения и насколько это сложно?
Заранее спасибо!
...
Рейтинг: 0 / 0
12.04.2006, 16:53:24
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662185
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
2.
3.
Private Sub CommandButton1_Click()
    ' A1:B3 - это диапазон твоей таблички.
    Worksheets("Лист1").Range("A1:B3").PrintOut
End Sub
...
Рейтинг: 0 / 0
12.04.2006, 17:28:14
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662216
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
Понятно, но таблички (вместе с кнопкой печать) копируются сверху и диапазон заранее не известен!
...
Рейтинг: 0 / 0
12.04.2006, 17:35:46
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662283
Tachkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tachkin
Участник
Может области проименовать и их потом уже печатать?
...
Рейтинг: 0 / 0
12.04.2006, 17:55:38
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662324
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
...
Рейтинг: 0 / 0
12.04.2006, 18:08:26
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662335
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
Можно и поименовать, но как кнопка (скопированная при вводе данных пользователем), при нажатии определит и передаст в функцию имя диапазона? Функция то есть, надо диапазон указать только. Я предлагал его выделять просто и кнопку давить, так говорят "...сложно, ошибиться можно ..." надо прям так - нажал - распечаталось и все....
...
Рейтинг: 0 / 0
12.04.2006, 18:11:34
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662345
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
2 big-duke:
Да знаю я это давно - вопрос в другом...
...
Рейтинг: 0 / 0
12.04.2006, 18:12:52
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33662352
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
вы мой скрин смотрели ?
Сервис - макрос - запись
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$7"
вычисляете в своей ф-ции range и пишете его .address в ActiveSheet.PageSetup.PrintArea
...
Рейтинг: 0 / 0
12.04.2006, 18:14:14
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33663273
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Alexander65536Можно и поименовать, но как кнопка (скопированная при вводе данных пользователем), при нажатии определит и передаст в функцию имя диапазона? Функция то есть, надо диапазон указать только. Я предлагал его выделять просто и кнопку давить, так говорят "...сложно, ошибиться можно ..." надо прям так - нажал - распечаталось и все....
Проблема, как я понимаю, в том, что надо программно определить какой диапазон ячеек выводить на печать. В этом мы вам помочь не сможем, потому что не знаем как именно создаются эти таблицы. Приведите пример, выложите скриншот. Тогда и ждите совета.
...
Рейтинг: 0 / 0
13.04.2006, 09:40:35
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33663426
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
Таблицы получаются копированием вниз при помощи макроса на кнопке "следующий":
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Range("B17:P37").Select
    ActiveWindow.ScrollColumn =  1 
    Selection.Copy
    ActiveWindow.SmallScroll Down:= 6 
    Range("B39").Select
    Selection.Insert Shift:=xlDown
    Range("C38").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("B40").Select
Требуется поместить кнопку печать около каждой таблички (уже поместил, копируется вместе с табличкой по нажатию "следующий), и чтобы кнопка печатала только табличку (обведены красным), рядом с которой находится. Код для печати диапазона на альбомном листе есть, надо только знать - какой диапазон печатать...
...
Рейтинг: 0 / 0
13.04.2006, 10:29:58
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33663429
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
...
Рейтинг: 0 / 0
13.04.2006, 10:30:19
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33663546
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
А где кнопки печатей каждой из таблиц?

...
Рейтинг: 0 / 0
13.04.2006, 11:00:18
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33663635
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Тут надо решить к чему привязваться
Самый на мой взгляд простой вариант привязывание к выделенной ячейке.
Встаем курсором на одну из ячеек нужной для печати таблицы. Нажимаем на кнопку и выполняем макрос.
Код: plaintext
ActiveCell.CurrentRegion.PrintOut Copies:= 1 , Collate:=True

Сложнее, если привязываться не к ячейке, а к местоположению кнопки. Т.к. вы говорите, что эта кнопка копируется вместе с таблицей. Тут надо узнавать где находится кнопка, соответственно определять местоположение таблицы и выполнять вышеприведенный код.
Но лучше все же сделать одну кнопку на панели, а далее вышеприведенный код.

...
Рейтинг: 0 / 0
13.04.2006, 11:22:56
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33664008
Alexander65536
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander65536
Участник
Я уже сделал кнопку, печатающую выделенное (на скрине нет, т.к. переделанная версия на другом компе, а он занят), а задача - максимально упростить печать - щелкнул - напечаталось! Следовательно вопрос - как определить положение экземпляра кнопки на листе?
...
Рейтинг: 0 / 0
13.04.2006, 12:47:10
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33664319
Logayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Logayn
Гость
Может попробовать привязать на
Код: plaintext
CommandButton.Top
...
Рейтинг: 0 / 0
13.04.2006, 13:44:05
| Ответить | Цитировать | Написать  
Кнопка печати в Excel
    #33664336
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Alexander65536Следовательно вопрос - как определить положение экземпляра кнопки на листе?
Очень посто у кнопки из панели "Элементы управления" есть свойства .Top и .Left, которые указывают местопложение на листе. У ячеек тоже есть эти свойства. Видимо нужно найти адрес верхней ячейки таблицы используя ее смещение относительно кнопки, а потом
Код: plaintext
Range("адрес верхней ячеки").CurrentRegion.PrintOut Copies:= 1 , Collate:=True
или так
Код: plaintext
1.
2.
Range("адрес верхней ячеки").CurrentRegion.Select
If MsgBox ("Вы уверены, что хотите распечатать выделенную таблицу?", vbYesNo) = vbYes then Selection.PrintOut Copies:= 1 , Collate:=True
...
Рейтинг: 0 / 0
13.04.2006, 13:47:53
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопка печати в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33663426&tid=2184992]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 75ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 219ms
total:  403ms
созд. / загр.: 403ms
x
x
Закрыть


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