Cuestión : La línea DB2 facturación del CR 2008 del artículo divulga sin subreports

Estoy utilizando el CR 2008 para crear informes de una base de datos DB2. Los datos son una línea sistema de facturación del artículo, tan allí son un expediente del cliente con los expedientes de carga múltiples. Cada expediente de carga tiene una “línea No'. Cada línea número puede tener los pagos múltiples y ajustes múltiples, que están en tables.

Tables: Cliente, cargas, pagos, ajustes. ¿la necesidad del
I de tener un informe el demostrar " de los pagos totales de la carga 1 del
del cliente del
(nombre, cuenta #, etc.) para los ajustes totales de la carga 1 para los pagos totales de la carga 2 de la carga 1
para los ajustes totales de la carga 2 para la carga 2
y on.

I puede hacer tan esto con informes secundarios, pero ésta lleva un tiempo muy largo compile.

I puede demostrar “los pagos totales de la carga 1 para

but no ambos de la carga 1 del "
or “de la carga 1 los ajustes totales de la carga 1 para al " con hacia fuera las ideas secundarias de reports.

Any en cómo a la mejor manija esto? class= del

Respuesta : La línea DB2 facturación del CR 2008 del artículo divulga sin subreports

Intentar esto
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 cañería ()
SetupToPrint “TODAS LAS ventas”
SetupToPrint “nuevas ventas”
SetupToPrint “viejas ventas”
Submarino del extremo

SetupToPrint secundario privado (sh como secuencia)
    
    Hojas (sh). Activar
    Llamar SetPrintAreaToPivotTable
    Llamar SetPageBreakToXNumberOfRows

Terminar el submarino

SetPrintAreaToPivotTable secundario privado ()

    Con ActiveSheet
        lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
        Fijar el rngTopLeft = .PivotTables (“PivotTable1”) .RowRange.Cells (1)
        Fijar el rngBotRight = .PivotTables (“PivotTable1”) .DataBodyRange.Cells (los lPTcells)
        strPTAddress = rngTopLeft.Address y “: ¡” y dirección del strPT de rngBotRight.Address la 'no existe!
        .PageSetup.PrintArea = strAddress
    Extremo con

Submarino del extremo

SetPageBreakToXNumberOfRows secundario privado ()

    Lastrow dévil como de largo
        Row_Index dévil como de largo
        RW dévil como de largo
    
        'Cuántas filas usted quiere entre cada rotura de página
        RW = 48
        
        Con ActiveSheet
            'Quitar todo el PageBreaks
            .ResetAllPageBreaks
            
            'Buscar para la fila pasada con datos en la columna D
            Lastrow =. Células (Rows.Count, “D”). Extremo (xlUp). Fila
            
            Para Row_Index = RW + 2 al paso RW de Lastrow
                .HPageBreaks.Add antes: =.Cells (Row_Index, 1)
            Después
    Extremo con

Submarino del extremo
Otras soluciones  
 
programming4us programming4us