Pred spaním rýchlo. Nemám ako vyskúšať.
Příloha: 
56991_vyrobky2.zip (42kB, staženo 2x)
citovat56991_vyrobky2.zip (42kB, staženo 2x)
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: VBA pro tisk dokumentu Word
MS Excel
Téma: VBA pro tisk dokumentu Word 
Zaslal/a corisi58 14.11.2024 22:17
Ahoj všem,
potřebuji poradit s kodem VBA pro tisk dokumentu Word z excelu 2019. Jedná se o tisk 47 souborů.Soubory budou ve stejné složce jako sešit Excel. V přiložené tabulce, sloupec E se zadává počet kopií. Každý řádek=jiný soubor. Potřebuji po stisku tlačítka tisknout všechny dokumenty ve slouci E v zadaném počtu kopií, jedním tlačítkem. V příloze je v buňce E5 nastaven VBA tisk dokumentu 1.docx, funkční, odesílá do výchozí tiskárny, tisk oboustraně. Jen nevím jak ho rozšířit na 47 souborů. Předem děkuji
Příloha: 56990_vyrobky-tisk.zip (77kB, staženo 3x)
56990_vyrobky-tisk.zip (77kB, staženo 3x)Máte v systéme tlačiareň, ktorá sa volá "Duplex" ? Otvorte si Word, Súbor - Tlačiť - Tlačiareň - rozkliknite a presne (!) opíšte požadovaný názov.citovat
Děkuji, již funguje na "Duplex". Stačilo jen lehká úprava kódu"
On Error Resume Next
With wordApp
.Visible = True
.Application.ScreenUpdating = False
tmp = .ActivePrinter
.ActivePrinter = "Duplex"citovat
On Error Resume Next
With wordApp
.Visible = True
.Application.ScreenUpdating = False
tmp = .ActivePrinter
.ActivePrinter = "Duplex"citovat
Heh :)
Ale to nie je úprava k funkčnosti, ale úprava na preskočenie chyby. Chybu to nijako nenapraví, chyba ostáva, žiadna tlačiareň sa nezmení, ostáva pôvodná. A funguje Vám to len preto, lebo pôvodná bola tá, ktorú chcete.
Akú hodnotu má tmp po kroku?
tmp = .ActivePrinter
Aký je názov tej tlačiarne na mieste, ktoré som Vám písal?
Po otvorení úplne prvého súboru v kroku
.Documents.Open Soubor
pozrite do otvoreného Wordu, a tam kde sa mení tlačiareň, aká je tam nastavená?citovat
Ale to nie je úprava k funkčnosti, ale úprava na preskočenie chyby. Chybu to nijako nenapraví, chyba ostáva, žiadna tlačiareň sa nezmení, ostáva pôvodná. A funguje Vám to len preto, lebo pôvodná bola tá, ktorú chcete.
Akú hodnotu má tmp po kroku?
tmp = .ActivePrinter
Aký je názov tej tlačiarne na mieste, ktoré som Vám písal?
Po otvorení úplne prvého súboru v kroku
.Documents.Open Soubor
pozrite do otvoreného Wordu, a tam kde sa mení tlačiareň, aká je tam nastavená?citovat
Funguje to na nastavenou výchozí tiskárnu. Zkoušel jsem klasický tisk, tisk PDF a pokaždé to vytisklo správný soubor a zadaný počet kopií. Viz příloha
Příloha: 56997_vyrobky2.zip (81kB, staženo 2x)
citovat56997_vyrobky2.zip (81kB, staženo 2x)Ale neodpovedáte na jedinú otázku.
Ak je požadovaná tlačiareň predvolená, netreba vôbec čachre s ActivePrinter.citovat
Ak je požadovaná tlačiareň predvolená, netreba vôbec čachre s ActivePrinter.citovat
Omlouvám se, moje chyba.
Jelikož se budou měnit tiskárny, nevím, jaká bude nová, proto to nechávám na výchozím tisku. Děkujicitovat
Jelikož se budou měnit tiskárny, nevím, jaká bude nová, proto to nechávám na výchozím tisku. Děkujicitovat
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