
Sub TISK()
'colorindex = 2 'bila
'colorindex = 1 'cerna
Dim Barva As String
Barva = 2
Set Oblast = Range("B2,D4:F7,G2:H9") 'oblast, ktera nema byt videt pri tisku
'nastaveni Oblast na bilou barvu pisma
Oblast.Font.ColorIndex = 2
ThisWorkbook.PrintPreview 'nahled pred tiskem
'ThisWorkbook.printout 'tisk
'nastaveni Oblast na cernou barvu pisma
Oblast.Font.ColorIndex = 1
End Subcitovat