< návrat zpět

MS Excel


Téma: tisk z excelu rss

Zaslal/a 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ěď >

#032337
Hav-Ran
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
#032338
avatar
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
#032339
avatar

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
#032340
Hav-Ran
Správne Marjankaj - zadanie ako pre jasnovidcov, tajomné a bez prílohy - snažte sa.citovat
#032341
avatar
Posílám přílohu
Příloha: zip32341_tisk1-az-x.zip (11kB, staženo 32x)
citovat
#032342
avatar

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. 10citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Uspořádání dat do tabulky

elninoslov • 15.4. 14:19

QR kód

parkovec • 15.4. 13:53

Uspořádání dat do tabulky

lubo • 15.4. 12:10

Uspořádání dat do tabulky

Marw • 14.4. 19:41

Uspořádání dat do tabulky

elninoslov • 14.4. 10:08

Uspořádání dat do tabulky

Marw • 14.4. 9:30

hláška

elninoslov • 13.4. 8:45