Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Двусторонняя печать отчетов


Нужно добавить в программу пустой отчет и назвать его Пустой отчет. В каждый отчет, который может печататься с 2-ух сторон, нужно добавить поле с именем Страниц, и поместить в строку Данные этого поля =[Pages].

Public Function Print2SizeReport()  Dim KolPages As Integer, KolList As Integer, i As Integer  KolPages = Reports(Screen.ActiveReport.Name)![Страниц]  KolList = Int(KolPages / 2) + IIf(KolPages Mod 2 = 0, 0, 1)  If MsgBox("Вставьте в принтер " & KolList & " листов !", vbOKCancel) = vbOK Then      For i = 1 To KolList * 2 - 1 Step 2          DoCmd.SelectObject acReport, Screen.ActiveReport.Name          DoCmd.PrintOut acPages, i, i      Next i      For i = KolList * 2 To 2 Step -2          If i > KolPages Then              DoCmd.OpenReport "Пустой отчет", acNormal          Else              DoCmd.SelectObject acReport, Screen.ActiveReport.Name              DoCmd.PrintOut acPages, i, i          End If      Next i  End If  End Function

Прислала: Барская Ирина