Макрос по автоматической распечатке бланка, если в строке с данными указан "х". Подскажите, пожалуйста, как изменить макрос, чтобы распечатывались 3 копии. Спасибо. Очень, очень жду, осталась на работе, срочно надо распечатать огромное количество бумаг в трех экземплярах
Код |
---|
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 | Private Sub Worksheet_BeforeDoubleClick( ByVal Target As Range, Cancel As Boolean )
Dim what2print As Range, database As Range
Dim r As Long
Dim str As String
Set what2print = Worksheets( "Áëàíê" .Range( "A2:L52"
str = "x"
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Application.EnableEvents = False
r = Cells(Rows.Count, 2). End (xlUp).Row
Range( "A2:A" & r).ClearContents
Target.Value = str
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
what2print.PrintPreview
End Sub
Private Sub Worksheet_SelectionChange( ByVal Target As Range)
End Sub
|
|