[es] - Uslovno štampanje?

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

^{25.08.2009. u 15:14 - pre 178 meseci}

Recimo ovako- riječ je o otpremnici koja ima 30 mijesta za proizvode, dali moze da se napravi da se doda jos jedna stranica koja ce biti stampana samo onda kad se u nju unesu podaatci??
Znači samo ako se ispuni uslov da na toj strani imaju podatci da ona bude stampana zajedno sa otpremnicom kao strana br.2

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno štampanje?

^{25.08.2009. u 19:19 - pre 178 meseci}

Prakticno ovo tvoje pitanje bih sveo na: kako da automatski odredim Print Area u zavisnosti od toga da li je druga tabela popunjena.

Recimo da je prva tabela A1:D10 ona se svakako stampa,
ali ako ima podataka u drugoj tabeli npr. A16:D24 i to posebno u koloni C
tada treba stampati obe tabele.

Za ovo bi bio odgovarajuci kod koji umecemo u Before Print dogadaj.
Obrati paznju da ja ovde nisam vodio racuna o kom se radnom listu radi.

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Application.WorksheetFunction.CountA(Range("C16:C24")) > 0 Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$24"
    Else
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
    End If
End Sub

Pozdrav

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{26.08.2009. u 16:47 - pre 178 meseci}

timmy jako postujem tvoj rad i trud da si mi napisao ovaj cod, vjeruj da sam pokusao puno puta bezuspijesno da ga implementiram, ali ne znam u cemu je problem, dali to sto vec imam unapred predefinisane stavke na tom drugom listu koji zelim da stampam, ili je greska u print_area postavljanju. zamolio bi te da pogledas file i kazes mi gdje grijesim, Hvala• unapred•

Prikačeni fajlovi

uslovno printanje.xls - 83.5k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno štampanje?

^{26.08.2009. u 22:13 - pre 178 meseci}

Mislim da samo treba da promenis opseg u kojim celijama donje tabele proveravas unose

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Application.WorksheetFunction.CountA(Range("D78:D120")) > 0 Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$i$120"
    Else
        ActiveSheet.PageSetup.PrintArea = "$A$1:$i$72"
    End If
End Sub

Ako sam dobro shvatio tvoje formule, ti od D78 pa nadole nesto unosis i tada treba da se
stampa i ta druga (donja tabela). Zato D78:D120

Ostalo je sasvim OK.

Proveri da li si u Tools/Macro/Security stavio na Medium, da bi ovaj makro uopste radio.

Pozdrav

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{27.08.2009. u 15:03 - pre 178 meseci}

Hvala timmy, radi savrseno. Previdio sam taj propust u rasponu, da upravu si u polja d78 pa do d120 unosim sifre, a u e78 do e120 kolicine, tako da je onda Range(d78:e120) Hvala jos jednom, kratko ali jako efikasno rijesenje

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Uslovno štampanje?

^{29.08.2009. u 13:39 - pre 178 meseci}

(Uz dužno poštovanje timmy-ju,)
Tvoje pitanje se svodi na mogućnost prilagođavanja opsega Print_Area "određenom uslovu" na radom listu.

OK, različiti su pristupi u rešavanju.. Ono od čega sam ja pošao je bilo: Da li se može rešiti korišćenjem dinamičkih opsega? Pa, može.

Pretpostavimo da imaš definisan (statički) opseg za štampanje: Print_Area. Definiciju ovog opsega naći ćeš u: Insert > Name > Define >>
Names in Workbook: Print_Area

U delu Refers to: unesi sledeću definiciju

Code:
=IF(COUNTA(D78:D120)>0; INDIRECT("$A$1:$i$120"); INDIRECT("$A$1:$i$72"))

i opseg će se menjati u zavisnosti od definisanog "uslova popunjenosti". Naravno, VBA procedura jednako efikasno završava posao, ali, ako ti je to jedini VBA program u tabeli onda nije racionalno držati je zbog svih komplikacija sa "bezbednošću".

Nije tema ali zanimljivo mi je da nisam uspeo da uključim više oblasti (koje se ne dodiruju) na ovaj način. Izgleda mi da je to ograničenje f-je INDIRECT(), budući da je 'ručno' moguće zadati ovakav opseg za štampu - pri čemu će sve takve oblasti biti 'prelomljene' na posebnoj strani, i na to se ne može uticati.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{01.09.2009. u 18:44 - pre 178 meseci}

Molio bi za jos mrvicu pomoci, zapeo sam oko skidanja stavki sa lagera, zablokirao i gotovo, nevolim da maltretiram nikog ali stvarno neide dalje stoga sam okacio primijer mog problema. I da nezaboravim hvala ti 3okc

_{[Ovu poruku je menjao woolf1975 dana 01.09.2009. u 20:10 GMT+1]}

_{[Ovu poruku je menjao woolf1975 dana 01.09.2009. u 20:13 GMT+1]}

Prikačeni fajlovi

Otpremnica_MP_uslovno_printanje.xls - 153k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno štampanje?

^{01.09.2009. u 22:43 - pre 178 meseci}

Problem je u

Code:

AzurLager ActiveSheet.Cells(r, 4).Text, ActiveSheet.Cells(r, 5).Value

Gde ti je definisana procedura AzurLager?

Pozdrav

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{02.09.2009. u 05:37 - pre 178 meseci}

timmy ja taman pomislim kao nesto znam od toga i onda naletim na zid, bicu iskren uopste nemam pojma koja procedura bi isla i gdje da je stavim. Jesi mislio na ovu Sub AzurLager(c As String, 1 As Double)?? Ako si mislio na to onda sorry jer svasta sam pokusavao pa sam je vjerovatno obrisao bio. I jos nesto, pošto imam dole jos jedan list uslovnog printanja kako i njega da ukljucim u taj cod? da skida sa stanja onda kad upisujem i u tu drugu stranu??

_{[Ovu poruku je menjao woolf1975 dana 02.09.2009. u 14:03 GMT+1]}

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{03.09.2009. u 07:58 - pre 178 meseci}

Stvarno sam zapeo oko ovoga, zato bi zamolio Pecu, 3okc ili timmy da mi pomognu.

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{03.09.2009. u 22:15 - pre 178 meseci}

ne znam ipak, na jednoj radnoj svesci radi sve ok, a na drugoj neide, ono sto me izludjuje nemogu da uporedim u cemu je stvar.

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Uslovno štampanje?

^{04.09.2009. u 06:17 - pre 178 meseci}

To znaci da u te dve radne sveske nemas isti kod!
U onoj radnoj svesci u kojoj sve radi kako treba sigurno postoji pomenuta funkcija pa je treba iskopirati i u ovu drugu.

Pozdrav

Odgovor na temu

woolf1975

Član broj: 200416
Poruke: 33
*.teol.net.

Profil

Re: Uslovno štampanje?

^{04.09.2009. u 11:48 - pre 178 meseci}

timmy , Sub AzurLager(c As String, 1 As Double) probao sam da je postavim i sve kao isto kao i u toj drugoj radnoj svesci medjutim opet nista prestalo mi je da izbacuje gresku, ali jednostavno mi ne skine ukupnu kolicinu.

Odgovor na temu