Страницы: 1
RSS
Макрос предварительный просмотр
 
Добрый день! Помогите пожалуйста сделать макрос на кнопке для открытия окна предварительного просмотра листа перед печатью. Только кнопка и распечатываемая страница находятся на разных листах.
 
Добрый день  
Sheets("Лист для печати").PrintPreview
 
Пасиб!
 
{quote}{login=webley}{date=15.09.2010 09:01}{thema=}{post}Добрый день  
Sheets("Лист для печати").PrintPreview{/post}{/quote}  
В эксель 2010 данная функция выглядит не очень удобно. Как бы так объяснить? как можно кодом "нажать кнопку" (Просмотр и печать) ?
 
Это и был код.
Я сам - дурнее всякого примера! ...
 
{quote}{login=KukLP}{date=28.01.2012 02:49}{thema=}{post}Это и был код.{/post}{/quote}  
код даёт такую картинку  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
а нужна такая  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
нужно открыть как на картинке
 
{quote}{login=n1k0}{date=28.01.2012 02:41}{thema=Re: }{post}{quote}{login=webley}{date=15.09.2010 09:01}{thema=}{post}Добрый день  
Sheets("Лист для печати").PrintPreview{/post}{/quote}  
В эксель 2010 данная функция выглядит не очень удобно...{/post}{/quote}  
Кто сказал, что неудобно?! А на ПБД еще одну/две кнопки из штатных добавить слабо?.. ;)  
-11057-
 
{quote}{login=Z}{date=28.01.2012 03:01}{thema=Re: Re: }{post}{quote}{login=n1k0}{date=28.01.2012 02:41}{thema=Re: }{post}{quote}{login=webley}{date=15.09.2010 09:01}{thema=}{post}Добрый день  
Sheets("Лист для печати").PrintPreview{/post}{/quote}  
В эксель 2010 данная функция выглядит не очень удобно...{/post}{/quote}  
Кто сказал, что неудобно?! А на ПБД еще одну/две кнопки из штатных добавить слабо?.. ;)  
-11057-{/post}{/quote}  
уже добавлены!!! А как "нажать" на эту кнопку кодом?
 
может так )  
 
Sub Test()  
   Application.SendKeys "^p"  
End Sub  
 
Запускать через Alt+F8 или с кнопки на листе, в пошаговом режиме не работает
 
получается что (предварительный просмотр) и (просмотр и печать) разные вещи! Вот так выглядит (предварительный просмотр), а нужен (просмотр и печать).
 
{quote}{login=Ластик}{date=28.01.2012 03:14}{thema=}{post}может так )  
 
Sub Test()  
   Application.SendKeys "^p"  
End Sub  
 
Запускать через Alt+F8 или с кнопки на листе, в пошаговом режиме не работает{/post}{/quote}  
 
Спасибо. Всё гениальное просто!
 
{quote}{login=Ластик}{date=28.01.2012 03:14}{thema=}{post} в пошаговом режиме не работает{/post}{/quote}Я как-то намучился с этим - не работает, и всё тут! :-)
 
{quote}{login=Юрий М}{date=28.01.2012 03:25}{thema=Re: }{post}Я как-то намучился с этим - не работает, и всё тут! :-){/post}{/quote}Потому что сочетание клавиш работает для Excel, а не для VBA...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх