Помогите с макросом печати в эксель

Question

Помогите с макросом печати в эксель

Вова вова Ученик (99), на голосовании 2 месяца назад

Привет, вообще не дружу с этим, но с мог один нужный макрос запустить
суть
в текущем тексте макроса идёт перебор значений, на +1
там привязана формула впр и получается я печатаю кажлый лист со своим уникальным значеним друг за другом.
а если мне нужно что бы эксель печатал не по одному листу, а по два.
то есть сразу делал копии, по 2 одинаковых листа, а потом переход к значению+1

Sub ïå÷àòü()
Dim a, s
p = InputBox("Ïåðâûé ëèñò")
Range("AM1").Value = p
k = InputBox("Ïîñëåäíèé ëèñò")
For s = p To k - 1
a = [K1]
[K1] = a + 1
ActiveSheet.PrintOut
Next s

End Sub

Answer 1

А если продублировать строчку ActiveSheet.PrintOut?

Answer 2

 
Sub печать()  
    Dim a, s  
    p = InputBox("Первый лист")  
    Range("AM1").Value = p  
    k = InputBox("Последний лист")  
    For s = p To k - 1  
        a = [K1]  
        [K1] = a + 1  
        ActiveSheet.PrintOut ' Печатает первый лист 
        ActiveSheet.PrintOut ' Печатает второй лист (копия первого) 
    Next s  
End Sub