Печать с помощью макроса

Guest

Гость

13.02.2009 11:59:40

Доброго всем!
Макрорекордером сваял следующее и поцепил на кнопку:

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
End Sub

Т.е. печатается сначала 1-й лист, а затем 2-й. А требуется чтобы 2-й лист не печатался, а выводилось окно для печати (как при нажатии Ctrl+P) с установленными страницами с 2-й по 2-ю (см. вложение).
Спасибо.

Guest Гость	#2 13.02.2009 12:01:02 Картинка не прикрепилась. Прикрепленные файлы post_49312.JPG (42.16 КБ)

Guest Гость	#3 13.02.2009 13:13:52 Private Sub CommandButton1_Click() 'ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _ :=True End Sub

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#4 13.02.2009 13:36:59 Насчет установленных опций не знаю, а сам диалог так Application.Dialogs(xlDialogPrint).Show Bite my shiny metal ass!

Guest

Гость

13.02.2009 14:19:54

{quote}{login=Лузер™}{date=13.02.2009 01:36}{thema=}{post}Насчет установленных опций не знаю, а сам диалог так
Application.Dialogs(xlDialogPrint).Show{/post}{/quote}
Спасибо, правда с опциями будет по-легче. Может кто еще подключится к проблеме.
{quote}{login=}{date=13.02.2009 01:13}{thema=}{post}Private Sub CommandButton1_Click()
'ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
End Sub
{/post}{/quote}
Это шутка такая была?

ytk5kyky

Пользователь

Сообщений: 2410 Регистрация: 01.01.1970

13.02.2009 14:43:52

Если шутка, то давайте вместе посмеемся.
Только скажите когда начинать.
Может есть решение проблеммы с другой стороный?
В чем смысл вызова этого диалога?
Может вместо него форму показывать с аналогичными опциями, будет проще чем искать как их установить в стандартном диалоге.

Bite my shiny metal ass!

Guest

Гость

13.02.2009 15:56:46

Я не совсем понял значение 3-го поста (он не мой), поэтому и спросил: шутка это или я что-то не уловил. А поскольку во время ответа я чего-то нахомутал с цитатами, то получилось что в ответе отразилась лишь последняя фраза, а все остальное влезло в саму цитату.
Может форму и легче будет показывать, только я всеравно не знаю как это делается.

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#8 13.02.2009 16:11:07 А чтобы не путаться где чей пост, подписывайтесь. Трудно ник выдумать? Я и то смог. и лучше выдумать не мог © :) Все-таки, в чем задача? Bite my shiny metal ass!

Ник выдумать не смог

Гость

13.02.2009 16:21:15

Задача в следующем: при нажатии кнопки на печать уходит один лист (стр. с 1 по 1) и пока я его иду переворачивать (двухсторонняя печать) макрос мне подготовит к печати диалоговое окно для 2-й страницы, чтобы одним нажатием Enter отправить и его на принтер.

Ник выдумать не смог

Гость

#10

13.02.2009 16:41:10

{quote}{login=The_Prist}{date=13.02.2009 04:31}{thema=Re: }{post}{quote}{login=The_Prist}{date=13.02.2009 04:29}{thema=}{post}Так Вы внутри макроса вставьте выведение MsgBox "Продолжить печать?" и когда вы перевернете лист, нажмете "ОК" и только после нажатия он начнет печать второго листа{/post}{/quote}

Что-то вроде такого

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

If MsgBox ("Продолжить печать?", vbYesNo) = vbNo Then Exit Sub

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
End Sub

Не пойдет?{/post}{/quote}
Пойдет. Спасибо большое.

Marchuk Пользователь Сообщений: 1167 Регистрация: 01.01.1970	#11 13.02.2009 17:03:29 {quote}{login=Ник выдумать не смог}{date=13.02.2009 04:21}{thema=}{post}Задача в следующем: при нажатии кнопки на печать уходит один лист (стр. с 1 по 1) и пока я его иду переворачивать (двухсторонняя печать) макрос мне подготовит к печати диалоговое окно для 2-й страницы, чтобы одним нажатием Enter отправить и его на принтер.{/post}{/quote} сразу бы всю задачу озвучили , давно бы уже тогда подсказали решение проблемы :)

Читают тему