Vraag : Toevoegend Lijn door bepaalde aantekenvellen aan Sub - VBA

De deskundigen,

I hebben Sub in twee stappen (zie verder). Ik probeer die dit aan op uitvoering te plaatsen op de volgende aantekenvellen in werking wordt gesteld slechts:

ALL Sales
New Sales
Old Sales

I am benieuwd zijn of zou een lijn de beste manier zijn om this.

I te doen zou van de „belangrijkste macro“ houden die in de doos „alt+F8“ „SetupToPrint“ heeft beschouwd als. Zo zou zou de actie van de „lijn“ binnen sub SetupToPrint zijn of Privé Sub vóór SetPrintAreaToPivotTable zijn, waarbij me 3 Privé Subs wordt gegeven?
" codeBody " 
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:

Sub SetupToPrint ()
    Vraag SetPrintAreaToPivotTable
    Vraag SetPageBreakToXNumberOfRows

Sub van het eind

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

Antwoord : Toevoegend Lijn door bepaalde aantekenvellen aan Sub - VBA

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