zákaz tisku určitých buňěk Vyřešeno

[m.niki]

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

[Reklama]

[navstevnik]

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.

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

[m.niki]

Funguje perfektně , moc děkuji návštěvníku!