Вопрос : Линия DB2 выписывание счетов CR 2008 деталя сообщает без subreports

Я использую CR 2008 для того чтобы создать рапорты от базы данных DB2. Данными будут линия система выписывания счетов деталя, настолько там будут показатель клиента с множественными показателями обязанности. Каждый показатель обязанности имеет «линию No'. Каждая линия номер может иметь множественные компенсации и множественные регулировки, которые находятся в отдельно tables.

Tables: Клиент, обязанности, компенсации, регулировки. потребность
I иметь рапорт показать " компенсации обязанности 1
клиента
(имени, учета #, etc.) полные для регулировок обязанности 1 полных для компенсаций обязанности 2 обязанности 1
полных для регулировок обязанности 2 полных для обязанности 2
и так on.

I может сделать это с sub рапортами, но это принимает очень долгое время к compile.

I может показать «компенсации обязанности 1 полные на "

but не оба обязанность 1
or «обязанность 1 регулировки обязанности 1 полные на " с вне sub идеями reports.

Any на как к самой лучшей ручке это? class=

Ответ : Линия DB2 выписывание счетов CR 2008 деталя сообщает без subreports

Попытайтесь это
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub основа ()
SetupToPrint «ВСЕ сбывания»
SetupToPrint «новые сбывания»
SetupToPrint «старые сбывания»
Подводная лодка конца

Приватное Sub SetupToPrint (sh как шнур)
    
    Листы (sh). Активируйте
    Вызовите SetPrintAreaToPivotTable
    Вызовите SetPageBreakToXNumberOfRows

Закончите подводную лодку

Приватное Sub SetPrintAreaToPivotTable ()

    С ActiveSheet
        lPTcells = .PivotTables («PivotTable1») .DataBodyRange.Cells.Count
        Установите rngTopLeft = .PivotTables («PivotTable1») .RowRange.Cells (1)
        Установите rngBotRight = .PivotTables («PivotTable1») .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & «: » & адрес strPT rngBotRight.Address 'не существует!
        .PageSetup.PrintArea = strAddress
    Конец с

Подводная лодка конца

Приватное Sub SetPageBreakToXNumberOfRows ()

    Тусклое Lastrow как длиной
        Тусклое Row_Index как длиной
        Тусклый RW как длиной
    
        'Сколько рядки вы хотите между каждой разбивкой по страницам
        RW = 48
        
        С ActiveSheet
            'Извлекайте все PageBreaks
            .ResetAllPageBreaks
            
            'Ищите для последнего рядка с данными в колонке d
            Lastrow =. Клетки (Rows.Count, «d»). Конец (xlUp). Рядок
            
            Для Row_Index = RW + 2 к шагу RW Lastrow
                .HPageBreaks.Add раньше: =.Cells (Row_Index, 1)
            Затем
    Конец с

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us