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

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

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

Всем добрый день!
Подскажите пожалуйста, как справится со следующей задачей посредством макроса:
В 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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 вставила в макрос, все работает.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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

Решение

Решение

@interestingly 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10

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

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

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

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

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

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

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

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