"Проблема" возникла не давее как вчера.
Имеем книгу со 125 листами на каждом по 4 печатных страницы - как включить для каждого двухстороннюю печать ?
Или усложним - как при ранее настроенных в ручнуюю свойствах в параметрах страницы изменить часть листов на двухстороннюю печать, часть на одностороннюю ?

(предложения настроить принтер по умолчанию или создать второй с установками на две стороны - уходят пешим шагом, хотя может и не вкуриваю чего)

посадить девочку?

(1) вариант. Но хотелось самому ))

(1) а чем не устраивает настроенный принтёр ?
:))

(3) а ты попробуй

(4) пробую - печатает..

написать макрос в этой книге, который и будет реализовывать необходимый функционал.

(5) т.е
создал книгу с двумя листами на каждом по крайней мере по 2 печатных листа выходит
не заходя в параметры страницы - свойства
тупо жмем на печать и печатает на двух сторонах ? (принтер конечно настроен)

(6) можно пример макроса ?

уточним (0)
книга создана при наличии принтера по умолчанию со свойствами без установленной двухсторонней печати, исправлены параметры каждой страницы программно (но это не важно как) - как сменить в свойствах даже при выборе настроенного принтера установки на двухстороннюю (книга "запоминает" что сохранены параметры страницы без двухсторонней настройки)

так понятнее ?

(7) да.. не поленился, создал чистый файлик в экселе и распечатал.. ни в какие параметры страницы не заходил, просто тупо отправил на печать на принтёр, в котором по-умолчанию включен дуплекс..

(10) а теперь зайди и сделай как в (9) не важно было двух - напечатать одно или наоборот

(11) ну и ? недогоняю:

в принтере воткнута галка - дуплекс.
делаю лист, захожу в параметры страницы - снимаю дуплекс - печатает не дуплекс, ставлю дуплекс - печатает дуплекс.
не захожу в параметры страницы - всегда печатает дуплекс..

(12) заходишь в параметры ставишь не дуплекс сохраняешь док, закрываешь - открываешь - как теперь напечатать дуплекс ?

(13) ща проверю.

+14 да, так печатает не дуплекс :(

+15 видать где-то в книжке или в реестре запоминаются параметры печати.. :(

(16) во-во
To apply the duplex option to all worksheets in your workbook, follow these steps:
1. Open your workbook.
2. In Microsoft Excel 2000, in Microsoft Excel 2002, and in Microsoft Office Excel 2003

On the File menu, point to Print, and then click Properties.

In Microsoft Office Excel 2007

Click the Microsoft Office Button, point to Print, click Print, and then click Properties.
3. On the Layout tab, select the one of the duplex options, and then click OK.
4. Click OK in the Print dialog box.
5. Repeat these steps for every sheet in the workbook.
When you print your workbook, all worksheets are printed with the duplex option.

ищу, пока никак не найду :(

(17) запоминает он точно  не в книге..
Вот еще что - если закрыть сам эксель ( а не книгу в нём) и открыть - то всё - печать идет на принтёр по-умолчанию, а не на наш, настроенный..
Если выбрать "настроенный" - всегда дуплекс.

Так что видать это сам офис "помнит" параметры для книги, пока его не закрыли.

(18) нифига, специально установил разные свойства для разных листов - закрыл/открыл где как поставил так и осталось

я не о том, что принтер запоминает, а о файл - параметры страницы - свойства

(19) а у меня нет :)
создал 2 файлика - настроил - распечатал, закрыл. После открытия выбираешь принтёр - там в свойствах уже воткнут дуплекс..

(20) да так и делал.

Вот только при следующем открытии уже принтёр другой - тот что по-умолчанию в системе..
Ща попробую дуплексный сделать по-умолчанию.

+22 во - вот так "запоминает" :)

опаньки.. в самом файле хранит !
Duplex Vertikal в одном и  Duplex NONE в другом..

+24 это просто тупое сравнение по содержимому показало..

(24) во блин, а у меня не хватило мозга сравнить )) спасибо !

пока придумал такой изврат


   Dim Ексель As Application
   Dim Книги As Workbooks
   Dim Книга As Workbook
   Dim НоваяКнига As Workbook
   Dim Листы As Sheets
   Dim Лист As Worksheet
   Dim ПодгонСтрок As Range
   Dim ПерваяСтраница As Range
   Dim ВтораяСтраница As Range
   Dim ТретьяСтраница As Range
   Dim Диапазон As Range
   Dim Ячейки As Range
   Dim Ячейка As Range
   Dim Поиск As Range
   Set Ексель = Application
   Set Книги = Workbooks
   Set Книга = ThisWorkbook
   Set Листы = Книга.Worksheets
   Set НоваяКнига = Книги.Add
   For Сч = 1 To НоваяКнига.Worksheets.Count - 1
       Ексель.DisplayAlerts = False
       НоваяКнига.Worksheets.Item(Сч).Delete
       Ексель.DisplayAlerts = True
   Next
   Set ПервыйЛистНовойКниги = НоваяКнига.Worksheets.Item(1)
   Set ПервыйЛист = Листы.Item(1)
   ПервыйЛист.Activate
   Ексель.Dialogs(xlDialogPrinterSetup).Show Ексель.ActivePrinter
   'MsgBox Left(Ексель.ActivePrinter, InStrRev(Ексель.ActivePrinter, "(") - 1)
   For Each Лист In Листы
       If Лист.Visible = xlSheetVisible Then
           ПервыйЛист.Copy ПервыйЛистНовойКниги
           Set ЛистНовойКниги = НоваяКнига.Worksheets.Item(НоваяКнига.Worksheets.Count - 1)
           ЛистНовойКниги.Name = Лист.Name
           Лист.UsedRange.Copy (ЛистНовойКниги.Cells(1, 1))
           'Trim(Left(Ексель.ActivePrinter, InStrRev(Ексель.ActivePrinter, "(") - 1))
           'SetPrinterDuplex Trim(Left(Ексель.ActivePrinter, InStrRev(Ексель.ActivePrinter, "(") - 1)), 2
       End If
   Next


+(26) можно конечно и не создавая новой книги, хотя всеравно лажовая метода
потребуется в любой момент времени сменить у произвольных листов и без диалога

в файле конечно сменить

Duplex Vertikal | Duplex HORIZONTAL на Duplex NONE
конечно не составит затруднения, а вот обратно сложно