Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Допечатка...

RE: Допечатка новых записей...

15.06.2007 21:08:11

rsvirus

9 сообщения

RE: Допечатка новых записей...

Спасибо!
Двухстороняя распечатка работает как надо. Только пришлось немного переделать код, чтобы
пользователь успел перевернуть листы (просто вставил MsgBox)...

Private Sub ПечатьОтчета_Click()
Print2SizeReport acPreview ; тут вызываем процедуру 2-хсторонней печати
End Sub

Public Sub Print2SizeReport(Rep As String)
DoCmd.OpenReport "Rep", acPreview
DoCmd.Minimize
Dim KolPages As Integer, KolList As Integer, i As Integer
KolPages = Reports("Rep")![Страниц]
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, "Rep"
DoCmd.PrintOut acPages, i, i
Next i
MsgBox "После того как принтер напечатает 1 и 3 страницы,переверните " & _ ;ждем пока печатаются
"листы на 180 градусов в продольном направлении и нажмите ОК", vbOKCancel ;нечетные страницы
For i = KolList * 2 To 2 Step -2
If i > KolPages Then
DoCmd.OpenReport "Пустой отчет", acNormal
Else
DoCmd.SelectObject acReport, "Rep"
DoCmd.PrintOut acPages, i, i
End If
Next i
End If
DoCmd.Close acReport, "Rep"
End Sub

З.Ы. А вот вопрос с допечаткой, к сожалению пока открыт, таки ничего не нашел :(

P.S. Использование принтера
Автор: rsvirus от 06.03.2004 17:09:08 Источник ...

Страница 2 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Допечатка...

Поиск

Список форумов

Начало | Forums