• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: excel vba tisk více stran do jednoho souboru pdf

Zaslal/a titus15 28.11.2017 10:40

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

Příloha: 38505_tisk.zip (13kB, staženo 32x)

Zaslat odpověď >

---

xlnc(28.11.2017 10:44)#038506

Stručně: Vybírejte listy před uložením do PDF (přes kolekci Worksheets a pole Array).citovat

kristv(1.12.2017 5:29)#038556

Zkuste se podívat na řešení v příloze.
Procedura je v module, nikoliv v listu.
První list sešitu slouží jako šablona, kde si nastavíte i formát buněk.
Vygeneruje se PDF tam, kde je nastavena cesta v proměnné.
Tlačítko pro spuštění je na listu Tlačítko

Příloha: 38556_tisk_palet_stitku.zip (21kB, staženo 62x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse