Страницы: 1
RSS
Макрос для задания области печати
 
Всем доброго дня!  
Подскажите, пожалуйста! Выделяю мышкой некоторую область и нужен макрос, который задаёт    
областью печати выделенную область и отправляет её на печать.  
Руками макросы писать не умею. Пробовал выделять область, а потом макрорекордером, не получается. В коде макроса записываются конкретные ячейки выделенные перед запуском макрорекордера, а надо, чтобы: выделил произвольную область - нажал кнопку - она распечаталась.  
В поиске ничего про это не нашёл.  
Заранее спасибо!
 
Макрос такой у меня получается, но как сделать, чтобы было равно не "$C$3:$H$25",    
а выделенной области?  
 
Sub Макрос1()  
   ActiveSheet.PageSetup.PrintArea = "$C$3:$H$25"  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
End Sub
 
Selection.PrintOut
ICQ 414884755
 
{quote}{login=vlanib}{date=03.05.2010 10:01}{thema=}{post}Selection.PrintOut{/post}{/quote}  
Поподробнее, пожалуйста.  
В какое место макроса это надо вставить?
 
Всё просто.  
 
Sub Макрос1()  
Selection.PrintOut  
End Sub
ICQ 414884755
 
{quote}{login=vlanib}{date=03.05.2010 10:06}{thema=}{post}Всё просто.  
 
Sub Макрос1()  
Selection.PrintOut  
End Sub{/post}{/quote}  
Да, и правда просто! Вроде получается всё, как хотелось.  
Спасибо огромное, vlanib!!!  
И чтобы я делал без этого замечательного форума...
 
1. На листе создала управляющую кнопку, записала макрос (выделила диапазон, нажала кнопку форма). Когда нажимаю на кнопку, запрашивает названия столбцов и не создает форму. Когда проделываю эту операцию без кнопки, все работает?  
 
2. Первая кнопка подает на печать выделенный диапазон. К моему компьютеру не подключен принтер. А как изменить запись макроса, чтобы фрагмент печатался принтером по умолчанию на любом компютере, если это возможно?
Страницы: 1
Читают тему
Наверх