Страницы: 1
RSS
Макрос по автоматической распечатке бланка
 
Макрос по автоматической распечатке бланка, если в строке с данными указан "х". Подскажите, пожалуйста, как изменить макрос, чтобы распечатывались 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 'çàêîìåíòèðîâàòü ïîñëå îòëàäêè
'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
 
вместо строк
Код
1
2
what2print.PrintPreview 'çàêîìåíòèðîâàòü ïîñëå îòëàäêè
'what2print.PrintOut 'óáðàòü êîìåíòàðèé äëÿ âûïîëíåíèÿ ïå÷àòè
напишите

Код
1
what2print.PrintOut copies:=3
 
Спасибо!!!!!!!!
 
так?
Код
1
2
3
.....
what2print.PrintOut Copies:=3
....
З,Ы, копируйте макрос при русской раскладке и код соответствующим тегом оформляйте
Согласие есть продукт при полном непротивлении сторон
 
Вот что значит когда удочки нет... А если бы мы все смотрели например КВН/футбол/хоккей? И одновременно чемпионат F1?
Всего-то нужно найти где кнопка записи макроса...
Страницы: 1
Читают тему
Наверх
Loading...