Díky moc!!!

DoEvents pomohlo!

Private Sub cmdTlacRozsahov_Click()
    lblCakaj.Visible = True
    DoEvents
    Rozsahy
    lblCakaj.Visible = False
    Sheets("Rozsahy").PrintOut Copies:=1
End Sub

Skúšal som Application.EnableEvents, čo však viedlo k chybe... tak som myslel, že "tudy cesta nevede" a nakoniec je predsa niečo s Events-ami, len trocha inak

K tomu 1 threadovému spracovaniu: očakával som, že i tak by sa mohla procedúra prerušiť na prekreslenie a pokračovať s výpočtami až potom...
Takže to treba vynútiť... Zaujímavé však je, že bežne práve ak potrebuješ zakázať obnovovanie obrazu, musíš to zariadiť cez Application.ScreenUpdating=False. To mi zas pripadá, ako by si to vzájomne odporovalo...

Díkyyy ešte raz!!!