Dobrý den, potřeboval bych poradit, zda lze u konkrétní buňky nějak nastavit, že její obsah nebude vytištěn, jsou to buňky uprostřed tištěné oblasti, potřebuji s nimi pracovat, ale nemůžou být vytištěny, když jim udělám bílé písmo tak se s nimi bude pracovat velice blbě. Napadá někoho z Vás řešení?
PS: zkoušel jsem nastavit oblast tisku na C1:M18;C19:G21;C22:M56, tiskne se mě ale vždy jen první část C1:M18, i když se mi v sešitu tisknutá oblast "očárkovala" správně, tak něvím, kde je problém
zákaz tisku určitých buňěk Vyřešeno
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: zákaz tisku určitých buňěk Vyřešeno
Nejjednodussim resenim je asi to, o co ses pkousel, pro tisk zabilit prislusne bunky. K tomu pouzij nize uvedenou proceduru (je v prostem tvaru, zobrazi nahled, volat z menu nebo klavesovou zkratkou, list pro tisk si uprav ve vzhledu stranky), ktera pred tiskem zabili danou oblast a pak ji obnovi.
Po overeni funkcnosti nahrad parametr tisku: Preview:=False a uprav si rozsah tiskovych stran From - To
Kód: Vybrat vše
Option Explicit
Sub ZabilitTisk()
Dim Zabilit As Range
Set Zabilit = ActiveSheet.Range("C1:M18,C19:G21,C22:M56")
Zabilit.Font.ColorIndex = 2 ' bila barva pisma
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Preview _
:=True, Collate:=True
Zabilit.Font.ColorIndex = 0 'obnovit barvu pisma - automaticka
Set Zabilit = Nothing
End Sub
Po overeni funkcnosti nahrad parametr tisku: Preview:=False a uprav si rozsah tiskovych stran From - To
Re: zákaz tisku určitých buňěk
Funguje perfektně , moc děkuji návštěvníku!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Pomalé sťahovanie súborov z určitých web stránok
od Drawethree » 22 črc 2023 16:50 » v Internet a internetové prohlížeče - 3
- 2705
-
od ITCrowd
Zobrazit poslední příspěvek
24 črc 2023 07:15
-
-
- 6
- 1374
-
od mirekol
Zobrazit poslední příspěvek
09 lis 2023 09:12
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti