Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 8 odgovora
  • 3.767 pregleda

Najnovija ↓

štampanje lista uz filter 17.12.2013. u 13:24 · pre 156 meseci #1
Kako odmštampati list uz filter. Kao što se vidi u prilogu, list "specifikacija" preuzima podatke iz lista "faktura". E sad, problem je kada ima podataka nekada da sve stane u jednom listu a nekada su potrebna 2 lista. Ja bih da pojednostavim štampu, da jednim klikom mi odštampa onoliko stranica koliko ima ispunjenih podataka. Da ne bih ulazio u opcije za štampanje i dajem mu ručno koje stranice da štampa ja bih da jednim klikom na štampu odštampa onoliko koliko treba. Drugi problem je u filteru, jer ako ima više od jedne stranice onda u zaglavlju bih da se preuzimaju podaci sa zaglavlja sa lista "faktura". Da li se to može riješiti nekako u headeru, ali da u headeru preuzima podatke sa zaglavlja lista "faktura". Stavio sam u prilogu dva lista "specifikacija" i specifikacija2" da bih lakše opisao ono što želim da dobijem.
Re: štampanje lista uz filter 24.12.2013. u 11:46 · pre 156 meseci #2
U listu specifikacija pripremio si dve strane za štampu.
- Nisam siguran kad treba štampati stranicu 2 - samo kad ima nešto popunjeno u ćeliji B84?
- Da li treba štampati i prazne redove ili samo one koji imaju neštu u koloni B?

Ako sam dobro razumeo sa ovom (prvom) varijatnom snimiš makro koji će da štampa prvi list (Print Selected opcija). Onda doradiš taj makro da ako ima nešto popunjeno u B84 štampa i drugi list po istom principu.

Inače u Excelu postoji opcija da definišeš redove koji se ponavljaju prilikom štampe na svakoj strani (Page Layout > Page Setup dijalog, kartica Sheet, rows to repeat at top , Custom header) kao i opcija za štampu broja strane (Isti dijalog , kartica Header/Footer, Custom header) Tako da može da se reši i preko specifikacije 2 ako Potpis staviš u Footer, ali on će se pojavljivati na svakoj strani i treba malo truda da ga namestiš kako valja.

U ovoj varijanti bi moga da pripremiš sve ovo unapred i definišeš Print Area i onda u makro samo aktivirša filter da isljuči prazne redove i pustiš štampu.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: štampanje lista uz filter 24.12.2013. u 14:53 · pre 156 meseci #3
To je ono što meni treba. U suštini ja bih da izgleda kao u listu "specifikacija2" a da iz štampe isključi prazne listove. Taj makro mi je poteban da izbaci iz štampe prazne listove i da mi isštampa popunjene redove u tabeli. A za onaj dio da ponavlja redove u štampi to sam shvatio i odradio. Znači samo još taj makro za štampu. Hvala unaprijed.
Re: štampanje lista uz filter 24.12.2013. u 16:00 · pre 156 meseci
izmenjeno 1 put, poslednji put Jpeca 26.12.2013. u 14:16
  1. Jpeca26.12.2013. u 14:16zapis iz teksta poruke
#4
Da si postavio primer sa podešavanjima, ne bih ja morao da ponovo da ih pravim

Uglavnom, ako se ide preko sakrivanja redova koji su prazni kao što sam napisao makro je dosta jednostavan. Filter već imaš pa se može iskoristiti. Print Area sam postavio i redove da se ponvaljaju na svakoj strani i onda još samo ide komanda PrintPreview ako hoćeš da se uključi pregled pre štampe

Code:
Sub PrintSpec()
'
'  Makro koji eliminise blanko redove iz filtera
'  i aktivira pregled pre štampe
'  P.Jovanovic za elitesecurity.org

'
    ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2, Criteria1:="<>"
    ActiveSheet.PrintPreview
End Sub



Ako hoćeš direktno na štampu onda umesto PrintPrivew ide PrintOut

Code:
Sub PrintSpec()
'
'  Makro koji eliminise blanko redove iz filtera
'   aktivira stampu 
'  i na kraju ocisti filter
'  P.Jovanovic za elitesecurity.org

'
    ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2, Criteria1:="<>"
   ActiveSheet.PrintOut
'   Ukidanje filtera ako se ide direktno na stampu
   ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2
End Sub


Makro aktiviras preko Alt+F8 ali kako bi bilo efikasinje, možeš da mu dodelis prečicu sa tastature ili dugme za startovanje.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: štampanje lista uz filter 24.12.2013. u 18:49 · pre 156 meseci #5
Čini mi se da je bolje rješenje kao što si uradio ali bez makroa. Jednostavnije je sa filterom isfiltrirat i prazne redove izbacit nego pokrećat makro. Hvala još jednom na pomoći, trudu i vremenu.
Re: štampanje lista uz filter 26.12.2013. u 12:40 · pre 156 meseci #6
Ima jedan problem koji ne umijem da riješim, ne znam u čemu je problem. Dajem u prilogu urađenu specifikaciju sa ovim makroom ali zašto mi učitava po 2 lista za štampu kada je opseg samo za jedan list?
Re: štampanje lista uz filter 26.12.2013. u 13:14 · pre 156 meseci #7
U prilogu koji si postavio nema makroa. Da bi u novoj verziji snimio makro ekstenzija treba da bude xlsm. Takođe postoji problem sa eskternim linkom

Ipak pogledao sam i mislim da ti je problem u ručnom prelomu stranice koji si nekako dodao
Uđi u Page Break Privew režim i videće plavu linju ispred poslednjeg reda. Dok si u ovom režimu uradi Reset All Page Breaks (iz konteknog menija, desni taster)
pa probaj
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: štampanje lista uz filter 26.12.2013. u 13:31 · pre 156 meseci #8
Evo u prilogu sa makroom i vidjećeš da nešto ne štima baš najbolje. Stavio sam na filter i preskače na drugi list a ne bi trebalo da bude tako.
Re: štampanje lista uz filter 26.12.2013. u 14:08 · pre 156 meseci #9
Poslednjii prazan red koji je uključen u PrintArea služi samo da se iscrta donja linjia tabele. Smanji visinu tog reda i videćeš da sve staje na jednu stranu.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme