Друзья не откажите в решении проблемки.

[Lesha-R]

Нужно в таблицу Ecel добавить пару кнопок.
Первая кнопка - это вызов окна Save AS.
Собственно как вызвать само окно я разобрался, через Application.Dialogs(xlDialogSaveAs) .Show
а вот можно ли что бы в нем уже по умолчанию был выбран формат сохранения с поддержкой макросов.
Пытался поиграть с FileFormat:= _xlOpenXMLWorkbookMacroEnabled но для него как я понял требуется задавать имя файла Filename:=
Вот и пытаюсь разобраться....

И еще хотел создать пару кнопок для печати.
В документе будут использоваться несколько листов и я хотел сделать несколько кнопок, таких например:
Кнопка 1 - Печатать "Лист 2 страницы 1,3,5"
Кнопка 2 - Печатать "Лист 2 страницы 2,4,6"
Кнопка 3 - Печатать "Лист 3
Кнопка 3 - Печатать "Лист 4

Если не сложно, то подскажи плиз как сделать.
Заранее благодарен.

[VictorM]

Кнопка 1 - Печатать "Лист 2 страницы 1,3,5"
Кнопка 2 - Печатать "Лист 2 страницы 2,4,6"
Кнопка 3 - Печатать "Лист 3
Кнопка 3 - Печатать "Лист 4
Если не сложно, то подскажи плиз как сделать.

Все это можно сделать довольно просто. Включите макрорекордер, проделайте необходимые действия и получите готовый рабочий код.
А потом у же можно все это назначить соответствующим кнопкам.

[Lesha-R]

Сообщение от VictorM

Все это можно сделать довольно просто. Включите макрорекордер, проделайте необходимые действия и получите готовый рабочий код.

Я бы с удовольствием, только у меня нет строки ввода заданных страниц в окне печати.

[VictorM]

у меня нет строки ввода заданных страниц в окне печати

Сгруппируйте нужные листы и включите - выделенные листы

[Lesha-R]

Сообщение от VictorM

Сгруппируйте нужные листы и включите - выделенные листы

Вы не поняли.
Кнопка 1 Кнопка 2 должны печатать один лист но разные страницы (Для двухсторонней распечатки)
В Excel 2003 в окне "Печать" была строчка где можно было перечислить конкретные страницы на листе, а в 2007 не вижу этого или я туплю окончательно....

[VictorM]

В Excel 2003 в окне "Печать" была строчка где можно было перечислить конкретные страницы на листе,

Скриншот выше именно из 2003-го Excel и как видите, такой строчки там тоже нет.
Строчка, о которой Вы говорите, присутствует в окне печати Word-а.
А насчет двусторонней печати, тут даже 2 кнопки не нужны.
Печатаете нечетные, затем выводите MsgBox с текстом типа переверните листы и нажмите ОК.
И продолжаете уже печатать четные.
Говорю так уверенно, потому что у меня давно работает такой макрос.

[Lesha-R]

Сообщение от VictorM

Строчка, о которой Вы говорите, присутствует в окне печати Word-а.

Уже увидел где лопухнулся ))

Сообщение от VictorM

А насчет двусторонней печати, тут даже 2 кнопки не нужны.
Печатаете нечетные, затем выводите MsgBox с текстом типа переверните листы и нажмите ОК.
И продолжаете уже печатать четные.

Примером не поделитесь

[VictorM]

Показанное Вами окно печати у меня присутствует, как я уже говорил, в Word-е
В Excel же окно печати выглядит, по крайней мере у меня, так как я показал.
И в 2003-м и в 2007-м

[VictorM]

Примером не поделитесь

запросто

 If MsgBox("Печать первой страницы Договора." & Chr(10) & "Вставьте в принтер два листа бумаги." & Chr(10) & "Печатать ?", vbYesNo, "Внимание") = vbNo Then
        Exit Sub
    End If
   Sheets("Договор").PrintOut From:=1, To:=1, Copies:=2, Collate:=True
    MsgBox "Печать второй страницы Договора." & Chr(10) & "Переверните листы и вставьте в принтер.", vbInformation, "Внимание"
    Sheets("Договор").PrintOut From:=2, To:=2, Copies:=2, Collate:=True

Подставьте свой код из записанного макрорекордером

[Lesha-R]

Спасибо! Попробую.