Доброго времени суток.
Есть такая проблема.
Существует одна страница эксель.
Необходимо напечатать 60 страниц с последующими номерами: 3 страницы с номерами 1; 3 страницы c номером 2 и т. д.
Макросом. Принтером.
Sub Макрос1()
Dim i&, n&
For i = 1 To 20
n = n + 1
ActiveSheet.PageSetup.CenterFooter = "Страница " & n
ActiveWindow.SelectedSheets.PrintOut 1, 1, 4
Next
End Sub
Большое спасибо. Сейчас попробую. :)
кнопка цитирования не для ответа [МОДЕРАТОР]
Будет ли отличаться код для google docs?
Пишет, что отсутствует точка с запятой! А она здесь разве нужна? Или это язык другой уже используется и вид макроса будет другой?
Wallest, если Вы не заметили - это форум по Excel. С вопросами по другим программным продуктам обращайтесь в соответствующие форумы. Заканчивайте оффтоп.