MS Excel

Dobry den, mel bych takovy dotaz, zda je nejak mozne tisk pouze urcitych stranek na listu podle toho zda pole podleha podmince - jeli tedy nejake pole vyplnene.

Pokazde potrebuji tisknout prvni stranu a k tomu dalsi dle podminek - pole D7 plne tak tisknout stranu 1 a 2, pokud je polej D8 a D7 plne tak tisknout 1,2 a treti stranu a tak dale. Zae naopak pokud je treba pole D7 a D9 plne a D8 ne tak tisknout pouze prvni druhou a ctvrtou stranu.

Dekuji mnohokrat

Zaslat odpověď >

Hokuston(10.8.2015 13:30)#026194

takhle?

Sub tisk()
Dim oblast As Range
Dim i As Integer

Set oblast = Worksheets("List1").Range("D7:D14")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For Each cell In oblast
If cell = "" Then
Else
i = cell.Row - 5
Sheets("List" & i).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("List1").Select
End If
Next cell

End Sub
citovat

touchwood(10.8.2015 13:43)#026196

Dekuji mnohokrat, nicmene VB mi pise Run-time error 9 subscript out of rangecitovat

marjankaj(10.8.2015 14:00)#026198

Asi u teba stránka znamená niečo iné ako list.
Teda predpokladám že List1 má viac stránok? A ty chceš z toho listu tlačiť iba určitý počet stránok?citovat

touchwood(10.8.2015 14:06)#026199

marjankaj napsal/a:

Asi u teba stránka znamená niečo iné ako list.
Teda predpokladám že List1 má viac stránok? A ty chceš z toho listu tlačiť iba určitý počet stránok?

Presne tak, omlouvam se asi jsem to spatne popsalcitovat

Vovka(10.8.2015 14:13)#026200

Mám dojem, že došlo ke zmatení pojmů stránka a list (viz subscript out of range). Vypadá to podle mne spíš tak, že na jednom datovém listu se nachází víc tiskových stránek a že jde o selektivní tisk těchto tiskových stránek podle obsahu vybraných buněk.
Pokud mám pravdu, rozdělil bych úlohu na dva kroky: v prvním bych definoval proceduru TiskStranky(Strana As Long), která by vymezila logickou oblast stránky a také ji vytiskla. Jako nadstavbu k této proceduře bych napsal rozhodovací předpis Tiskni(), který by určil, které stránky budu v konkrétním případě tisknout (např. na základě obsahu buněk ve sloupci D).citovat

Hokuston(10.8.2015 14:44)#026201

Pardon, vedro mě vedlo špatně, tohle by snad mohlo být to co chcete :-)

Sub tisk()
Dim oblast As Range
Dim i As Integer

Set oblast = Worksheets("List1").Range("D7:D14")
Worksheets("List1").PrintOut From:=1, To:=1
For Each cell In oblast
If cell = "" Then
Else
i = cell.Row - 5
Worksheets("List1").PrintOut From:=i, To:=i
End If
Next cell
End Sub

citovat

marjankaj(10.8.2015 14:49)#026202

Na to je tento príkaz. Stačí ak zameníš v cykle hodnoty from=1 a to=2. Zrejme si to budeš vedieť vypočítať. Napríklad ako to uviedol Hokuston.

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, PrintToFile:=True, Collate:=True, IgnorePrintAreas:=Falsecitovat

Téma: Tisk jen urcitych stranek na listu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje