MS Excel

Téma: tisk z excelu

Zaslal/a titus15 15.8.2016 15:18

Zdravím,na Fóru. Dotaz: Tisknu z excelu několik stran s proměnným počtem. Na listě se vygeneruje podle zadaného celkového počtu v buňce hodnota 1/20 ( tj celkem je 20 položek) a jde na tisk předvolené tiskárny, pak se hodnota navýší na 2/20 a jde na tisk až po konečných 20/20. Odeslání každého jednotlivého tisku na tiskárnu trvá cca 7 sec. Při velkém počtu je to dlouho.
Je možné řešení že by excel odeslal každý jednotlivý tisk do souboru třeba *.pdf nebo do web. prohlížeče tak aby bylo všech 20 listů pod sebou a teprve pak se tisklo vše naráz? Děkuji za odpověď
Kód:
Private Sub CommandButton21_Click()
Dim i, pocet As Integer

Titulek_dialogu = "zadej kolik je palet celkem"

pocet = InputBox(Titulek_dialogu)

For i = 1 To pocet
Cells(35, 5).Value = i & "/" & pocet
Range("E35").Select
Selection.NumberFormat = "@"
ActiveWindow.SelectedSheets.PrintOut

Next i

End Sub

Zaslat odpověď >

Hav-Ran(16.8.2016 9:23)#032337

Vybrať VŠETKY listy, tlačiť napr. takto

Sheets(Array("Hárok1", "Hárok2", "Hárok3")).Select
Sheets("Hárok1").Activate
ActiveWindow.SelectedSheets.PrintPreview
ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"

Dať samozrejme PrintOut . .citovat

titus15(16.8.2016 10:47)#032338

Nefunguje, tisknu vždy z List1, ale hodnoty jsou měněné,ty potřebuji aby všech 20 stran nalezlo do náhledu.
Zkuste spustit ten kód Private Sub CommandButton21_Click()citovat

marjankaj(16.8.2016 10:56)#032339

titus15 napsal/a:

Nefunguje, tisknu vždy z List1, ale hodnoty jsou měněné,ty potřebuji aby všech 20 stran nalezlo do náhledu.
Zkuste spustit ten kód Private Sub CommandButton21_Click()

A prečo si napísal teda toto????
" ...prohlížeče tak aby bylo všech 20 listů pod sebou..."citovat

Hav-Ran(16.8.2016 11:19)#032340

Správne Marjankaj - zadanie ako pre jasnovidcov, tajomné a bez prílohy - snažte sa.citovat

titus15(16.8.2016 11:53)#032341

Posílám přílohu

Příloha: zip

32341_tisk1-az-x.zip (11kB, staženo 33x)

citovat

marjankaj(16.8.2016 12:22)#032342

titus15 napsal/a:

Posílám přílohuPříloha: 32341_tisk1-az-x.zip

A čo chceš akože vytlačiť? Prázdne strany? Na to nepotrebuješ ani tlačiareň. Proste si kúp čistý papier a je to.

citovat

Uživatelské menu

Nejste přihlášen(a)

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.