Выделение фоном при печати

[yojig]

Здравствуйте! есть такая задача (вроде бы простая, а как реализовать?): имеется excel файл с заявками, печатается из него выделенный диапазон, и нужно чтоб распечатанный диапазон выделялся цветом (чтоб второй раз на печать не отправляли)

[Hugo121]

Запись макроса с одним добавленным апострофом:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11.04.2013 by IB
'

'
'    Range("A1:A2").Select
    Selection.PrintOut Copies:=1
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

[yojig]

спасибо большое! работает. повесил на стандартный хоткей печати и добавил в xlstart

[yojig]

вм помогу

[Hugo121]

Ну да, код можно поместить в personal.xls/m/ и выполнять по хоткею, или кнопкой на панели, или допустим в файле в шапке закрепить кнопку.
На стандартный Ctrl+P я бы выполнение не ставил.
Ну и цвет можно задать любой другой - запишите рекордером задание нужного цвета, замените в коде 6 на нужное значение.

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

[yojig]

а такой ещё вопрос, можно при запуске макроса вывести диалог печати (стандартный, как в файл\печать)? чтоб настроить кол-во копий и все остальное

[Hugo121]

Можно, но это немного "ломает" весь процесс - а если юзер в диалоге выберет печатать всё? Или откажется печатать?

Sub tt()
Application.Dialogs(xlDialogPrint).Show
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

[yojig]

это да, понятно, но менеджеры у нас всегда выделяют столбцы и сразу отправляют на печать посмотрю как им удобнее будет. спасибо ещё раз!