[es] - [WORD] autosave kada se pritisne print

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: [WORD] autosave kada se pritisne print

^{06.09.2007. u 13:53 - pre 202 meseci}

Ne poznajem tako dobro Word-ove objekte pa ne mogu da tvrdim, ali mi se čini da za štampanje ne postoji "ugrađena" mogućnost presretanja (kao što je to slučaj za Open/Close recimo). Svejedno, naći će se neko pa ćeš saznati da li postoji i jednostavniji način od ovog kojim bih se ja poslužio.

VBA ekvivalent za štampanje je naredba PrintOut() tako da bih ja kreirao makro koji će, kada ga pokrenem, da štampa aktivni dokument. Makro bi trebalo smestiti u Normal template tako da uvek bude raspoloživ.

Evo ti lista koraka, možda izgleda komplikovano ali je vrlo prosto:
1) Otvori Word
2) Pritisni ALT+F11 (otvara VBA editor)
3) Sa liste projekata lociraj Normal i otvori mu pripadajuće elemente (pritisneš mišem na '+' dok se ne otvori i poslednji). Sad desnim klikom na Normal i izaberi Insert / Module. Daj ovom modulu neko logično ime umesto bezličnog Module1, recimo MojiAlati.
4) Sa dva klika na modul MojiAlati otvori prozor za kod.
5) Ovde unesi makro za štampu, recimo da se zove ovako:

Code:
Sub MojeStampanje()

ActiveDocument.PrintOut
End Sub

6) Sad se vrati u Word i kreiraj svoj taster za štampanje: desni klik na paletu sa alatima i Customize...
7) Desnim klikom na postojeći taster za štampanje pa izeberi Copy Button Image.
8) Pređi na dijalog Customize koji ti stoji otvoren, trebalo bi da je to baš na kartici Commands. Sa liste Categories: obeleži Macros a u prozoru Commands: ćeš naći svoj makro za štampanje.
9) Prevuci ga pored postojeće ikonice za štampanje.
10) Desnim klikom na taj novi taster pa izaberi Paste Button Image.
11) Desnim klikom na taj novi taster pa izaberi Default Style.
12) Desnim klikom na taj novi taster pa izaberi Name: pa u polje upiši kraće ime, npr "&Moje Stampanje".

Sad imaš dupliran taster koji je po svemu isti sa ugrađenim sa bitnom razlikom što ovom koji si dodao možeš da dodaješ funkcije koje tebi trebaju.

Ne moram baš sve sam da ti rešim, poigraj se dalje sam. Naredba za snimanje aktivnog dokumenta je SaveAs() pa prouči malo HELP. Naredba kojom ćeš dobiti sistemsko vreme je Time; ipak, nećeš moći prosto da prilepiš na novo ime vreme koje ti ona vrati jer ovaj string sadrži zabranjen simbol ':' koji nije dozvoljen u imenu fajla.

Kada ovo rešiš, obrati pažnju i na to da ćeš u slučaju naknadnog pozivanja makroa za štampu imati izmenjeno ime sa prisutnim vremenom štampanja. Dakle, nećeš moći prosto da lepiš svaki put vreme uz ime fajla nego moraš da napraviš inteligentiji metod.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [WORD] autosave kada se pritisne print

^{23.10.2007. u 09:31 - pre 200 meseci}

Davno je prošlo od ove teme. Čini mi se da je 3okc dao zadovoljavajuće rešenje, ali sam vezano za neki drugi odgovor našao da postoji (doduše malo zaobilazna) mogućnost da se presretne događaj DocumentBeforePrint u Wordu.

http://www.word.mvps.org/FAQs/MacrosVBA/InterceptSavePrint.htm

Izgleda da takva mogućnost ne postoji za događaj DocumentAfterPrint. U tom slučaju može da se presretnu wordova komanda za štampu i zamene sopstvenim kodom.

Code:

Sub FilePrint()
'To intercept File > Print and CTRL-P

MyPrintSub

End Sub
Sub FilePrintDefault()
'To intercept the Standard toolbar button

MyPrintSub

End Sub

Sub MyPrintSub()

Dialogs(wdDialogFilePrint).Show
'Your code here,
End Sub

ili koristiti neki drugi pogodan dogadja npr WinodowSelectionChange.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu