MS Excel

Dobrý den,
chtěla bych vás poprosit o radu k vba kodu pro tisk.
Mám jeden list, který obsahuje množství dat, které jsou rozděleny na stránky (celkem 6), první dvě stránky chci tisknout vždy, zbytek stránek chci tisknout pouze tehdy zda buňka ve sloupci B na začátku listu obsahuje číslo vybrané přílohy (1 až 4). Toto číslo je zadáváno automaticky v případě, že se z rozevíracího seznamu na konci druhé stránky vybere daný název listu.

Já vba kod mám, ten mi ale bohužel zobrazí v pdf i ty stránky, které nemají přiřazené číslo. Např. Jako přílohu 1 vyberu stránku č. 3 a jako přílohu 2 vyberu stránku č. 5. První dvě stránky se vytisknou vždy, poté se mi vytisknou stránky 3 až 5, i přesto, že stránka č. 4 nemá přidělené číslo přílohy. Stránka č. se již nevytiskne, ta také nemá přidělené číslo. Tudíž nevím kde je problém. Děkuji za každou radu.

Kod:
Sub Tisk()

If Range("B96").Text = "1" Then
Range("A96:I143").Select
End If

If Range("B144").Text = "2" Then
Range("A144:I187").Select
End If
If Range("B144").Text = "3" Then
Range("A144:I187").Select
End If
If Range("B144").Text = "4" Then
Range("A144:I187").Select
End If

If Range("B191").Text = "2" Then
Range("A191:I232").Select
End If
If Range("B191").Text = "3" Then
Range("A191:I232").Select
End If
If Range("B191").Text = "4" Then
Range("A191:I234").Select
End If

If Range("B238").Text = "2" Then
Range("A238:I282").Select
End If
If Range("B238").Text = "3" Then
Range("A238:I282").Select
End If
If Range("B238").Text = "4" Then
Range("A238:I283").Select
End If

ActiveSheet.PageSetup.PrintArea = Range("$A$1:$I$95", Selection).Address
ActiveSheet.PrintOut Preview:=True

End Sub

(Poznámka: Kod je zbytečně dlouhý, já vím, šlo by to udělat i jinak, nebo že oblast >0. Ale problém je stejný.)

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

marjankaj(3.8.2018 8:33)#041020

Range("A96:I143").Select
ActiveSheet.PageSetup.PrintArea = Range("$A$1:$I$95," Selection.Address).Address
ActiveSheet.PrintOut Preview:=True
End If

If Range("B144").Value > 0 Then
Range("A144:I187").Select
ActiveSheet.PageSetup.PrintArea = Range("$A$1:$I$95," Selection.Address).Address
ActiveSheet.PrintOut Preview:=True
End If

No keby si to zadala takto tak by to bolo o inom. Ale ťažko radiť, keď nevieme ako má presne vyzerať výstup.
Toto nie je o skúsenostiach s VBA, ale o logiku. Platí to pre všetky jazyky, nielen pre VBA.

Predpokladám, že ten kód od elninoslov si ani nevyskúšala.citovat

Anonym(3.8.2018 9:34)#041021

Upravená verze, snad bude stačitcitovat

eLCHa(3.8.2018 9:37)#041024

Já poprosím všechny zúčastněné, aby kód vkládali do tagu code - to je to tlačítko $ (dolar)
Kdo to má číst.

Děkuji

@Venali
žádnou urážku jsem nenašel - pokud tam je, specifikujtecitovat

marjankaj(3.8.2018 9:39)#041025

Anonym napsal/a:

Upravená verze, snad bude stačit

Toto vyzerá fajn.

citovat

marjankaj(3.8.2018 9:50)#041026

eLCHa napsal/a:

Já poprosím všechny zúčastněné, aby kód vkládali do tagu code - to je to tlačítko $ (dolar)
Kdo to má číst.
Děkuji
@Venali
žádnou urážku jsem nenašel - pokud tam je, specifikujte

Už som to napravil.
Tá "urážka" asi bola na mňa. Ale je to chyba zadávateľky, ak nechápe ako funguje SELECT. Zapíše ich niekoľko za sebou a potom sa diví, že to funguje inak, ako si predstavovala.citovat

Venali(3.8.2018 9:54)#041027

marjankaj napsal/a:

Predpokladám, že ten kód od elninoslov si ani nevyskúšala.

Ano, vyzkoušela, nevím proč bych jej neměla vyzkoušet... Bohužel nefungoval, excel mi to neakceptoval.

Nelze mi sem nahrát excel ve formátu xlsm, abyste měli představu. Asi dělám něco špatně.

Ještě jednou, ale ono to je asi k ničemu, když to nevidíte. Excel má 1 list o 6 strankách s libovolným textem, kde na druhé stránce je seznam příloh, které lze vybrat, pojmenujme je např. A, B, C, D. Když uživatel vybere např, přílohu A a D, chce aby se vytiskla stránka č. 1,2,3 a 6. Jde tedy o to, aby se stránka 1 a 2 tiskla vždy, a pak dle toho kterou stránku=přílohu vybere. Přílohy jsou tedy na každé stránce ve sloupci B specifikovány =IFERROR(POZVYHLEDAT(List2!A4;$B$89:$B$93;0);"")
Když uživatel vybere danou přílohu přiřadí se mu číslo, na základě kterého chci aby se tiskla pouze čísla od 1 do 4, tudíž když se ve sloupci B96, B144, B191 a B238 ukáže 0, nechci aby se tiskla tato stránka.

eLCHa: záleží na úhlu pohledu, mě jistý příspěvek přišel jako urážka ...citovat

marjankaj(3.8.2018 10:16)#041028

@venali
Ale ZIP snáď funguje. Zbaľ to do ZIPu.

A keď to elninoslov nemal možnosť, kde by ten kód overil, tak to je ťažké. Možno to písal z mobilu.citovat

eLCHa(3.8.2018 10:23)#041029

@Venali

Soubory typu .xlsm zde nelze vložit - zabalte nejlépe do .zip

Ještě jednou - pokud vás něco uráží, specifikujte - já našel jen to s klávesnicí a židlí a to vás přece urazit nemůže (běžně používaná hláška sloužící k nakopnutí - nikoli fyzickému - uživatele ;) ).citovat

Venali(3.8.2018 10:39)#041030

marjankaj napsal/a:

@venali
Ale ZIP snáď funguje. Zbaľ to do ZIPu.

A keď to elninoslov nemal možnosť, kde by ten kód overil, tak to je ťažké. Možno to písal z mobilu.

Tak tady to je.

Příloha: zip

41030_sesit2.zip (281kB, staženo 29x)

citovat

Stalker(3.8.2018 18:50)#041034

Nečet sem celou diskuzi, tudíž toto řešení není přímo podle zadání tazatelky. Přiložený soubor je pouze ukázkou možného řešení.

http://leteckaposta.cz/183033585 citovat

Strana: « předchozí 1 2 3 další »

Téma: Tisk pomocí makra podle podmínky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje