Uslovno štampanje?

[ woolf1975 @ 25.08.2009. 15:14 ] @

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

[ timmy @ 25.08.2009. 19:19 ] @

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

[ woolf1975 @ 26.08.2009. 16:47 ] @

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•

[ timmy @ 26.08.2009. 22:13 ] @

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

[ woolf1975 @ 27.08.2009. 15:03 ] @

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

[ 3okc @ 29.08.2009. 13:39 ] @

(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.

[ woolf1975 @ 01.09.2009. 18:44 ] @

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]}

[ timmy @ 01.09.2009. 22:43 ] @

Problem je u

Code:

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

Gde ti je definisana procedura AzurLager?

Pozdrav

[ woolf1975 @ 02.09.2009. 05:37 ] @

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]}

[ woolf1975 @ 03.09.2009. 07:58 ] @

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

[ woolf1975 @ 03.09.2009. 22:15 ] @

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.

[ timmy @ 04.09.2009. 06:17 ] @

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

[ woolf1975 @ 04.09.2009. 11:48 ] @

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.

[ woolf1975 @ 05.09.2009. 07:57 ] @

OK sad radi kako treba, medjutim kako da spustim taj cod da cita i tu uslovnu drugu stranu koju cu ponekad popunjavati?

Hvala.