Как распечатать диапазон ячеек без цвета

@interestingly · Регистрация: 25.05.2015

Author24 — интернет-сервис помощи студентам

Всем добрый день!
Подскажите пожалуйста, как справится со следующей задачей посредством макроса:
В Excel на листе есть диапазон ячеек, часть которых выделена цветом для лучшей визуализации. Этот диапазон нужно распечатать с кнопки без сохранения цвета, при этом цвет ячейки в самом диапазоне не должен измениться.

Всем спасибо заранее

@pashulka · 30.05.2015, 12:41

Visual Basic

1
2
3

ActiveSheet.PageSetup.BlackAndWhite = True
'Здесь Ваша печать, например Range("A1:C100").PrintOut
ActiveSheet.PageSetup.BlackAndWhite = False

@interestingly · 30.05.2015, 16:56 **[ТС]**

Спасибо! Но данный режим меняет цветную ячейку на серую, а не убирает цвет ячейки

@pashulka · 30.05.2015, 17:36

Сорри, на черно-белом принтере (меню Файл - команда Параметры страницы - закладка Лист - "флажок" Черно-белая) всегда прокатывало.

P.S. Диапазон большой ? Есть ли ячейки, к которым применено условное форматирование ?

@Казанский · 30.05.2015, 18:23

AFAIR там есть "черновой" режим, вот он дает черно-белый текст, но без картинок. Сейчас проверить и найти свойство не могу.

@interestingly · 30.05.2015, 18:46 **[ТС]**

Я нашла этот черновой режим: "печать" - "параметры страницы" - "лист" - "печать черновая". Запись макроса дает следующий код (что из этого в итоге нужно прикрепить к кнопке?):

Visual Basic

Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = True
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
End Sub

@pashulka · 30.05.2015, 18:47

Черновая - это ActiveSheet.PageSetup.Draft = True , но здесь даже границы ячеек не печатаются

@Казанский · 30.05.2015, 18:54

Ну значит скопировать диапазон на новый лист, сделать черный цвет, распечатать, удалить лист.

@pashulka · 30.05.2015, 19:04

Казанский, я уже несколько вариантов родил, в т.ч. и с временным листом, но если автору вопроса подойдёт черновая печать, то ... имеет смысл подождать вердикт

@interestingly · 30.05.2015, 20:49 **[ТС]**

Всем спасибо большое! Мне нужно распечатывать только значения из ячеек (текст) и черновая печать подошла. Границы ячеек не нужны. ActiveSheet.PageSetup.Draft = True вставила в макрос, все работает.

Как распечатать диапазон ячеек без цвета

Решение

Решение

@interestingly 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
		1
	Как распечатать диапазон ячеек без цвета 30.05.2015, 12:31. Показов 1586. Ответов 9 Метки нет (Все метки) Всем добрый день! Подскажите пожалуйста, как справится со следующей задачей посредством макроса: В Excel на листе есть диапазон ячеек, часть которых выделена цветом для лучшей визуализации. Этот диапазон нужно распечатать с кнопки без сохранения цвета, при этом цвет ячейки в самом диапазоне не должен измениться. Всем спасибо заранее 0

@interestingly 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
	30.05.2015, 16:56 [ТС]	3
	Спасибо! Но данный режим меняет цветную ячейку на серую, а не убирает цвет ячейки 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.05.2015, 17:36	4
	Сорри, на черно-белом принтере (меню Файл - команда Параметры страницы - закладка Лист - "флажок" Черно-белая) всегда прокатывало. P.S. Диапазон большой ? Есть ли ячейки, к которым применено условное форматирование ? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	30.05.2015, 18:23	5
	Сообщение было отмечено interestingly как решение Решение AFAIR там есть "черновой" режим, вот он дает черно-белый текст, но без картинок. Сейчас проверить и найти свойство не могу. 1

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.05.2015, 18:47	7
	Сообщение было отмечено interestingly как решение Решение Черновая - это ActiveSheet.PageSetup.Draft = True , но здесь даже границы ячеек не печатаются 1

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	30.05.2015, 18:54	8
	Ну значит скопировать диапазон на новый лист, сделать черный цвет, распечатать, удалить лист. 1

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.05.2015, 19:04	9
	Казанский, я уже несколько вариантов родил, в т.ч. и с временным листом, но если автору вопроса подойдёт черновая печать, то ... имеет смысл подождать вердикт 1

@interestingly 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
	30.05.2015, 20:49 [ТС]	10
	Всем спасибо большое! Мне нужно распечатывать только значения из ячеек (текст) и черновая печать подошла. Границы ячеек не нужны. ActiveSheet.PageSetup.Draft = True вставила в макрос, все работает. 0