Questione : La linea DB2 fatturazione del CR 2008 dell'articolo segnala senza subreports

Sto usando il CR 2008 per generare i rapporti da una base di dati DB2. I dati sono una linea sistema di fatturazione dell'articolo, così là sono un'annotazione del cliente con le annotazioni di carica multiple. Ogni annotazione di carica ha “una linea No'. Ogni linea numero può avere i pagamenti multipli e registrazioni multiple, che sono in tables.

Tables: Cliente, spese, pagamenti, registrazioni. la necessità del
I di avere un rapporto mostrare " i pagamenti totali della carica 1 del
del cliente del
(nome, cliente #, ecc.) per le registrazioni totali della carica 1 per i pagamenti totali della carica 2 della carica 1
per le registrazioni totali della carica 2 per la carica 2
e così on.

I può fare questa con i rapporti secondari, ma questa richiede tempo molto molto a compile.

I può mostrare “pagamenti totali della carica 1 per " al

but non entrambi della carica 1 del
or “della carica 1 registrazioni totali della carica 1 per " con fuori le idee secondarie di reports.

Any su come alla migliore maniglia questo? class= del

Risposta : La linea DB2 fatturazione del CR 2008 dell'articolo segnala senza subreports

Provare questo
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 la conduttura ()
SetupToPrint “TUTTE LE vendite„
SetupToPrint “nuove vendite„
SetupToPrint “vecchie vendite„
Sommergibile dell'estremità

SetupToPrint secondario riservato (SH come stringa)
    
    Strati (SH). Attivare
    Denominare SetPrintAreaToPivotTable
    Denominare SetPageBreakToXNumberOfRows

Concludere il sommergibile

SetPrintAreaToPivotTable secondario riservato ()

    Con ActiveSheet
        lPTcells = .PivotTables (“PivotTable1„) .DataBodyRange.Cells.Count
        Regolare il rngTopLeft = .PivotTables (“PivotTable1„) .RowRange.Cells (1)
        Regolare il rngBotRight = .PivotTables (“PivotTable1„) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & “: „ & l'indirizzo dello strPT di rngBotRight.Address 'non esiste!
        .PageSetup.PrintArea = strAddress
    Estremità con

Sommergibile dell'estremità

SetPageBreakToXNumberOfRows secondario riservato ()

    Lastrow fioco come lungamente
        Row_Index fioco come lungamente
        Il RW fioco come lungamente
    
        'Quante file volete fra ogni rottura di pagina
        Il RW = 48
        
        Con ActiveSheet
            'Rimuovere tutto il PageBreaks
            .ResetAllPageBreaks
            
            'Cercare l'ultima fila con i dati in colonna D
            Lastrow =. Cellule (Rows.Count, “D„). Estremità (xlUp). Fila
            
            Per Row_Index = il RW + 2 al punto RW di Lastrow
                .HPageBreaks.Add prima: =.Cells (Row_Index, 1)
            Dopo
    Estremità con

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us