No keď tam nič naviac nie je, tak to asi nevytlačí. Dokonca aj bez tlačítka. Predsa sa vytlačí iba to čo tam je.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Tisk sešitu s proměnou řádků
MS Excel
Téma: Tisk sešitu s proměnou řádků 
Zaslal/a Merlin99 30.1.2016 13:14
Zdravím, mám dotaz mám sesit dat a v nem se mi mneni pocty radku a potreboval bych vytvorit tlacitko ktery vzdy vytiskne jen tolik kolik je tam veci a nic navic... vedel by nekdo viz priloha..Děkuji
Příloha: 
29700_sesit1.rar (12kB, staženo 22x)
29700_sesit1.rar (12kB, staženo 22x)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
Naozaj milióny strán? 
A skopírovať si to na nový hárok ako hodnoty a ten vytlačiť???
Pred vytlačením to treba uložiť.citovat
A skopírovať si to na nový hárok ako hodnoty a ten vytlačiť???
Pred vytlačením to treba uložiť.citovat
A co takhle využít Range.Printout, kde pro tisk vyberete jen takovou oblast, kterou opravdu chcete vytisknout?citovat
Jako to by slo ale chtel jsem jestli jde neco co najde posledni radek a urci rozhrani co tisknout.
Jde o to asi nejak upravit toto makro aby rozhrani nebylo na fest ale menilo se v zavislosti kolik je tam vypnenych radku .. ale rikam v prazdejch radkach pod jsou funkce co vraci prazdnou bunku a ty tisknout nechci.
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$2:$C$250"
ActiveSheet.PrintOut Preview:=True
End Subcitovat
Jde o to asi nejak upravit toto makro aby rozhrani nebylo na fest ale menilo se v zavislosti kolik je tam vypnenych radku .. ale rikam v prazdejch radkach pod jsou funkce co vraci prazdnou bunku a ty tisknout nechci.
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$2:$C$250"
ActiveSheet.PrintOut Preview:=True
End Subcitovat
Ak je v bunke funkcia, tak to už nie je prázdna bunka(aj keby tam nič nebolo vidieť)citovat
Prave no nelze pouzit jakoby podminu POČET, chtelo byto dotoho zakomponovat spis DÉLKA = >0 (Jkoze najit posledni bunku co toto splnuje a tim urcit konec rozhrani) a priradit na tlacitko... nu asi to nebude zas tak lehke..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
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
Rozumím a opravdu tam ty vzorce potrebuji taham tam data z SAP a meni se mi to prave, super ze mate nejaky napad sem nato zvedavy.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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články