Печать данных

[OgE®_M@G]

Здравствуйте УВАЖАЕМЫЕ. У меня тут такая проблема. Можно ли напечатать через макрос именно те диапазоны листа на которых существуют данные (диапазоны могут меняться) с этим как раз таки и проблема не могу прописать это через макрос. Помогите пожалуйста.

[EducatedFool]

Да, можно.
Пример файла + подробное описание, что и как должно печататься.

Выделите цветом на листе (листах) области, которые надо выводить на печать.

PS: Через меню Вид - Представления можно вручную настроить несколько вариантов вывода листа на печать.
Для каждого из представлений через меню Файл - Область печати - Задать можно выбрать диапазон, который будет выводиться на печать.

При добавлении строк эта область печати автоматически увеличивается в размерах.
Так что можно попробовать обойтись без макросов.

[Sasha_Smirnov]

Можно.
1. Нажав контрол-F, находим 1-ю клетку с любыми (*) данными.
2. Комбинацией контрол-шифт-End выделяем всю область с данными.
3. Контрол-P (пи) - вызываем диалог печати.

Очевидно, что эти действия можно записать в макрос, а затем подредактировать.

Sub iCanPrintOnlyFlesh()

'Выделяет область листа книги *.xls,'
'содержащую все данные этого листа от первой непустой СТРОКИ.'
'По желанию печатает.'

Cells(1, 1).Activate

If IsEmpty(ActiveCell) Then
    Cells.Find(What:="*", SearchOrder:=xlByRows).Activate
End If
'теперь мы стоим на первой (по строкам таблицы Excel) непустой клетке'

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'Прямоугольник с данными выделен. Далее - предлагаем напечатать.'

If MsgBox("Напечатать?", vbQuestion + vbMsgBoxRight + vbYesNo) = vbYes Then
    On Error GoTo MESSA
    Selection.PrintOut:  Exit Sub 'предлагает напечатать выделенное'
MESSA:
    MsgBox "Зайдите после обеда." 'это если нажать кнопку "Отмена"'
End If

End Sub

Кстати, а почему бы просто не выделять перед печатью нужный фрагмент?
(А дав команду печатать, отметить там (в диалоге) "выделенный диапазон".)

[OgE®_M@G]

Вот файл с диапазонами ячеек

[OgE®_M@G]

Спасибо Sasha_Smirnov я завтра попробую вроде бы должно получиться.

[EducatedFool]

Можно использовать такой макрос:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True: ActiveSheet.UsedRange.PrintOut
End Sub

Или такой: (лучше использовать именно этот вариант)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    On Error Resume Next
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub

В этих случаях ничего запускать перед печатью не требуется - макрос запустится сам.

Поместить макрос надо в модуль кода "Эта книга"

Сообщение от OgE®_M@G

Да кстати тут еще не понимаю почему принтер диапазоны печатает (например один и тот же диапазон) просто копий например 2-3 с задержкой то есть сначала одну копию потом вторую в ворде такого нет это как нить исправить можно.

У Вас что, кнопка с запятой на клавиатуре сломалась?
Ничего не понял ...

PS: Не надо плодить посты - есть кнопка Правка

[OgE®_M@G]

Да кстати тут еще не понимаю почему принтер диапазоны печатает (например один и тот же диапазон) просто копий например 2-3 с задержкой то есть сначала одну копию потом вторую в ворде такого нет это как нить исправить можно.

[OgE®_M@G]

Спасибо что откликнулись EducatedFool я завтра попробую.

[viter.alex]

Таки-да, запятая поломалась