Fråga : CR 2008 DB2 fodrar fakturera rapporter för objekt utan subreports

Förmiddag I using CR 2008 som skapar rapporter från en databas DB2. Datan är ett fakturera system för fodraobjekt, så där är ett beställarerekord med multipelladdningsrekord. Varje laddningsrekord har ”att fodra No'. Varje fodrar numrerar kan ha multipelbetalningar och multipeljusteringar, som är i separat tables.

Tables: Beställare laddningar, betalningar, justeringar. behov för
I betalningar för laddning 1 för
(för den kända, kontot nr., " Etc.) beställaren för
att ha för en rapportvisning sammanlagda för sammanlagda justeringar för laddning 1 för betalningar för laddning 2 för laddningen 1
sammanlagda för sammanlagda justeringar för laddning 2 för laddningen 2
och så on.

I kan göra detta med underrapporter, men detta tar mycket en lång tid till compile.

I kan visa ”sammanlagda betalningar för laddning 1

but inte båda för för laddning 1 " för
or ”för för laddning 1 sammanlagda justeringar för laddning 1 " med ut de underidéerna för reports.

Any på hur till det bäst handtaget detta? " klar "

Svar : CR 2008 DB2 fodrar fakturera rapporter för objekt utan subreports

Försök detta
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:

Underhuvudsakligt ()
SetupToPrint ”ALLA Salar”,
SetupToPrint ”nya Salar”,
SetupToPrint ”gammala Salar”,
Avsluta suben

Sh privata underSetupToPrint (som stränger)
    
    Täcker (sh). Aktivera
    Appell SetPrintAreaToPivotTable
    Appell SetPageBreakToXNumberOfRows

Avsluta suben

Privata underSetPrintAreaToPivotTable ()

    Med ActiveSheet
        lPTcells = .PivotTables (”PivotTable1”) .DataBodyRange.Cells.Count
        Fastställd rngTopLeft = .PivotTables (”PivotTable1”) .RowRange.Cells (1)
        Fastställd rngBotRight = .PivotTables (”PivotTable1”) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & ”: ” & rngBotRight.Address-'strPT tilltalar finns inte!
        .PageSetup.PrintArea = strAddress
    Avsluta med

Avsluta suben

Privata underSetPageBreakToXNumberOfRows ()

    Dunkla Lastrow som Long
        Dunkla Row_Index som Long
        Dunkel RW som Long
    
        'Hur många ror, du önskar mellan varje sidaavbrott
        RW = 48
        
        Med ActiveSheet
            'Ta bort all PageBreaks
            .ResetAllPageBreaks
            
            'Sökandet för jumbon ror med data i kolonn D
            Lastrow =. Celler (Rows.Count, ”D”). Avsluta (xlUp). Ro
            
            För Row_Index = RW + 2 till Lastrow kliver RW
                .HPageBreaks.Add för: =.Cells (Row_Index, 1)
            Därefter
    Avsluta med

Avsluta suben
Andra lösningar  
 
programming4us programming4us