Stručně: Vybírejte listy před uložením do PDF (přes kolekci Worksheets a pole Array).citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: excel vba tisk více stran do jednoho souboru pdf
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 33x)
38505_tisk.zip (13kB, staženo 33x)(28.11.2017 10:44)#038506
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
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 65x)
citovat38556_tisk_palet_stitku.zip (21kB, staženo 65x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články