Příspěvky uživatele

Zdravím, mám soubor do kterého napíšu náklad třeba 3600 ks,
na paletě je 1000 ks ( vytvoří se 3 listy po 1000 ks a 1 list 600 ks, odešle se to do tisku PDF, listy se ale řadí tak, že poslední list potřebuji na 1. místě a on je na posledním.
Nemůžu na to přijít jak to nastavit. Po odeslání na tisk se listy vymažou, zůstává jen list tlačítko a dodací list.

Zdravím, nemáte někdo k dispozici kód,
který by vyhledal na listu3 ve sloupci E:E buňky které mají hodnotu 0, označil je
a všechny řádky kde je ve sloupci E "0" tak je skryl?

Pak do druhého tlačítka kód aby všechny skryté řádky zase zobrazil

OK, dík za ověření.

Dík za odpověď přikládám soubor s datumem

Dobrý den, bude správně zobrazeno když v excelu CZ nastavím v buňce datum "16.3.2023 čtvrtek"(formát dd.mm.rr dddd)
a odešlu soubor na Slovensko,
kde si jej otevřou v excel SK, budou v té buňce mít "čtvrtek"
nebo "štvrtok" ?

Dobrý den mám na listu 4 tlačítka CommandButton do buňky ve sloupci E po zadání tlačítkem Vlož zadání zadám počet stran(2 až 96)a dojde k akci. Jak je ale počet stran vysoký cca 52
tak tlačítka command button změní svoji velikost - smrsknou se. Tisk je nastaven do pdf na velikost 1 strany. Jde to zmenšení tlačítek nějak ošetřit? Děkuji za odpověď

Dobrý den, po otevření souboru tisk.xls se klikne na tlačítko tisk a do Input boxu se zadá celkový počet palet např 3, a stiskne se OK.
VBA vloží do buňky E35 text 1/3 a odešle 1stranu na tisk na předvolenou tiskárnu dále znovu 1 stranu 2/3 a tisk a nakonec 1 stranu 3/3

Potřebuji aby v cyklu nedocházelo k jenotlivým tiskům zvlášt po jedné straně, ale aby se vytvořily všechny strany celkem v jednom souboru PDF.
( může se automaticky pojmenovat svým názvem a umístit se do složky D: \tisk
tento soubor pak otevřu samostatně a pošlu na tisk všechny vytvořené strany najednou. Znáte někdo řešení?

Private Sub CommandButton21_Click()
Dim i, pocet, varInput As Integer

'Titulek_dialogu = "zadej kolik je palet celkem"
'pocet = InputBox(Titulek_dialogu) '******** počet palet celkem
varInput = Application.InputBox("Zadej číslo - počet palet celkem", Type:=1) '****varInput je počet palet celkem type:=1 vynucení vstupu čísla
'MsgBox (varInput)

For i = 1 To varInput
Cells(35, 5).Value = i & "/" & varInput '****Vloží do buňky G35 na List1 1.ní paleta z / x počtu palet celkem
Selection.NumberFormat = "@"
ActiveWindow.SelectedSheets.PrintOut '********* odešle tisk na předvolenou tiskárnu
'ActiveSheet.PrintOut Preview:=True ********************Ukázka před tiskem
Next i
End Sub

Tisk více stran v List1 do PDF

Po otevření souboru zadej tisk 1-x.xls se klikne na tlačítko tisk a do Input boxu se zadá celkový počet palet např 3, a stiskne se OK.
VBA vloží do buňky E35 text 1/3 a odešle 1stranu na tisk na předvolenou tiskárnu dále znovu 1 stranu text 2/3 a tisk a nakonec 1 stranu text 3/3

Potřebuji aby v cyklu nedocházelo k jenotlivým tiskům zvlášt po jedné straně, ale aby se vytvořily všechny strany v jednom souboru PDF
( může se automaticky pojmenovat svým názvem a umístit se do složky D: \tisk
tento soubor pak otevřu samostatně a pošlu na tisk všechny vytvořené strany najednou.Nějak podobně funguje soubor excel tisky listy do pdf1, ale ten vytvoří pdf soubor s textem na Listu1

Posílám přílohu

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()

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje