Frage : CR 2008 DB2 Linie Einzelteilgebührenzählung berichtet ohne subreports

Ich benutze CR 2008, um Reports von einer Datenbank DB2 zu verursachen. Die Daten sind eine Linie Einzelteilgebührenzählungssystem, so dort sind eine Klientenaufzeichnung mit mehrfachen Gebührenaufzeichnungen. Jede Gebührenaufzeichnung hat eine „Linie No'. Jede Linie Zahl kann mehrfache Zahlungen und mehrfache Justagen haben, die in unterschiedlichem tables.

Tables sind: Klient, Gebühren, Zahlungen, Justagen.
I Notwendigkeit, einen Report zu haben, "
Klient (Name, Konto #, etc.)
Gesamtzahlungen der Gebühren-1 für Gesamtjustagen der Gebühren-1 für Gesamtzahlungen der Gebühren-1
der Gebühren-2 für Gesamtjustagen der Gebühren-2 für Gebühr 2
zu zeigen und so on.

I kann dies mit Vorreports tun, aber diese nimmt eine sehr lange Zeit zu compile.

I kann Gesamtzahlungen der Gebühren-1 für Gebühr 1 "
or „Gesamtjustagen der Gebühren-1 für Gebühr 1 "

but nicht beide zeigen „mit heraus den Vorreports.

Any Ideen auf wie zum besten Handgriff dieses?

Antwort : CR 2008 DB2 Linie Einzelteilgebührenzählung berichtet ohne subreports

Dieses versuchen
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub Hauptleitung ()
SetupToPrint „ALLE Verkäufe“
SetupToPrint „neue Verkäufe“
SetupToPrint „alte Verkäufe“
Enden-Unterseeboot

Privates VorSetupToPrint (SH als Schnur)
    
    Blätter (SH). Aktivieren
    SetPrintAreaToPivotTable benennen
    SetPageBreakToXNumberOfRows benennen

Unterseeboot beenden

Privates VorSetPrintAreaToPivotTable ()

    Mit ActiveSheet
        lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
        rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells einstellen (1)
        rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells) einstellen
        strPTAddress = rngTopLeft.Address u. „: “ u. existieren rngBotRight.Address 'strPT Adresse nicht!
        .PageSetup.PrintArea = strAddress
    Ende mit

Enden-Unterseeboot

Privates VorSetPageBreakToXNumberOfRows ()

    Schwaches Lastrow als lang
        Schwaches Row_Index als lang
        Schwaches RW als lang
    
        'Wieviele Reihen Sie zwischen jedem Seitenende wünschen
        RW = 48
        
        Mit ActiveSheet
            'Alles PageBreaks entfernen
            .ResetAllPageBreaks
            
            'Nach der letzten Reihe mit Daten in Spalte D suchen
            Lastrow =. Zellen (Rows.Count, „D“). Ende (xlUp). Reihe
            
            Für Row_Index = RW + 2 zum Lastrow Schritt RW
                .HPageBreaks.Add vorher: =.Cells (Row_Index, 1)
            Zunächst
    Ende mit

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us