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
podle mého názoru se jedná o jedno a totéž. Polud mi to PDFCreator rozkouskuje, tak stačí dát kousky do fronty a spojit je v jeden dokument a číslování potom funguje na výbornou.

RSS nejnovější články