|
|
|
| Подскажите пожалуйста какой-нибудь источник по процессу создания и редактирования отчётов. Нужно чтоб был изложен порядок и синтаксис обращения к различным объектам отчёта и их свойствам, процесс создания с нуля из кода главной формы.
Мастером меня не устраивает, мне нужно ручками, вот, но с его созданием возникают проблемы с обращением к свойствам полей, не видит или не позволяет изменять, хотелось почитать грамотную литературу по этому вопросу, никак немогу найти, помогите. | |
|
| |
|
8 Кб. |
|
| вот есть не очень грамотная лит-ра. | |
|
| |
|
6 Кб. |
|
| ещё | |
|
| |
|
13 Кб. |
|
| ещё | |
|
| |
|
53 Кб. |
|
| Ещё вот переписька. | |
|
| |
|
30 Кб. |
|
| посмотрите вот это | |
|
| |
|
45 Кб. |
|
| так же можно рекомендовать | |
|
| |
|
|
|
| Огромное спасибо, ща просмотрю | |
|
| |
|
25 Кб. |
|
| вот может Вас заинтересовать | |
|
| |
|
|
|
| Многое просто по объёму сюда не шлётся, но могу выслать по почте- у Вас почтовый ящик большой? | |
|
| |
|
20 Кб. |
|
| Тут вот к статье пример... | |
|
| |
|
|
|
| Двусторонняя печать отчетов
Нужно добавить в программу пустой отчет и назвать его Пустой отчет. В каждый отчет, который может печататься с 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
|
Прислала: Барская Ирина | |
|
| |
|
|
|
| Можно ещё посоветовать на форуме в поиске написать слово отчёт - и ентер - мож чё путное для Вас попадётся | |
|
| |