Вопрос по печати

[belst]

Добрый день! Подскажите, пожалуйста, следующее. Есть документ - как в нем сделать так, чтобы вывести на печать лишь интересующие ячейки на одну страницу с листа в местах, где они расположены. При печати выделенного диапазона каждая отдельный фрагмент печатается на выделенном листе...прикрепляю файл, в нем цветом выделены ячейки, который должны печататься на одной странице (другой текст не должен быть виден при печати).
Большое спасибо,
С уважением,
Егор

[Slavik]

каждая отдельный фрагмент

У вас хорошее чуство юмора
Предлагаю вам следующее: Вид-Разметка страницы. Добавьте там несколько страниц, выровняйте их как вы хотите, и распечайте нужные страницы (например:1,2,8,10...)

[Jetronic]

Измени цвет ненужного текста/линий и т.п на белый цвет. И все.

[EducatedFool]

1) Выделяем все желтые блоки ячеек на листе (удерживая клавишу Ctrl)
2) жмём Файл - Область печати - Задать
3) Можно переключить вид в режим разметки страницы

Вот что получаем:

[belst]

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

[EducatedFool]

Но при таких действиях в итоге идет печать каждого отдельного куска на новом листе

Тогда надо воспользоваться советом от Jetronic

В виде кода это будет выглядеть так:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.UsedRange.Font.Color = vbWhite
    [ForPrintOut].Font.Color = vbBlack
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If [a1].Font.Color = vbWhite Then ActiveSheet.UsedRange.Font.Color = vbBlack
End Sub

Предварительно выделяем все желтые блоки ячеек на листе (удерживая клавишу Ctrl), и назначаем выделенному диапазону имя ForPrintOut

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

Пример файла: http://excelvba.ru/XL_Files/Sample__...__18-57-48.zip

[segail]

Здравствуйте.
Можно ли использовать данный код для печати, или есть более эффективные методы печати ?

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1

[EducatedFool]

Можно ли использовать данный код для печати

А Вы запустите этот код, - и узнаете...

или есть более эффективные методы печати ?

В чем измеряется эффективность метода печати?
Я-то думал, что код либо выводит данные на печать, либо не выводит.
А, оказывается, у каждого метода - свой показатель эффективности...

[segail]

В смысле не эффективности, а не будет ли сбоев при печати на других принтерах. Не знаю как будет работать код на другом принтере.

[EducatedFool]

не будет ли сбоев при печати на других принтерах

Эта команда не отправляет данные непосредственно на принтер.
(она лишь сообщает подсистеме печати ОС, что и на какой из принтеров надо вывести)

Выводом на печать занимается Windows, и, если и будут сбои, то никак не по вине макроса.

Если Windows, Office и принтеры установлены нормально - макрос одинаково хорошо отправит данные на любой из принтеров.