Pergunta : A linha DB2 faturamento do CR 2008 do artigo relata sem subreports

Eu estou usando o CR 2008 para criar relatórios de uma base de dados DB2. Os dados são uma linha sistema de faturamento do artigo, tão lá são um registro do cliente com registros de carga múltiplos. Cada registro de carga tem uma “linha No'. Cada linha número pode ter os pagamentos múltiplos e os ajustes múltiplos, que estão em tables.

Tables: Cliente, cargas, pagamentos, ajustes. a necessidade do
I de ter um relatório mostrar do " pagamentos totais da carga 1 do
do cliente
(nome, cliente #, etc.) para ajustes totais da carga 1 para pagamentos totais da carga 2 da carga 1
para ajustes totais da carga 2 para a carga 2
e assim on.

I pode fazer esta com relatórios secundários, mas esta toma um tempo muito longo a compile.

I pode mostrar “pagamentos totais da carga 1 para do "

but não ambos da carga 1
or “da carga 1 ajustes totais da carga 1 para ao " com para fora as idéias secundárias de reports.

Any em como ao melhor punho isto? class= do

Resposta : A linha DB2 faturamento do CR 2008 do artigo relata sem subreports

Tentar isto
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 o cano principal ()
SetupToPrint “TODAS AS vendas”
SetupToPrint “vendas novas”
SetupToPrint “vendas velhas”
Submarino da extremidade

SetupToPrint secundário confidencial (sh como a corda)
    
    Folhas (sh). Ativar
    Chamar SetPrintAreaToPivotTable
    Chamar SetPageBreakToXNumberOfRows

Terminar o submarino

SetPrintAreaToPivotTable secundário confidencial ()

    Com ActiveSheet
        lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
        Ajustar o rngTopLeft = o .PivotTables (“PivotTable1”) .RowRange.Cells (1)
        Ajustar o rngBotRight = o .PivotTables (“PivotTable1”) .DataBodyRange.Cells (os lPTcells)
        strPTAddress = rngTopLeft.Address & “: ” & o endereço do strPT de rngBotRight.Address 'não existe!
        .PageSetup.PrintArea = strAddress
    Extremidade com

Submarino da extremidade

SetPageBreakToXNumberOfRows secundário confidencial ()

    Lastrow não ofuscante como por muito tempo
        Row_Index não ofuscante como por muito tempo
        RW não ofuscante como por muito tempo
    
        'Quantas fileiras você quer entre cada ruptura de página
        RW = 48
        
        Com ActiveSheet
            'Remover todo o PageBreaks
            .ResetAllPageBreaks
            
            'Procurarar pela última fileira com dados na coluna D
            Lastrow =. Pilhas (Rows.Count, “D”). Extremidade (xlUp). Fileira
            
            Para Row_Index = RW + 2 à etapa RW de Lastrow
                .HPageBreaks.Add antes: =.Cells (Row_Index, 1)
            Em seguida
    Extremidade com

Submarino da extremidade
Outras soluções  
 
programming4us programming4us