Vraag : Het facturerings van het Punt van de Lijn van Cr 2008 DB2 Rapporten zonder subreports

Ik gebruik Cr 2008 om rapporten van een DB2 gegevensbestand te creëren. De gegevens zijn een facturatiesysteem van het lijnpunt, zodat is er een cliëntverslag met veelvoudige lastenverslagen. Elk lastenverslag heeft een „Lijn No'. Elk lijnaantal kan veelvoudige betalingen en veelvoudige aanpassingen hebben, die in afzonderlijke tables.

Tables zijn: Cliënt, Lasten, Betalingen, Aanpassingen. />I de behoefte
de Last
1 van de Cliënt
Totale Betalingen voor Last 2 Totale Aanpassingen voor Last 2
en zo on.

I kan dit met subrapporten doen, maar neemt dit zeer oud aan compile.

I kan „Last 1 Totale Betalingen voor Last 1 "
or „Last 1 Totale Aanpassingen voor Last 1 "

but niet allebei met uit de subIdeeën reports.

Any op hoe te om dit het best te behandelen tonen?

Antwoord : Het facturerings van het Punt van de Lijn van Cr 2008 DB2 Rapporten zonder subreports

Probeer dit
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 Leiding ()
SetupToPrint „ALLE Verkoop“
SetupToPrint „Nieuwe Verkoop“
SetupToPrint „Oude Verkoop“
Sub van het eind

Privé Sub sh SetupToPrint (als Koord)
    
    (Sh) bladen. Activeer
    Oproepen SetPrintAreaToPivotTable
    Oproepen SetPageBreakToXNumberOfRows

Beëindig Sub

Privé SubSetPrintAreaToPivotTable ()

    Met ActiveSheet
        lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
        Reeks rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells (1)
        Reeks rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & „: “ & 'strPT bestaat het adres rngBotRight.Address niet!
        .PageSetup.PrintArea = strAddress
    Eind met

Sub van het eind

Privé SubSetPageBreakToXNumberOfRows ()

    Schemerige Lastrow zoals lang
        Schemerige Row_Index zoals lang
        Schemerige RW zoals lang
    
        'Hoeveel rijen u tussen elke paginaonderbreking willen
        RW = 48
        
        Met ActiveSheet
            'Verwijder al PageBreaks
            .ResetAllPageBreaks
            
            'Onderzoek naar de laatste rij met gegevens in Kolom D
            Lastrow =. Cellen (Rows.Count, „D“). Eind (xlUp). Rij
            
            Voor Row_Index = RW + 2 aan Lastrow Stap RW
                .HPageBreaks.Add vóór: =.Cells (Row_Index, 1)
            Daarna
    Eind met

Sub van het eind
Andere oplossingen  
 
programming4us programming4us