MS Excel

To je pravda ale jé mám pak x ticic bunek naprogramovanejch funkcema a tiskne mi to miliony stran prazdnejch potreboval bych aby se vytisklo jen tolik kolik ma...citovat

A co takhle využít Range.Printout, kde pro tisk vyberete jen takovou oblast, kterou opravdu chcete vytisknout?citovat

Ak je v bunke funkcia, tak to už nie je prázdna bunka(aj keby tam nič nebolo vidieť)citovat

List, které se hemží vzorci odshora dolů, aniž by ty vzorce čemukoliv sloužily, je zpravidla projevem špatné práce s listem. Lidi se pak diví, jak velké sešity mají a jak neohrabaně reagují.
První otázka, kterou bych si položil, by měla říct, jestli tam ty vzorce opravdu musí být. Teprve pak bych hledal, jak tisknout jenom to, co je vidět. Nemyslím si, že by to měla být taková věda! Za dobu, co to píšu, mám tři nápady, které jdu vyzkoušet. Sám takový problém neznám, vzorce mám vždycky jenom tam, kde je opravdu potřebuji.citovat

Hned první nápad podle mne plní vaši potřebu. Místo zobrazení MsgBox ty nalezené hodnoty použijte pro omezení oblasti pro tisk:
Sub PosledniBunkaKtisku()
Dim Pole, II As Long, JJ As Long, i As Long, j As Long
Pole = ActiveSheet.UsedRange
II = UBound(Pole, 1): JJ = UBound(Pole, 2)
For i = II To 1 Step -1
For j = JJ To 1 Step -1
If Pole(i, j) <> "" Then Exit For
Next j
If j > 0 Then Exit For
Next i
If i = 0 Then i = II: j = JJ
With ActiveSheet.UsedRange
i = i + .Row - 1: j = j + .Column - 1
End With
MsgBox "Poslední buňka s viditelným obsahem je Cells(" & i & ", " & j & ")"
End Subcitovat