Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Печать кнопкой, Печать кнопкой определенное количество листов
 
#1
24.07.2015 01:43:50
Здравствуйте, выручайте, весь форум перелопатил, весь интернет, может быть не правильно запрос сделал, не знаю, не нашел ответа, но думаю это вполне реально сделать. :).

В общем, на листе №1 когда я забиваю цифру например (9000шт) он мне пересчитывает в отдельную ячейку (H6), сколько нужно страниц напечатать (4шт)
Так вот, как сделать макрос, что бы при нажатии на кнопку, она смотрела на ячейку (H6) и печатала то число страниц которое там указано (4шт) с листа №2 ?
Пример добавил.
Заранее великодушное спасибо!
Изменено: lime2801 - 24.07.2015 01:48:30
 
 
 
#2
24.07.2015 02:26:57
Доброй ночи
Так попробуйте:
Код
Sheets("Лист2").PrintOut Copies:=Range("G6").Value
 
 
 
#3
24.07.2015 20:33:39
Не то, оно мне напечатало все страницы по 4 копии, а нужно не копии, а просто 4 страницы:)
 
 
 
#4
24.07.2015 20:39:42
Цитата
lime2801 написал:
то число страниц которое там указано (4шт)
если это не количество копий, означает печать со страницы № по страницу№.
Запишите рекордером и подставьте нужные значения
 
 
 
#5
24.07.2015 20:43:26
Цитата
RAN написал:
Запишите рекордером и подставьте нужные значения
Просто дело в том, что количество в ячейке Н6 будет меняться, сейчас 4, через 10минут уже 14, тк нужно что бы макрос видел в ячейке Н6 число 14 и печатал 14 страниц.
Как то так.
 
 
 
#6
24.07.2015 20:47:51
И меняйте на здоровье.
PrintOut from 1 to cells(X,Y).value
Как-то так.
 
 
 
#7
24.07.2015 21:42:03
Я в этом деле чайник, ничего не получается :(
 
 
 
#8
24.07.2015 22:11:10
Скопируйте в стандартный модуль и назначьте на кнопку:
Код
Sub TestPrint()
    Sheets("Лист2").PrintOut from:=1, to:=Range("G6").Value
End Sub
 
 
 
#9
24.07.2015 22:41:56
Цитата
Юрий М написал:
Скопируйте в стандартный модуль и назначьте на кнопку:Код?123Sub TestPrint()    Sheets("Лист2").PrintOut from:=1, to:=Range("G6").ValueEnd Sub

О боже! оказывается всё так просто! работает! :)
Спасибо вам огромное я наверное часов 5 убил на поиски ответа в интернете, а тут дали сразу) спасибо!
 
 
 
Страницы: 1
Наверх