[es] - Uslovno stampanje

dejan_su
Dejan Balazevic
Subotica

Član broj: 9453
Poruke: 483
*.adsl.eunet.rs.

ICQ: 337366387

Profil

^{17.01.2010. u 09:29 - pre 173 meseci}

Imam jednu tabelu sa 7 kolona: (Ime, Prezime, Ulica, Kucni broj, Mesto, Postanski broj, Telefon). Potrebno mi je da odstampan kompletnu tabelu, ali tako da svaku Ulicu odstampam na zasebnom papiru. To mogu da uradim tako sto cu da radim filter na to polje, pa jedna po jedna. To mi medjutim oduzima pola dana jer u tabeli ima preko 400 ulica. Ima li laksi nacin da se ovo odradi?

Hvala unapred.

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno stampanje

^{17.01.2010. u 09:52 - pre 173 meseci}

Mislim da ce ti najbrze resenje biti da:

1. sortiras tabelu po koloni ulica
2. Ukljucis Data/Subtotal
- at each change in ULICA
- use function COUNT
- add subtotal to ULICA
- Page Break between groups

Ovim ces dobiti grupe po istim nazivima ulica sa prelomom stranice (kako bi se svaka grupa stampala na posebnom listu papira).

Ako ti umetnui medjurezultati (COUNT smetaju):

1. Prikazi 2. nivo subtotala (klik na malu dvojku iznad oznaka redova)
- tako da sada vidis samo koliko ima zapisa za svaku ulicu
2. Selektuj samo celije sa nepotrenim tekstom (npr. Beogradska COUNT 4...)
3. Pritisni Ctrl+G da otvoris GoTo dialog prozor
4. Pritisni dugme Special
5. Ukljuci opciju Visible Cells only i pritisni OK
6. Pritisni Delete na tastaturi

Sada mozes da prikazes sve podatke u tabeli - pritisni broj 3 iznad oznaka redova da ukljucis 3. nivo outline-a tj. da vidis celu tabelu.

Pozdrav

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno stampanje

^{17.01.2010. u 10:07 - pre 173 meseci}

Evo i resenja kroz VBA.

Stani na celiju sa prvim nazivom ulice i pokreni ovu proceduru:

Code:

Public Sub InsertPB()
Dim v As Variant
    v = ActiveCell.Value
    ActiveCell.Offset(1, 0).Range("A1").Select
    Do While v <> ""
        Do While ActiveCell.Value = v
            ActiveCell.Offset(1, 0).Range("A1").Select
        Loop
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        v = ActiveCell.Value
    Loop
End Sub

Pozdrav

Odgovor na temu