Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для печати выбранных таблиц.
 
#1
23.04.2017 12:36:56
Добрый день!

Подскажите, можно ли сделать макрос, чтобы при выборе определенных галок и нажатии кнопки "Печать" печатались только определенные таблицы на листе? И чтобы на бумаге таблица печаталась именно в том месте, где она находится в файле.
 
 
 
#2
23.04.2017 12:42:31
Если нужно оставить всё на своих местах, но на бумаге отобразить только выборочно, я поступаю следующим образом: делаю белый шрифт там, где печатать не нужно.
 
 
 
#3
23.04.2017 12:48:21
Юрий М,Дело в том, что рамка все равно будет печататься, если сделать белый шрифт. Сейчас я просто подставляю белый прямоугольник поверх таблиц.
Изменено: pavel105 - 23.04.2017 12:50:59
 
 
 
#4
23.04.2017 12:52:46
Рамку (границы) тоже можно перед печатью удалять.
 
 
 
#5
23.04.2017 12:57:23
Я бы копировал лист в нов. книгу, очищал все ненужные таблицы от содержимого и рамки убирал, на печать лист, книгу закрыть и не сохранять.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
23.04.2017 13:10:16
Код
Sub qq()
    Sheets(1).Copy after:=Sheets(Sheets.Count)
    Set r = Union(Range("D2:X75"), Range("AB40:AV75"))
    r.Clear
    ActiveSheet.PrintOut
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub
 
 
 
#7
23.04.2017 16:49:16
Спасибо RAN,  добавил ваш макрос. Теперь при нажатии кнопок qq1, qq2, qq3 или qq4  печатается соответствующая таблица. Как теперь можно увязать печать с  галками? Чтобы при выборе галок печатались соответствующие таблицы.
 
 
 
#8
23.04.2017 17:47:57
Код
Sub printSh()
    Sheets(1).Copy after:=Sheets(Sheets.Count)
    If Not Range("BO7") Then Range("D2:X37").Clear
    If Not Range("BQ7") Then Range("AB2:AV37").Clear
    If Not Range("BO9") Then Range("D40:X75").Clear
    If Not Range("BQ9") Then Range("AB40:AV75").Clear
    Range("A1:BS75").PrintOut
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub


PS удовлетворите любопытство плз, зачем печатать так?
Код
    ExecuteExcel4Macro _
    "PRINT(2,1,1,1,,,,,,,,2,""HP LaserJet M1120n MFP (Ne02:)"",,TRUE,,FALSE)"
Изменено: RAN - 23.04.2017 18:11:09 (Файлик мыши съели, однако...)
 
 
 
#9
23.04.2017 18:33:09
RAN!!! Получилось и все работает, спасибо вам больше! Даже на стуле подпрыгнул от радости) Мне казалось это сложная и нерешаемая задача.

По вашему вопросу - я запустил рекордер, чтобы записать печать на конкретном принтере + печатать страницы с 1 по 1. Он мне так записал)
 
 
 
#10
23.04.2017 18:42:37
Это в каком Excel рекордер так пишет?
 
 
 
#11
23.04.2017 18:45:20
2007
 
 
 
Страницы: 1
Наверх