Макрос по автоматической распечатке бланка, если в строке с данными указан "х". Подскажите, пожалуйста, как изменить макрос, чтобы распечатывались 3 копии. Спасибо. Очень, очень жду, осталась на работе, срочно надо распечатать огромное количество бумаг в трех экземплярах
| Код |
|---|
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 'çàêîìåíòèðîâàòü ïîñëå îòëàäêè
'what2print.PrintOut 'óáðàòü êîìåíòàðèé äëÿ âûïîëíåíèÿ ïå÷àòè
End Sub
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim r As Long
'Dim str As String
'
'If Target.Count > 1 Then Exit Sub
'If Target.Column = 1 Then
' str = Target.Value
' Application.EnableEvents = False
' r = Cells(Rows.Count, 2).End(xlUp).Row
' Range("A2:A" & r).ClearContents
' Target.Value = str
'End If
' Application.EnableEvents = True
'End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub |
