Печать ОТЧЕТА (четные_нечетые страницы)

[SMShrek]

Привет...

Подскажите как можно заставить "Отчет Аксесс" выводить на печать сначала четные страницы, а затем нечетные (ну или наоборот - без разницы)

в настройках вывода на печать ничего такого нет...

[shanemac51]

я бы вывела сначала в PDF
а уже его печатала как хочетсяяя я я я я я я я

---п.с.
прямую печать использую очень редко
удобнее просмотреть в пдф, а затем решать
--печатать или нет
--как печатать
......

[SMShrek]

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

я бы вывела сначала в PDF
а уже его печатала как хочетсяяя я я я я я я я
...

такой вариант не подходит... нужно именно напрямую (потому как очень часто нужно проводить всю эту процедуру с импортом в pdf и потом найстройки печати и т.д.) - все это не подходит...

---- СПАСИБО ----

[shanemac51]

вы хотите сделать двустороннюю печать на простом принтере

увы, из личного опыта --акт на 2 стороны
--при замятии листа -сбивалась нумерация
--операторы ошибочно вставляли листы

в итоге
--один оператор --задавал 1 номер акта
--второй ставил и переворачивал бумагу

вопросов больше не было
несколько тысяч актов напечатали
========
случай 2 --одна сторона одинаковая
--подготовили листы в типографии
--на компе печатали 1 сторону(отчет урезали до 1 стороны)

[SMShrek]

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

[Andrey_Ven]

Добрый день! Не собирался создавать новую тему. Я новичок (извините за это) Есть две таблицы на форме это "покупатели" "Заказы" Необходимо сделать на форме или сразу в свойствах отчета ВЫБОР создания отчета по выбранным строкам из таблицы наименованию покупателя и коду Заказ. Что бы отчет создавался именно по данной строчке

[alvk]

Про печать:

  
  Public function ЧетНечетПечать()
  dim vsego, i
  vsego = Report("ПечатаемыйОтчет").Page
  If MsgBox("Будем печатать чётные страницы?", vbYesNo) <> vbYes Then
  For i=1 To vsego                  
     If i Mod 2 = 1 Then
       DoCmd.PrintOut acPages, i, i  
     End If
  Next
  Else  
  For i=1 To vsego                    
     If i Mod 2 = 0 Then
       DoCmd.PrintOut acPages, i, i  
     End If
  Next
  End if
  End Sub