VBA и принтер

Всъщност има опция на пинтера да печата всички sheets като един документ, само че нещо не мога да схвана как точно работи в комбинация с Print on Both Sides, нещо не става както трябва. Но както и да е, исках да могат да се управляват тези функции от VBA, за да не се налага да се отварят няколко менюта

Ами ако по пътя към принтера се заприказвам с някоя колежка, ще си изпусна реда :))))

Eее, ама ти сега да принтиш ли си тръгнал или при колежки ...

ако ще си говориш с колежка си увеличи времето на 10 минути + 1 минута за път = 11 минути
И така - на колежка по 10 минути пък дано изпринтиш днес

Предупреждавам, че следния код не съм го пробвал, защото на компютъра на който съм во момента нямам вързан принтер и не зная дали ще стане но ако някой има желание и нерви нека го пробва и каже дали дава резултат:

Sub Print1()
CheckForPrinting
For ii = 1 To Sender Step 2
ThisWorkbook.Sheets("DC" & ii).PrintOut Copies:=1
Next
If MsgBox("Да се разпечати ли втората страница? ", vbOKCancel, "Печат втора страница") = vbOK Then
Call Print2
Else
Exit Sub
End If

End Sub

Sub Print2()
CheckForPrinting
For ii = Sender To 2 Step (-2)
ThisWorkbook.Sheets("DC" & ii).PrintOut Copies:=1
Next
End Sub

Електронни таблици

Алекс, но така пак ще трябва да натиска два пъти бутони.

Нали човека иска да спести връщане до компютъра и второ натискане на бутон, за да подаде печат на четните, след като обърне листовете ... ако не го е разконцентрирала някоя колежка междувременно оf course :-)))

Faster Taker в такъв случей я кажи по десетобалната система колко хубави са ти колежките, и колко на брой са за да се изчисли колко време трябва да е забавянето :))))

Електронни таблици

Подигравайте се вие, ама този проблем го мисля от две години ...
Колежките не може да ги хване десетобалната