Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Heftanje dokumenata iz MailMerge zasebno

[es] :: Office :: Word :: Heftanje dokumenata iz MailMerge zasebno

[ Pregleda: 2174 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Heftanje dokumenata iz MailMerge zasebno25.06.2020. u 09:09 - pre 45 meseci
Da li je neko pokušavao da riješi temu iz naslova. Dakle, napravio sam MailMerge dokument i treba da pošaljem na štampu. Dokument se sastoji od 3 stranice a ima stotinjak zapisa pa bih trebao da dobijem svaki dokument zasebno spojen. Međutim, šta god da uradim, on spaja sve zajedno. Unosio sam razne macroe koje sam nalazio na netu ali ne pomaže.
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2266
*.mediaworksit.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno25.06.2020. u 15:44 - pre 45 meseci
Šta tačno hoćeš da dobiješ
Jedan dokument po 3 strane za svaki zapis - unosiš ručni prelom strane Ctrl+Enter u dokument koji se koristi za mail merge
100 posebnih dokumenata sa 3 stranice - mail merge ima filtriranje ali ovo je ručno naporno. Postoji neki outline mode koji se koristi za email, pa probaj to https://www.youtube.com/watch?v=yI6Z9t-oPLM
3 dokumenta sa po 100 strana - praviš poseban mail merge za svaku stranu
ili nešto drugo ?
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.226.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno25.06.2020. u 21:06 - pre 45 meseci
Uh, Peco. Nisam bio najjasniji, izvini :) Dakle, MailMerge sam sve završio, ništa nije problem tu. Sam dokument koji sam kreirao ima zasad stotinjak redova u ekselu, samim tim, biće toliko tih rješenja. Plus svi se štampaju u 4 primejrka. A kad dođe do štampanja, planirao sam da zadam sve odjednom, ili bar u grupama po 10-20. Ono što mi treba je kad odštampa jedno rješenje, da ga printer zahefta. Printer je veliki Canon kopir, ne znam sad napamet koji. Danas sam nalazio neke macroe na netu za Word koji bi to trebli da riješe, ali ništa. Testno sam puštao samo dva reda, i onda lijepo izađe tih 6 listova i printer ih zahefta svih 6. Meni treba da svaki od ta dva predmeta posebno zahefta. Problem će biti kad pustim 20 zapisa pa izađe 60 lsitova i moraju se ručno soritrati.
Nadam se da sam sad bio malo jasniji.
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2266
*.mediaworksit.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno26.06.2020. u 08:35 - pre 45 meseci
Nemam pojma o tom apraratu, ali pretpostavljam da ako posljes pojednacne fajlove - varijanta 2 - da ce da ih zahefta fajl po fajl. Da ne bi stampao fajl po fajl mozes iskoristiti vba da pošalješ više fajlova na štampu odjednom https://www.datanumen.com/blog...print-multiple-word-documents/
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
31.176.193.*



+27 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno26.06.2020. u 14:23 - pre 45 meseci
Tebi treba da Word svaki mergeani dokument posalje kao zaseban print job a Word nema tu opciju. Ovaj makro bi trebalo da odradi to sto ti treba. Prolazi kroz sve redove podataka i orinta dokument za svaki red.

Dim ds as MailMergeDataSource
Dim n as integer
Dim i as integer

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set ds = ActiveDocument.MailMerge.DataSource
n = ds.RecordCount
for i = 1 to n
ds.ActiveRecord = i
ActiveDocument.PrintOut
Next
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno29.06.2020. u 08:30 - pre 45 meseci
Almedine, nije pomoglo. Nisam siguran ni da li dobro unosim macro u word-u. Ulazim sa Alt+F11 u VBA, zatim biram opciju Insert Module i zatim prekopiram ovaj tekst koda. Sačuvam dokument kao macro-free (.xlsm) i pokrenem ponovo.
Međutim, ne pomaže ni ovaj tvoj kod kao ni oni koje sam nalazio na netu. I dalje zahefta sve listove zajedno.
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.PPPoE-843.sa.bih.net.ba.



+27 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno29.06.2020. u 15:07 - pre 45 meseci
Je li ti pokreces ovaj makro iz glavnog dokumenta? Probaj ovako. Otvori glavni dokument, imaš gore komande za merge gdje biras aktivni red. Postavi na 1 i uradi print iz worda, na printer bi trebalo da izadju te tri stranice i da ih printer zahefta. Pomjeri aktivni red na 2 i opet print, opet treba da zahefta.
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.226.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno29.06.2020. u 21:00 - pre 45 meseci
Pa to je 'pješke' :). Meni ej cilj da zadam 20 dokumenata i da ih sve zasebno zahefta
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno29.06.2020. u 21:38 - pre 45 meseci
Sustina @Almedin sto je rekao je da ako radi peske da to peske moze i da se automatizuje sto opet implicira da niste uradili nesto kako treba da bi to radilo kako hocete...
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 06:46 - pre 45 meseci
Bokinet, nisam siguran da sam shvatio. Ako štampam iz Mailings-a što mi je i logično, odem na Print document i tu biram hoću li da štampam svih 100 dokumenata ili ću parcijalno. Svaki dokument ima 3 lista i ja hoću da ih zahefta posebno.
Ovo što je Almedin predložio, to je OK, na kraju sam i mislio tako da uradim. Ulaziću u svaki dokument i slati ga na štampu bilo direktno (File-Print) bilo iz Mailingsa.
Ja sam htio da pokušam da to uradim automatski. Vidim na netu da rješenja postoje, ali imam utisak da nešto fulam sa macroom.
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
31.176.197.*



+27 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 07:53 - pre 45 meseci
Kao sto @bokinet reče, ovo sto sam predložio je u stvari isto ono sto makro radi samo ručno. Nisi odgovorio na pitanje gdje ti pokrenes makro, iz kog dokumenta. Dakle, prvo ručni metod. Otvoriš dokument u kojem si postavljao polja (taj dokument ima 3 stranice). Gore u toolbaru imas komande za biranje aktivnog reda. Izaberi 1. Pokja bi trebalo da dobiju vrijednosti iz prvog reda podataka i treba da ih vidis. Iz wordovog standardnog toolbara izaberi print (normalni print kao sto bi stampao bilo koji dokument a NE raditi mail merge na printer). Na printer mora izaci dokument od 3 strane i printer ih mora zaheftati. Izabereš red 2 u toolbaru za mailmerge i ponovis print i, opet, mora izaci dokument i biti zaheftan. Ako ti ovo radi ovako, mora raditi i makro. Makro pokreces iz dokumenta od 3 strane. Ovo govorim zato sto se neki makroi pokrecu iz dokumenta koji se kreira iz mail merge (onog sa, recimo, 300 strana) i rade na drugom principu (traze sekcije u dokumentu).

Ovo gore navedeno mora da radi. Ako ne radi, opisi tacno i precizno postupak sta radis, korak po korak.

Smiješno pitanje, ali, das li ime makrou i pokrenes li makro jer si rekao "prekopiram ovaj tekst koda" a kod koji sam ja napisao je samo tijelo, nema naziva funkcije?
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 08:36 - pre 45 meseci
Pa i nije smiješno pitanje, obzirom da nisam davao nikakvo ime Macro-u :). Nisam baš familijaran sa macroima. Sad sam ponovo sve obrisao i krenuo ispočetka. Ušao sam e Developer tab i kliknuo rrecord macro i odmah zaustavio. Macro je kreiran, zove se Macro1. Zatim sam kliknuo opciju Macros na Developer tabu i na Edit tog macroa i unio kod koji si ti dao.
Zatim kad kliknem Run Macro on krene da štampa, ali u tom slučaju on štampa bez ulaska u printer opcije, a opcija Stapling nije uključena po defaultu. Onda sam otišao u Printer properties i stavio da je Stapling po defaultu uvijek uključen.
Nakon toga sam ponovo otišao i pokrenuo Macro i on je odradio ovo što sam tražio.
Da li je to ispravan način?
Dakle, ne idem ni u Print opciju glavnog dokumenta niti Mailingsa, nego samo kliknem Run Macro.
To će mi sad riješiti problem, ali nije baš najelegantnije rješenje.
Da ne bude da tražim hljeba preko pogače. ali sam planirao da puštam iz Mailingsa i da puptam po 20 radi lakše kontrole. Sad sam recimo za ovo testiranje otišao u bazni eksel dokument i obrisao sve redove osim prva 3 da mi ne bi džaba vukao sve dokumete jer mi ta štampa treba tek za desetak dana kad sve bude gotovo.
Almedine i Bokinet, hvala na dosadašnjoj pomoći. :)
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
109.163.169.*



+27 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 09:59 - pre 45 meseci
Dodaj printer potpuno isti kao taj vec postojeći, nazovi ga 'Heftanje", ukljuci mu heftanje i koristi ovaj makro. Makro ce pitati za raspon za štampanje i štampat ce na printer "Heftanje".

Dim ds as MailMergeDataSource
Dim n as integer
Dim i as integer

Dim nFrom as integer
Dim nTo as integer

Dim sPrinter as string
Const MY_PRINTER as string = "Heftanje"
sPrinter = Application.ActivePrinter
Application.ActivePrinter = MY_PRINTER

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set ds = ActiveDocument.MailMerge.DataSource
n = ds.RecordCount

nFrom = CInt(InputBox("Od (1 - " & n & ")"))
nTo = CInt(InputBox("Do (" nFrom & " - " & n & ")"))

for i = nFrom to nTo
ds.ActiveRecord = i
ActiveDocument.PrintOut
Next

Application.ActivePrinter = sPrinter
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 12:21 - pre 45 meseci
Almedine, izvini na smaranju, međutim mene ovi macroi nikako ne idu. Nakon što mi je prošli put uspjelo da odštampam i zaheftam te testne primjerke htio sam da isprobam ovaj tvoj novi kod.
Sad mi ništa ponovo neće, kad uđem u Developer tab i kliknem na dugme Macros nema ih nego ponovo snimam novi. Kad pokrenem macro na komamdu Run Macro, dobijem grešku koju kačim kao prilog.
Ako te mrzi da se bakćeš ovim, puštaću ih jedan po jedan, šta da radim drugo.
Prikačeni fajlovi
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
109.163.168.*



+27 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno30.06.2020. u 14:25 - pre 45 meseci
Bila je greska, evo ispravio sam. A makro snimi u taj dokument.

Dim ds as MailMergeDataSource
Dim n as integer
Dim i as integer

Dim nFrom as integer
Dim nTo as integer

Dim sPrinter as string
Const MY_PRINTER as string = "Heftanje"
sPrinter = Application.ActivePrinter
Application.ActivePrinter = MY_PRINTER

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set ds = ActiveDocument.MailMerge.DataSource
n = ds.RecordCount

nFrom = CInt(InputBox("Od (1 - " & n & ")"))
nTo = CInt(InputBox("Do (" & nFrom & " - " & n & ")"))

for i = nFrom to nTo
ds.ActiveRecord = i
ActiveDocument.PrintOut
Next

Application.ActivePrinter = sPrinter
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.234.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno01.07.2020. u 07:23 - pre 45 meseci
Probao sam na brzinu u ovom testnom dokumentu i radi. nadam se da će tako raditi i u glavnom. Almedine, puno hvala :)
 
Odgovor na temu

sasa.je

Član broj: 158652
Poruke: 165
89.111.226.*



+1 Profil

icon Re: Heftanje dokumenata iz MailMerge zasebno01.07.2020. u 14:58 - pre 45 meseci
Almedine, radi u radnom dokumentu. Hvala ti još jednom :)
 
Odgovor na temu

[es] :: Office :: Word :: Heftanje dokumenata iz MailMerge zasebno

[ Pregleda: 2174 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.