ࡱ> $&#2qbjbjt+t+AA]888hhhh: F h2hhhhhGGG $0$F8GCGGGGhhhGGGG8h8h LZG GnG   8 hR MhhG  . A!"#$n%qbjbjt+t+AA]jj&&2:: F &u2^^^^^^^^^```````^^^^^` [8@8Standard$CJOJQJmHRR berschrift 1$$@&5>*OJQJZZ berschrift 2"$8@& 7S@@@ >*OJQJZ!Z berschrift 3$;dh@&6CJOJQJBA@BAbsatz-Standardschriftart4B4 Textkrper CJOJQJ !8@0(  B S  ?ichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_4\druckersatzmenue.dotichMD:\Nora\VBA-Module\DruckenErsatz\OhneDruckerauswahl\V1_5\druckersatzmenue.dotHaw5'^`56CJOJQJ^JaJo(hH/^`OJQJ^Jo(hHopp^p`OJQJo(hH@ @ ^@ `OJQJo(hH^`OJQJ^Jo(hHo^`OJQJo(hH^`OJQJo(hH^`OJQJ^Jo(hHoPP^P`OJQJo(hHHaw5V<  V?   Druck ErsatzmenDruck Ersatzmen]8iHHHHHHHH0 (Druck ErsatzmenDruckmenue Aufrufen#DruckmenueErsatz.DruckmenueAufrufen "(#Tastenkombination Strg + P zuweisen$Tastenkombination_ Strg_ P_ Zuweisen2DruckmenueErsatz.Tastenkombination_Strg_P_Zuweisen@  .@q  SofortdruckStrg+P4DruckErsatzmenue.DruckmenueErsatz.DruckmenueAufrufenCDruckErsatzmenue.DruckmenueErsatz.Tastenkombination_Strg_P_Zuweisen<4DRUCKERSATZMENUE.DRUCKMENUEERSATZ.DRUCKMENUEAUFRUFEN?CDRUCKERSATZMENUE.DRUCKMENUEERSATZ.TASTENKOMBINATION_STRG_P_ZUWEISEN@l`@GzTimes New Roman5Symbol3& zArial?5 zCourier New;Wingdings"0mc' 0d@P blabblabichich [4@4StandardCJ OJPJQJBA@BAbsatz-StandardschriftOh+'0t  0 < HT\dl blabblab labichchchdruckersatzmenue.dot8ich13Microsoft Word 8.0t@|@@e@M՜.+,D՜.+,8 hp  auchb1  blabblab Titel 6> _PID_GUIDAN{B7A96455-DA26-448B-A99F-1EDD614FA187}  !"%,E()*+-/013<56789:;.=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FgMM'A1TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros'%`M GMVBA& `M ָMThisDocument   !"#$&'*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^`abcdefghijkmnopqrstuvwxyz{|}~<$cQ-BΖ F'a1?H x6Ƚ#'a1?H $cQ-BΖX4(SLSS6"N0{00020906-0000-0000-C000-000000000046}.K"*\Rffff*54bf82773($Hh $ $ $ $0 $` $@ $ $ $0 $` $lʴ $p $ $( $h $ $ $ $0 $` $@h $ $ $@pME xpAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2Option /licit rU mmY4 a1c__SRP_6%__SRP_7 (@frmDruckmenue 4/__SRP_4)rU @prU $`4)`  4i` $`$`$)` $i`$`$`$) .0 Object Library*#5d*\R0*#1d*\R3*#8*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#59*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55A0($X0 $6i`hz`keyi $J+$($X$B`xw|ke^i $$  $P$r(ymE)"GAzMYİ=vN *j>?6H@zhL6*x5ķx"?6H@zhL6*x5ķr(ymE)"G>zoJNRVZbjnrvz~f^,SPSSS<4<<<<< <$1<(<0<4<8<<<@"<8<<<@A0,8,@,8 ,$,$ 8X<`<i +++, $$$,$i `*h*H=P=,$$&& &,$$,$,$,$,$h:Pn0;* a,$,$$ B$PB$$$$,$,X=@@@@AAb^xHDD@D$8D $G"XB`BhBE$8E$hE$E $$$,$,$$,$,$E $,$,$,$,$,$X=E E $,$ x5 x2,$,$,$$$$ x5 x:,$,$ x1FFFF,$$,$,$,$,$ x4F$$$b`IFF@`H$$$0$,$ x4 x6hH 0$ xP7pH bbH H@0$,$0$,$ xX7dpZ`@r$kei :H0HI0$0$HHH` `Tke< i x7I0J0$0$0$I 0$0$0$,$,$,$ x6 x8 J,$ x<L($($($i ,$,$ x9i 0M0$0$0$i LA L,$0$0$,$KKK(Lr8 `\kOe4  !u NO 0$,$ xp< x<,$,$ xx9Pai  N(N8O x(= M x; ux@O x(& uxxO x8 x+ x; x(F,$,$`xH xAMMxg`kUe=0$,$,$,$`x0: xh< uxO0$0$,$,$,$`x xH( xx;0$0$`xi RpRxRi (R0$,$,$,$`x0$0$HP0$,$0$ xp/`xRP,$ xA0$0$STSi  T(TP0$ xp;0$0$,$ xx/8T!u V\,$0$0$0$i HT ,$ xAI x> x<T TU,$0$0$ x@,$,$ x> M x F x@0$,$,$`x`xi  ux00i !u HW`Y xH x@L ,$,$`xUUa,$ xA uxW,$,$ xF xE x0G xpB uxW xF`xQ`tkXe(i PW uxY xF xF xF x(G xE0$0$0$ x8L,$,$ xF,$`x a,$[[[i ux \#,$0$,$XW0$0$,$,$,$ xH,$,$,$ xH,$8LW i ,$0$,$ xH xE,$,$ xE\] ] Vh_ ux\ [x]T x M xF x(M uxX],$0$,$,$,$[@@@@@i 0$0$ ux\ xG0$,$,$^`` ux[ xI`] uxPb,$``XaxNz `np`x``L@bL8a,$,$,$h],$,$,$ `](V0V@l ,$i ux` ux(]acc($cd($(d($Xd($d($ uxd8,$ uxd,$,$,$e uxd uxXb,$,$i i X($ uxe(,$ uxe,$,$,$ ux8e [x_ xI ,$ 8`Lkf`f ($ uxdf ($ x0L($0$0$ uxe,$,$eHgPg xR``vHke R8Xi ggxHPhA0$ ux8gP,$,$,$,$ ux` uxph,$,$,$ ux@e,$,$ ux_ uxh xR xL ux`b@egj`P|Xkei 0$0$0$ ux8j(,$i ,$ uxh uxj,$,$,$HhjjP!`|XkeN0k0$`k0$k0$  ($,$,$,$,$,$,$,$,$ x8Q x0NPi uxk uxe,$,$,$ uxR xS@\  uxR uxR uxxW,$,$Pk(mjjj@uL  uxW uxX xT($,$,$ x0Qum, P uxplT  uxxh@x @Poh  uxhpl ux@g@X ux`j@H  uxk uxh$  uxk(u(o uxhnhvf^`bp@z  uxR xY uxS xT@t ,$,$ x](^ x[ uxk,$@(qd @qT @qD  uxxl,$,$,$,$ ux@T x(^\@(s4 ,$,$hqqq@s$  xY,$,$,$qHH,$,$,$ xb@t @u 8q"pZ(KI0fp 08 h"I` xHi`QCN00`jP!Hxg `Y1(clXu@:m0;ha7@t @t m ux(r@ @@v ,$ x0^@pu< @u, @u @ u3@u @ ha,$,$,$ uxV x[@Xv @pv @x ,$,$ uxU x0],$onn ono@0x @Hxt @xd ,$,$,$ xmojl@T  xbtpqppx,$,$,$ ux]T8X @yx @t (,$ uxPa xk,$,$ xly{ {y@d @` T@x @h @X T( x mu uxX{ ux8]( uxv{ ux0|(,$ ux(f(P{{h{8{}}}{ ux_ xp@x @h @X (t @x  xhq ~~~@ h @X @H 8  uxb xjH @x @t ,$ xp ux_ &h @x  uxh uxr@h @X ,$,$ xj@H @x @`h @X @H " $$,$ x0n xv@x  xpq@h @X  xk 0H@H Dk`@4  uxl uxhx"d  uxh ux0r uxyX@z x8u@x uxH!t n` ux) uxp uxk uxy ux@z@d  x`q@z xqЂxm@T @D  uxrP uxv`n ux r x0},$o xpx uxXq uxA uxA x7@t xz@ x xHz xq x`x xrO(Xȉo@p xz@l o x@c@\ x(n@t @p (&t ؏o x1@x @t  x((@Xy xu(u xy x_@d @T xv@t @p $$($ xЇȊp؍(@x,@l @ \ @L @< ؎8t{`؏ NRT@x @t p`@` @ P @8@ @P0 a@  uxvX`HbBP&(hn  `@0X xX`hȒ@`Xxhj^`"@x @t Pf&(,@d @T X@D @4 @$ lNRT ``(bP`&4" @x ($ xДx`p@h @X @T P`Y@L \ `8ȕ ux0=@t @p Pȕ?Z\xRz`@l @\ @L 8A@x< @@, @Ж @ H0i@ x@ hX8TXX @`0xhp`7r((X (^`"(x t 08&(,(d 08XT @D 08@4 @$ 0PlNRT( `8+_0;h0X:201x:9@ < @, p @ Л@ @ @ @ 0@ @ @ @ @| @l @\ @Z 9X Ȝ_x0Ȟa4"؞xx 9@h ؞X 9@T P`9؞ aL 9a904W!S99`3_9993_9`:04W!S`:`:4_`:`:`:P4_`:`:`:4_`::04W!S::4_:::@5_:::5_:::5_:::06_:::6_:::6_::: 7_:::p7_:::7_:@;04W!S@;@;8_@;@;@;`8_@;;04W!S;;8_;;;9_;;;P9_; <04W!S < <9_ < < <9_ < < <@:_ < < <:_ < < <:_ <<04W!S<<0;_<<<;_<<<;_<=04W!S== <_===p<_===<_=p=04W!Sp=p==_p=p=p=`=_p==04W!S===_===>_===P>_=P>04W!SP>P>>_P>P>P>>_P>>04W!S>>@?_>>>?_>>> b>>>pb>>>b>0?04W!S0?0?b0?0?0?`b0?0?0?b0?0?0?b0??04W!S??Pb???b???b???@b?P04W!SPPbPPPbPPP0bPPPbPPPbP04W!S bpbb004W!S00b000`b000b000b000Pb000b000b000@b000b000b0000 b000 b000 b000 b000p b000 b000 b004W!S` b b bP b b b@ b b b0bbb bpbbb`bbbPbbb@bbb0bbb bpbbb04W!S`bbbPbbb@bbb0bbb bpbbb`bbbPbbb@bbb0bbb bpbbb`bb bP b b b@!b!b!b0"b04W!S"b"b #bp#b#b$b 0X\Pg؇ Ip 0fI08XkT 2HsMEz $8 8` : ,  ( $ 0 ,x"H 2P+,++ "x .--(-H-&-8-,M-,X-h-x--  " x/ CC C:C CDD DD DE0D HDXD`D hDpD / " . /xD D:D DDD DD DED EEE  E(E / "3 ,344 4(484H4 3 "0  @ 8 "p p  J`2 H>}@,P XJ,` >}2   x " ; N  "P4 p4`44 X4 "4 444 4 " ,  " )( "@ ,@x H " ,X  " .`  <02   h1 8  "  1(  1  " . 0@/ 1 p1/ 1 X1H/ . " 0    "- )..(. - "  N *P -pP    "P  ) X " /C X)h)"))))*0 * 0*  8*"h***0P* H* 333  "`  X'(@'H' h B   ( 0 8 + +  V  V` PP3 3 )F+X`px( ,  ,  , 8) <+P    . ^4     $ @0 ,  /+',+ /,'(,8, (@3   "(% (3( -((8%).) 0. ( (@. H. X. 0% 8Exphl T$8B@@`l B@HlHl8l B@0f( !"!f'f l l8 l09IQXPE'nk@ l01 !"(famm !&( jh h nFug'n !&!pies:='hh'jh !(!'nf' !!f'l( !,!VER  !(hX'hl-Bitte geben Sie die zu druckenden Seiten ein! A@2X !B@Ia !!fNT` l'hk'nsp !"!fri8Bitte geben Sie die Anzahl der zu druckenden Seiten ein! A@g'n !"B@.sahn !!f$X95f9 Me.tC@l !Bitt  !(sahDie Seitenangabe ist ungltig. Bitte versuchen Sie es erneut. A@ End If ' Drucker einlesen ' Port einlesen Exit SubIf Next objItem8 Dim oDrucker As Stringp .ExecuteIl hhp End With4 h X fAlle< P' Me.lblPort.Caption = Me.lstPort.Text*` End If` i = 0 On Error Resume Next e i = i + 1" Me.lblPort.Visible = False- strStandarddrucker = objItem.Namems = End If' 2 fr genderte Einstellungend End If For Each objItem In colItems0End Subes' If Not IsObject(objWMIService) Then End Sub Select Case KeyCode End Sub Abbrechen !4(l Re End With strPort(i) = " "ta End If .Execute , With Dialogs(wdDialogFilePrintSetup)ierte * .Printer = Me.cboDrucker.Value Dim oDrucker As String- ' Dann gibt es auch keine Druckerauswahl.ht, - Me.cmdAbbrechen.Caption = "Schlieen"erauZp  Anzahl der KopienZ Flag: das ganze DokumentZH zu druckende Seiten End Select der' ' Der Bug ist bekannt, deswegen so:ck+ ' wenn ein Drucker ausgewhlt wurde Dialo^Private Sub cboDrucker_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)ewh& .Printer = Me.cboDrucker.Valuef de$ .DoNotSetAsSysDefault = True Bug i DoEventsen so:Z0 Flag: aktuelle SeitereicZ`! Flag: ausgewhlter Seitenbereich Spezial-Druckmen fr Word 972 ist erforderlich bei einer Reihe von HP-Druckern,4 die auf den Word-Druckdialog "allergisch reagieren"H Auch das ist dem Originaldialog nachgebildet, der enthlt das Knpfchen nur Ziffern erlaubt  Dim objWMIService As ObjectenD ' funktioniert das Einlesen der installierten Drucker nicht,ault a> ' dann halt nur den voreingestellten Drucker verwendenicht0 Me.cboDrucker.AddItem strStandarddruckerke! ReDim Preserve strPort(i) Dim oSheller.L l5 9C@9 l !"C@n` !n 2 !B@3 !B@h !(ahh !"! Z0 Flag: nur markierten BereichX !!" 'h hH@8 !&(X'h'j''lX !,( (fIf thAhAP!l !(f (fhh"l"lhAhpODie Initialisierung ist ntig, weil die Form beim Drucken nur ausgeblendet wirdPDamit bleiben die Werte erhalten, die Variablen mssen neu initialisiert werden,P(aus Performancegrnden).a( !&(m. !P(1  !(!$ !!f !&!$ !!,$ !,! -H09I;HaHpHsHQHG nur Ziffern, Komma, Semikolon und Bindestrich sowie a, s und p erlaubt Pos = PosInArr(oDrucker).rS0lP  riZZZZhZ ~ B@10% Schreibbro Nora Richter 2009-2010fZZ Fugns Fug wurde.ZZ Fug WScript.Shell$.,rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@ A@l8hZ" If strDatei = "" Then Exit SubZ oShell.Run ShellNeu, 1, Trueh Set oShell = NothingriZZ $ (s '   'r0h(  bDruckeinst = Trueige $ strDrucker = Me.cboDrucker.Value druc] Shellrun = "rundll32.exe printui.dll,PrintUIEntry /e /n" & Chr(34) & strDrucker & Chr(34)$! oShell.Run ShellAlt, 1, False oShell.Run Shellrun, 1, Truexea j = j + 1 End IfZ !!' Dim oShell& 'Vorherige Einstellungen speicherne strDatei = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator & "druck.dat". Set oShell = CreateObject("WScript.Shell") !(lA  ot n$ S Kill (strDatei)dert!$ If strDrucker = "" Then Exit Sub. Set oShell = CreateObject("WScript.Shell") ShellNeu = "rundll32.exe printui.dll,PrintUIEntry /Sr /n" & Chr(34) & strDrucker & Chr(34) & " /a " & Chr(34) & strDatei & Chr(34) '9Dummywert, falls der Drucker im Array nicht enthalten ist> liefert die Position (Zeile) zurck, in der der Drucker stehtF liefert -1 zurck, wenn der Drucker im Array noch nicht enthalten ist ' $'h5 oDateiname = strPfad & "Dr_Alt_" & j & ".dat"% Dim ShellAnzeigen, ShellSpeichern DruEnd Sub  % !' Set oShell = NothingEnd Sub.d.M oShell.Run ShellSpeichern, 1, False 'Alte Einstellungen speicherna \ arrDrucker(1, j) = oDateiname 'Dateiname alte Einst. an 2. Platz schreiben 1. (0@ oShell.Run ShellAnzeigen, 1, True 'Dialog anzeigenpe5 oDateiname = strPfad & "Dr_Neu_" & j & ".dat"@7 oDateiname = strPfad & "Dr_Neu_" & Pos & ".dat". Set oShell = CreateObject("WScript.Shell")$M oShell.Run ShellSpeichern, 1, False 'Neue Einstellungen speichern$@ oShell.Run ShellAnzeigen, 1, True 'Dialog anzeigenM oShell.Run ShellSpeichern, 1, False 'Neue Einstellungen speichern spe WScript.Shell$..d  Y arrDrucker(2, Pos) = oDateiname 'Dateiname neue Einst. in Array schreiben2 ' Gefahrloses Umstellen des aktuellen DruckersK ' ActivePrinter stellt im Schreibzugriff den Windows-Standarddrucker umstellu' ReDim Preserve arrDrucker(2, j) A Dim colItems As Object,rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'strDat Dim objItem As Object $'rintui  B@r /nZ+ fr die zwischengespeicherten Druckdateien"$  % !'heng n$'d Aiel End If A@ A@ If bDruckeinst Then If Pos > -1 Then'1 oShell.Run ShellEinlesen, 1, True Else"$B For i = LBound(arrDrucker, 2) To UBound(arrDrucker, 2) Next i;' bAktiv fr nur den Drucker, der in der Combobox aktiv istrsprn Dim oDateiname As Stringr ge End Ifl8!? stellt die Ausgangs-Druckereinstellungen in Windows wieder herZZZZZZ  % !' WScript.Shell$.  !!' $'   $',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@hh. Set oShell = NothingouH0fla Dim oShell1 oShell.Run ShellEinlesen, 1, True Private Sub UserForm_Terminate()ri Call DruckdateienLoeschen"$ Dim ShellEinlesenucke Dim Pos As Integer ist n   n$b n$' n D:\test2.datA@%Z  %Scripting.FileSystemObject$.hp)  %hX)8)a **`***A@BhX* \ bP++*( !&(Ca !n h+++h+ !(+A@lH+l8+ !AuseeeeAN (eeh++8 Dim Pos As Integerrray+0,h,h,H,0, !n -+'Z+19f!"(C@ Abbrechen !4(l !( !(h+A8*`,@ !NDokumentC@DokumenteigenschaftenC@ KommentareC@FormatvorlagenC@AutoText-EintrgeC@TastenbelegungC@7,9n* !Rn*7,9.A*Alle Seiten im BereichC@@( Gerade SeitenC@erade Ungerade SeitenC@p,,lx- !N!V(X !R!V(Xp*H-- .Font.Size = 8-ZC$ zu drucken Dokument, Kommentare ...&ZxH alle, gerade/ungerade SeitenZI sortierenh'^'` !N!* !N!*'^ !R!* !R!*'`h, z | f~ ` b pB@r  z | f~ l ` b pB@r| !P((, !R(D/ !&(En !R(`/ !(( !( !,( !(( !,( !(X/ !( !R%, !R( !N!*R /H0H0(Kl0 !!f !&(hP0 !"95f9n 00Ll0l0 !B@l0Ql1 Me.cboDrucker.DropDown0M !(pnfe@1Nlp1 zHQl(1l1 !NB@l1 xHQk !NB@lMel 1UlpZl t xH zHQl0l0 !NB@l^l !RB@lbokP0H0l !B@lhX3P3l3 End If !NB@l If bEreigStart Then Me.cboDrucker.DropDown3'Z !B@l3 xH zHQ !RB@lk33JetztA@ tl44 B@ 7 Me.txtAnzahl.Value = Me.txtAnzahl.Value + 1{UP}A@9{DOWN}A@ !"!nH3l(4 t xH zHQk43 "B@ B@7 Me.txtAnzahl.Value = Me.txtAnzahl.Value - 1 !"! 944'b  z v| f~ ^< ` b pB@r< z | f~ ` b pB@r4(wie im Originaldialog).ti5 !&(5 !T!'bJbis auf bCollate, denn hier bleibt der zuvor eingestellte Zustand erhalten !T(5 !(x !(xxgl5 !T! !(x !(xap5 !(x !(xhH5il85 !(x !T( !(xjl4 !T( !(x !(x4.Dim j As Integer ' Zhler frs ArrayPrivate Sub cboDrucker_Change()' If Me.cboDrucker.ListCount > 1 ThenF ' Falls nur 1 einziger Drucker in der Liste steht, geht WMI nicht.= Me.lblPort.Caption = strPort(Me.cboDrucker.ListIndex)= ' Der Dialog benimmt sich wie der integrierte Dialog,= ' dort ndert sich die Caption des Abbrechen-Buttons, Case vbKeyDown, vbKeyUp" Me.cboDrucker.DropDown? ' Der Dialog soll sich genauso wie der integrierte benehmenK ' und den aktuellen Drucker ndern, falls ein anderer ausgewhlt wurde.( .DoNotSetAsSysDefault = TrueA Call DruckerEinstellungenEinlesen(intEinst:=1, bAktiv:=False) Dim oDateiname As StringK Dim strPfad As String ' fr die zwischengespeicherten Druckdateien bDruckeinst = TrueV strPfad = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator" oDrucker = Me.cboDrucker.Value` ShellAnzeigen = "rundll32.exe printui.dll,PrintUIEntry /e /n" & Chr(34) & oDrucker & Chr(34)U If Pos = -1 Then 'wenn Drucker noch nicht im Array ist[ arrDrucker(0, j) = oDrucker 'Druckername an den 1. (0.) Platz schreiben ShellSpeichern = "rundll32.exe printui.dll,PrintUIEntry /Ss /n" & Chr(34) & oDrucker & Chr(34) & " /a " & Chr(34) & oDateiname & Chr(34) ShellSpeichern = "rundll32.exe printui.dll,PrintUIEntry /Ss /n" & Chr(34) & oDrucker & Chr(34) & " /a " & Chr(34) & oDateiname & Chr(34)\ arrDrucker(2, j) = oDateiname 'Dateiname neue Einst. an 3. Platz schreibenR Else 'wenn Drucker bereits im Array ist ShellSpeichern = "rundll32.exe printui.dll,PrintUIEntry /Ss /n" & Chr(34) & oDrucker & Chr(34) & " /a " & Chr(34) & oDateiname & Chr(34)$ Dim strStandarddrucker As String Dim i As IntegerU strStandarddrucker = ActivePrinter 'der voreingestellte Drucker wird eingelesen strComputer = "."N Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")R ' Wenn WMI nicht funktioniert (ist erst seit Windows 2000 default an Bord)3 Me.cboDrucker.Value = Me.cboDrucker.List(0)! Me.lblOrt.Visible = FalseO Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)* Me.cboDrucker.AddItem objItem.Name% strPort(i) = objItem.PortnameM If InStr(1, strStandarddrucker, objItem.Name, vbTextCompare) > 0 Then On Error GoTo 0, Me.cboDrucker.Value = strStandarddrucker9 Me.lblPort.Caption = strPort(Me.cboDrucker.ListIndex)O' stellt die Druckereinstellungen wieder her: 1 fr ursprngliche Einstellungen Dim i As Integer. Set oShell = CreateObject("WScript.Shell") If bAktiv Then* oDrucker = Me.cboDrucker.Value$ Pos = PosInArr(oDrucker)6 oDateiname = arrDrucker(intEinst, Pos) ShellEinlesen = "rundll32.exe printui.dll,PrintUIEntry /Sr /n" & Chr(34) & oDrucker & Chr(34) & " /a " & Chr(34) & oDateiname & Chr(34)+ oDrucker = arrDrucker(0, i)4 oDateiname = arrDrucker(intEinst, i) ShellEinlesen = "rundll32.exe printui.dll,PrintUIEntry /Sr /n" & Chr(34) & oDrucker & Chr(34) & " /a " & Chr(34) & oDateiname & Chr(34)X(  !(fC t xHQ N!* N! IQ NB@lPpC'tk`C zHQ N!*H N!IQ NB@lPC'tkCkC xHQ R!* R! IQ RB@lPB'tkB zHQ R!*H R!IQ RB@lP`B'tkPBkHBHB<Attribute VB_Name = "frmDruckmen ue" Bas0{A0838BB0-E247-44CF-B10E-E45397062BA9}{749277E6BF-4A74-ACA4-8217B03F92F2} dCre atabliFalse PredeclaIdTru "Expo se@TemplateDerivCustomizDOption 0licit ' Spezial- fr Word 97ist e$rferh bei einer Reihe v(HP ern,die au`f den%d4og "allergisch gieren' Schreibbro Nora Richt52009-2010 Dim intAnzahl As@ Integ@ ( ' DdKopien bA@s Boolean ' Flag: das ganze Doku@GbAktuelB aCe Seitr n usgewhl5 b@@C9*MarkDt nur mDE@WBstrS tring9' zu dend*@EQItemGQQ D, K omF ...FPageTypeI' y, eade/unCJqeCol JWsort…{P@@ Sub cbo!+_Cha ()aIf Me.).LVI`x <> 0 Th@GaoptA.pValuAup1Enahq@..c3txtE"@ch lble2 &(a)(0-E"(&.r.)q)q%S%SEnd If a UWKeyDown(By.  CosMSForms.Retu$rnr, Shif_Select C܄ vbAa? !kggKF -1 TopCount - 2/ DropO KFeD堿 RUpm-1, ebeϿ 'TS<_Q''['v' '" F['?(tcp(߿ ( 8(:y Fk(Oa ww u}((hkS~_C`k|GZz|img.pVisi[ Un1Hĵ +o/3>`1mdAbbrec0PHid`3OKt ٠eidp6fRitQ"S[ActDoc°.0ntOut @BackgrPdD:=B, R:8=wdB)s,, _%CѸs:=, ToFileAhBN'/, t:=b)Ey<$` Curta q G # serOf  :=V1\ A Tö@hen ActiveDocument.PrintOut Background:=False, Range:=wdHSelevon, _Copies:=Anzahl, bToFilPageTyp( , Colhlatb \End If 'aDoEvsMe.Hide  )Sub T vvK  cmdOptionen_Click()'ialogs(wdDToolss\@).Show0' Auch das ist dem Originald nachgebilde$t,r UhlKnpfcUimgSortStchk ieren.Value = N.VisibblUnsHTruO e%%$D5IoptAktuelleSeite%If OM M TCall franbXich_Verhalt%G&txt.Text <> ""$@0L = zP" A>FsE!!s4Mark@VungG??;spn_SpinDown03#> 1 3WithK3#c2a#8 - 1Se#@V0 UpF+.O@lKf(_KeRy1By` Code As MSForms.ReturnInt@eger, Shiftc Case (vbD!)&Sends "{DOWN}" tq\ b48@ To 57lEp:= d,O O{!R_Chч:TQTP-gaQ!teG *, Komma, Semikolon Bindestrf sowie spa&-e 45, , 59, 97, 112A5'AFrh*1 M  7e1"!0!alblErklae*r0d.@eorQvbBl/$UserD_ $BPseud^o/ _ Initize "Druckers}= e ersWcboItemCa.Add ("Dok=R"p$eigenschafg@("q'Pareatvo?OBAuto-E rgG Tasbg&.Lг(0 cSwlA`"n im Bc  U ra0e+_RGe?Q &D P+Ϻ+2o*v*QueryClose(Cancelr`ց>Mu}sPA= vb!ControlMenuA= AbbresOW(Fun "id:hf() B٬eabsP(bT\LT-8j%(Dl'DZ@sCntig, w`eil d0! ,be*An"wau slet w(irdT( PerfPgr0bn).Uamit ibenxWerNp0Varia@n mssneu initialisiert werden, 'bis auf bCollate, pn h bleibt@r zuvor eingestellte Zustand erh an(wie im Orig inaldog).  If Me.txtAnzahl.Text = "" T heDMsgBox "Bitlgeben SZd: drucken Se it'!", vbInformPatio,Vd!uSelf x? ih MarkC-ֆA cboItPem.L`FIx <> -1T #N> PageType %& O DhkSort%encU$ % Sub PseudoAv(L<cmdAbbreaj.Cap!""C= _e.% < 2,1C(AEnad {j?6q(AcceleratbH"M $8=z 1tBV> a?>4>!;#`a l xtx ltqplp( \l! 'l \Ll:LD,]tl! 'l lti<]l\l! 'l lx 5LXlp&X \l! 'l \ lE D<]/,l) (]tl! 'l lti]\Bl! 'l lSx 5 D `0XL xl\` l xtx ltqplp( \l! 'l \Ll:LD,]tl! 'l lti<]l\l! 'l lx 5LXlp&X \l! 'l \ lE D<]/,l) (]tl! 'l lti]\Bl! 'l lSx 5 T `0XL xl\,hx x hcX]/Hx5h\ex x xx x xx x xx x x4$ xhHD $ TzPkz 6'd'tHM @fFM@'4M$@DM@'''4'fTt" $ 4 t  t6T4td 8+}'T'dHM @fFM@'t4M$@''''4'fTt" $ 4 t  t6T4tdT :'d'tHM @fFM@@M@4M$@''''4'fTt" $ 4 t  t6T4td <B}'T'dHM @fFM@'t4M$@''''4'fTt" $ 4 t  t6T4tdT (T$B < tT4tdT|@;`'dtx" $ t x 0 t 4)xt5d@$ xtdXfXx x x5Xx x xx x x$X$ xXXcXx x x5Xx x xx x x$X$ xXx<,hx x hcX]/Hx5h\5 4<$5 xhHL)tx x llt=/txFx x hxL$F txx<,hx x hcX]/Hx5h\5 4<$5 xhHx<,hx x hcX]/Hx5h\5 4<$5 xhH.hx x h(X]pHx5h\x QxD<hx x h(XHN44D x6h4 D D @ DH(DxhH4dxrU p( !I1 YY uyuuJJIKK LaLMqMMyI A! """A\1Y  J  `q N  `1R Q ``QVIJ` Z  `^ !!I``1b9 a f   `1j9  In9 )Jr !9I`qvYzz`zYzz`~   A)  ``QI  9   I  ` I  0`` 0`Q9 a  ) ``I q    `9 q I   A v???___L.hx x h(X]?ZBCDFGPIJKLMNOAQRSTUVWXY[}]^_`ajcdefghi\klmnopqrstuvwxyz{|~</x" $ lxt t h/xtt Qtp'@:`NPPp 6P@'@:`NPPp 6P@'@:`NPPp 6P@'@:`NPPp 6P@'@:`NPPp 6P@'@:`NPPp 6P@00'@(Pp 0  p 6P@ pt Qt'@:`NPP 6P@'@:`NPP 6P@'@:`NPP 6P@00'@(P 0   6P@ cPt t t5Pt t tt t t`<,p$xtP@0 T$  $$ p$ 6 8 : < D F)tx x llt0/tx+'$'4'D@:dNTT 6TD4$ x x x(tx x llt4/tx,Tx x Tcd]/Dx5T\ 6,Tx x Tcd]/Dx5T\N 8,Tx x Tcd]/Dx5T\  :)tx x llt0/tx+'$'4'D@:dNTT 6TD4$ x x x.tx x l>tFT% x5Tx x x4'$'4'D0 *#t!*FT /t6TD4$ x Qx  @t lltJ 8/t   $tx x l>t@x,Tx x Tcd]/Dx5T\@ </Tx x TDd]@  Then End If End If0 Else@b End If: If oLeiste.NameLocal = "Druck Ersatzmen" Then4 For Each oButton In oLeiste.Controls&T If oButton.Caption = "&Ta x  Q/'vm/_d <<<)L<<<<2<< <$<(<,<0<4<8<<<@PHn@h `@xHx $$`z  x  `pt$X   @x @h x @h @h @h @h  @h @h  hX@h  08p @h 0@X @Php P x 8 P@h @h @h @h @h @h @h p X@H @ p @h hX@h @h @h @h  @8 p 8 @h *`P k##. . P@h h` @@h  @ (  @ @h @h @h x  p @h @h p@h @h @h #Tastenkombination Strg + P zuweisen%Tastenkombination wieder zurcksetzen@h @ 8p@h @h @p rgeisenH@h @ wiedksetzen@h @h @h @h @h @h @h @h @h @h @h @h @h @h @h @h `t  0  @h @ ^&`t @hp `t@l |`th`t@h @d @T @P `t`t`t`t`t@L @ < x`t@8, @ 8Jx8@ g@p ^&`8 h8 (P @ h 8h P`@<t @d 8  p `x @h 0X @H `t@`t0(8 @( `tx `t`t@`t`t ! `t`t`t!P `t`t!  0!`t`t`t! `t8" " !`t`t`t# @ @ @  tX `r # `t8# `t$p# g `t#l  ##h `t`t $d `t`tP$$"`t$` $`t$\O 8$`%#$H%P%%Z `t%z`t%(l %n $&""8#P%`'%%%l %(( 0 ( &p(X p(@T @R @P '(L @< 8(8 MEQ " # 0stenkombination Strg + P zuweisen" Then15O oButton.Caption = "&Tastenkombination wieder entfernen"X d!En End If Exit Foras Next oButtonzuweish Dim oKey As Word.KeyBindingEnd Sub Debug.Print oKey.KeyCategoryne A@t L ElseIf Application.CommandBars.ActionControl.Caption = KeyEntfernen Then . Set oKey = Application.FindKey(lngKey)ande tmpZ = k End If* '**** BAUSTELLE!!! Exit For,O oButton.Caption = "&Tastenkombination wieder entfernen"8T If oButton.Caption = "&Tastenkombination Strg + P zuweisen" Then4 For Each oButton In oLeiste.ControlsL Stop: If oLeiste.NameLocal = "Druck Ersatzmen" Then  $J %B@8ic End If$$ Dim oButton As CommandBarControll B@$ckmenu Next k lp _ Application.KeyBindings.Add wdKeyCategoryMacro, "DruckmenueAufrufen", wdKeyControl + wdKeyP End Function I Application.CommandBars.ActionControl.Caption = KeyEinrichten End If Dim lngKey As Longer z9 Set oKey = Application.FindKey(wdKeyControl + wdKeyP) End If Dim oKey As Word.KeyBindingContro = Dialogs(wdDialogToolsCustomizeKeyboard).Display 1kmen End If3 Application.CustomizationContext = ThisDocument( H xZZ n@ n'n n. Aend n++ n FTestA@g n . Zustand n+ n n  ( n n . Drucker n+ strArr(0, 1) = "gendert" strArr(1, 0) = "2. Drucker"" strArr(1, 1) = "auch gendert" strArr(2, 0) = "3. Dr." strArr(2, 1) = "auch 3."3 Debug.Print strArr(0, 0) & vbTab & strArr(0, 1)3 Debug.Print strArr(1, 0) & vbTab & strArr(1, 1)3 Debug.Print strArr(2, 0) & vbTab & strArr(2, 1)l5Der 1. Wert ist die Spalte (!), der 2. Wert die ZeileX n > n$ > n$ > n$x n$FJaA@gl`l@ fr Testzwecke wichtigD ElseZZ+ fr die zwischengespeicherten DruckdateienZZ  % !' WScript.Shell$.  !!' $'   $',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@h8h0.l End Ifu .l Else DoEvents End If D:\test.datA@End SubEnd SubPublic bDruckeinst As Booleanlung End IfI Const KeyEinrichten As String = "Tastenkombination Strg + P zuweisen"K Const KeyEntfernen As String = "Tastenkombination wieder zurcksetzen"1" lngKey = wdKeyControl + wdKeyP3 Application.CustomizationContext = ThisDocumentellungI If Application.CommandBars.ActionControl.Caption = KeyEinrichten Then. Set oKey = Application.FindKey(lngKey)FuP If oKey.KeyCategory = -1 Or oKey.KeyCategory = wdKeyCategoryCommand Then/nX Application.KeyBindings.Add wdKeyCategoryMacro, "DruckmenueAufrufen", lngKeyB@H Application.CommandBars.ActionControl.Caption = KeyEntfernenn  MsgBox "Die Tastenkombination [Strg] + [P] ist einem anderen Makro zugeordnet." &' vbCrLf & "Sie knnen ber das Men Extras - Anpassen eine andere Tastenkombination zuweisen."5 If oKey.KeyCategory = wdKeyCategoryMacro Then$ I Application.FindKey(BuildKeyCode(wdKeyControl, wdKeyP)).ClearI Application.CommandBars.ActionControl.Caption = KeyEinrichtenM MsgBox "Die Tastenkombination [Strg] + [P] ist nicht zugewiesen."uexe Dim tmpZ As Integerei Dim k As Integercker sK tmpZ = -1 'Dummywert, falls der Drucker im Array nicht enthalten istste : For k = LBound(arrDrucker, 2) To UBound(arrDrucker, 2) If bDruckeinst Theng.* If arrDrucker(1, i) <> "" Then Debug.Print tmp'& tmp = arrDrucker(2, i)Ch Kill (tmp) Next iEnd Sub ShellNeu = "rundll32.exe printui.dll,PrintUIEntry /Sr /n" & Chr(34) & strDrucker & Chr(34) & " /a " & Chr(34) & strDatei & Chr(34)32.e oShell.Run ShellNeu, 1, TrueCh Set oShell = Nothing " Kill (strDatei) & ChrSub AutoClose() lX !np End If End If'. End If End If frmDruckmenue.Showt ab! bZweiterAufruf = True Else frmDruckmenue.Show( Ah0a B8ruckmeh ReDim arrDrucker(2, 0) ReDim arrDrucker(2, 0)XAddIn bereits geladen !F'D D %H!J Dim strAddIn As StringAhXAddIn bereits entladenh$ strAddIn = ThisDocument.FullNameits en: If Application.AddIns(strAddIn).Installed = False Then .x B@@'.a B8 B@@hxhp,' Aufrumen: Lschen der Einstellungsdateien'der Be If Not bZweiterAufruf Then 'damit das Activate erst ab dem zweiten Aufruf erzwungen wird- Call frmDruckmenue.PseudoActivate frmDruckmenue.Showx !4$204in VBA 5 muss das Activate-Ereignis erzwungen werdend'fr Testzwecke: falls das AddIn zugleich geladen war, drfen die Dateien noch nicht gelscht werden(Z#Tastenkombination Strg + P zuweisen@ Z%Tastenkombination wieder zurcksetzenH ZP Zh   'p  ( !,!<!l > p %. ! ! ^ &DruckmenueAufrufen p !XB@L @ !,!<(lapFDie Tastenkombination [Strg] + [P] ist einem anderen Makro zugeordnet. RSie knnen ber das Men Extras - Anpassen eine andere Tastenkombination zuweisen.A@h !,!<!l @b p %. ! &  $J %B@8 x$8B@r > !,!<(la8Die Tastenkombination [Strg] + [P] ist nicht zugewiesen.A@ > !,!<(lhhlhX B@@ B@@ !N!V(X !R!V(Xl0#(##ZSub AutoExit()te !4$204in VBA 5 muss das Activate-Ereignis erzwungen werden#& If oAddIn.Name = strAddIn Then!H End If Exit For Exit For' If Not bDone Then End IfEnd Sub#$  If bDruckeinst ThenR Call frmDruckmenue.DruckerEinstellungenEinlesen(intEinst:=2, bAktiv:=True)1 ActiveDocument.PrintOut Background:=FalseR Call frmDruckmenue.DruckerEinstellungenEinlesen(intEinst:=1, bAktiv:=True) If bDruckeinst Thenn! Call DruckdateienLoeschen1 ActiveDocument.PrintOut Background:=False Dim strAddIn As String Dim oAddIn As AddIn Dim bDone As Boolean|G strAddIn = ThisDocument.NameF) For Each oAddIn In Application.AddIns, If oAddIn.Installed = False Then# If bDruckeinst Then- Call DruckdateienLoeschennt bDone = True߷sX0 End If bDone = True End If1# Next oAddIn If bDruckeinst Then@% Call DruckdateienLoeschen8Function PosInArr(ByVal strDrucker As String) As Integer?' liefert die Position (Zeile) zurck, in der der Drucker stehtzG' liefert -1 zurck, wenn der Drucker im Array noch nicht enthalten ist- If arrDrucker(0, k) = strDrucker Thenα Exit ForN"$ PosInArr = tmpZjWSub DruckdateienLoeschen() Dim i As Integer8? Dim tmp As String Dim fso8 Set fso = CreateObject("Scripting.FileSystemObject")g> For i = LBound(arrDrucker, 2) To UBound(arrDrucker, 2)*& tmp = arrDrucker(1, i){+ If fso.FileExists(tmp) ThenV Kill (tmp) End If+* If arrDrucker(2, i) <> "" Then Debug.Print tmp+ If fso.FileExists(tmp) ThenQ bDruckeinst = FalseEl+X + !Fug+ǴAttribute VB_Name = "DruckmenueErsatz" Option Explicit Sub Aufrufen()6 Static bZweiter@ As Boolean JIf Docusts.Count0 Thesit l /xNot [.%Yfrm.Show = TrueqEls"LV`al(Ap{go@n.Vers) P8P'in VBA 5 muss das Activate-Ereignis erzwungiwerde3ACall ZP`seudo$_End Ifu FunKSnangabeOK(By9@ strEi)gTj @FaL$Select Case Left(q, 1<@Chr(45), y59 YE~x5 B;!$Righ$NK@$@InStr(1,']AD &ED, vbBinaryCompare) > C7JI24 26e6,GtCZ>Tastenkomb&!_ ,@g_P_ZusɓConst Key^richA^`:"n a + P z aG ntfern|] wieder rcksetzen Dim oWord6.`@d`lngDLonga$= wd trol@P))Customiz✁exThisIFommandBars.Aon.CaF=-SetC= Fina(C/!$!#Cgory6-1 Or #! ia·C?8aI@'d. dd)DMacro,E", 7 ~%I' !MsgBoxie oV [V]@?[P] i ^einem 5erTMakro`(ge@&net4.">_ @vbCrLf"SPkn1.b,nMentrPo- Anpas6  09.t/ q[U@&&-&V8&25&&&&z$B _$,ey(Buil8de(Son ,%P))@.ClearDialogs*TГs:e board).Display 1,_':Qo'o'hW n'n!V&O!i DlD[x $!X1x ltx2_b"$ _4px"$ x lp /px"$ "$c $ px hpzhX  XH=H-X X/85XeH;( (/5(\opz5HhX X=-X X/85X;( (/5(\pz5Mh-X X;( ((8]p6X(\0pzMh;X X-( ((8]p6X(\pzpz0Hh X(Pqt/" V lp"$ p )lpKdhlp"$ p l $ h ld0/d)plh0l'Tltp"$ p (Qlxp5T-Px 4lPLx 4lLsJh'<'Tltlp"$ p l 8)plh6T<=hlp"$ p l $ h )plh4'','<*#d*FT /d6T<,Kdhlp"$ p l $ h ld0/d)plh0l'Tltp"$ p (Qlxp5TPx 4lP!bP','PagesPageType;XCollateStrbSeiten>MsgBoxR vbInformationnSetFocustxtSeiten_ChangePtxtSeiten_KeyPressǺtk_B_var_KeyPress lblErklaerung` vbExclamation(SeitenangabeOK strEingabeN Seitenangabe/_B_var_SeitenangabehTest4_B_var_FunctionO _B_var_LeftQChrK~ _B_var_Chr\;bTempjRight  _B_var_Right9OK^ _B_var_OK3vbCrLflbl ForeColorvbRedG/vbBinaryCompare̝ _B_var_WithYSelStartZ SelLengthChangevb_vbNormal-vbBlackErsatzDruckmenue DruckErsatzmenuey cboDrucker$y _B_var_On6 strComputer_B_var_strComputerD objWMIServices_B_var_objWMIService}GcolItemsq/objItemT _B_var_Set GetObjectz ExecQueryD _B_var_ForjLAddItem  ActivePrinterpCimk~ _B_var_Cim|;strStandarddrucker Probehalter[ ListIndexQList* vbTextCompare QPrinterҩDoNotSetAsSysDefaultExecuteYErroClearNumber- Description vbTabc9Status+Location- CollectionW _B_var_TypeOfے _B_var_TypeseTypeNamePortname-> PrinterStateu PrinterStatus^= WorkOfflineR^ Availability1 fraDruckerx?lblNamelblOrtlblPortywPort _B_var_Port._B_var_Preserve}strPort1txtPortcboDrucker_ChangelstPort}Captionxi` _B_var_ReDim_B_var_strPort% lblVersionIsObjectVisible IsNothing3_B_var_IsNothingxcboj} _B_var_cbo{:Ed] _B_var_Ed ListCount6nur _B_var_nurx SelectionZMoveDown̝Unit wdParagraphHCount0vExtend?wdExtenddwdPrintSelection# SpinButton18 spnAnzahlspnAnzahl_SpinUpHSpinUppspnAnzahl_SpinDown\SpinDownListBox1ListBox2 bMarkiertc optMarkierung)wdSelectionNormalREnabled۪Hide9zRechnungsdruckHx FilePrintIctDuplexdrucker Altdrucker)/ComputeStatistics/wdStatisticPages frmDuckmenueQ_B_var_frmDuckmenueR frmDruckmenueAttachedTemplatect\ctRctRechnungsvorlage? a^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Programme\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation*\G{A738E4D6-3F45-455F-AC35-FCB5DF5AA640}#2.0#0#C:\WINNT\system32\MSForms.TWD#Microsoft Forms 2.0 Object Library *\G{484FDC0E-4749-4BF6-AB91-B4112E29C1BD}#2.0#0#C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\Programme\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library.KThisDocument 54bf82773*DȽXXfrmDruckmenue 1a4bf93078*D8zo DruckmenueErsatz 1b4bf930f8*DvX8_8XxjPNIo71I;!߿H搘HMC<%9. -~ӶHz38~kA8Xp As B.Debug=DimcInThenTo Wordk VBAWin16~Win32MacProjekt1A stdole` MSFormsC ThisDocument< _EvaluateNormal(OfficeuProject-Documentj UserForm1)UserFormN lblAnzahl) txtAnzahl;frmSeitenbereichVoptAlles|optAktuelleSeite frmExemplarez optSeiten08TextBox1S cmdOptionencmdOK' cmdAbbrechen cmdOptionen_ClickDialogsClickItemzwdDialogFilePrintSetup@ShowcmdAbbrechen_Click(Modul1(DruckmenueAufrufen _B_var_SubwdDialog7;wdDialogFilePrintLwdDialogToolsOptionPrint_B_var_wdDialogToolsOptionPrintdwd_wdDialogToolsOptionsPrintxUserForm_ClickUserForm_QueryCloseCancel CloseMode؟ QueryCloseT _B_var_IfPvbFormControlMenu~ cmdOK_Click intAnzahlMbAlles&bAktuell1 strSeiten~$ ValidateSelf ActiveDocument\PrintOut.wdPrintAllDocumentOwdPrintAllPages> PrintOutFalse Background.Range Copies? PrintToFileofrmExemplare_Click txtSeitentxtAnzahl_ChangeN$ Retu_B_var_Constg _B_var_StringӊstrRechVorlageOptionsDefaultFilePathRwdUserTemplatesPath PathSeparator5strRechmyFormTestKeyoKey KeyBindingKFindKeyo wdKeyCtrlaWdKeydwdKeyPʹ KeyCategoryX_B_var_wdKeyCtrlj wdKeyControlvbKey  vbKeyControl Customization_B_var_CustomizationAppl9CustomDictionariesCustom7CustomizationContext΀NormalTemplateqoptAlles_ClickctxtoptAktuelleSeite_ClickzoptoptMarkierung_Click@fraSeitenbereich_Verhaltenfra _B_var_CallDie _B_var_Die@TastenkombinationZuweisenp vbKeyCtrlX`vbKeyP_B_var_vbKeyCtrli AddAddress#wdKeyCategoryMacroBDruckwW!(Tastenkombination_Strg_P_Zuweisene CommandBars oLeistewCommO CommandBar NameLocalControlsKoButton$CommandBarControlP ActionControldh KeyEinrichtenq@ KeyEntfernen Leistentext _B_var_ElseIfqmwdKeyCategoryNilnxKateڢ BuildKeyCodepAddrKeyCategoryMacro6_B_var_KeyCategoryMacro09_B_var_KeyCategory9wdKeyKeyCategoryMacro_B_var_wdKeyKeyCategoryMacro"1 KeyBindingsm2AddwdKeyCategoryMacroKeyCate_PwdKeyCategoryCommand~~Kategoryaof UserFormsK_B_var_UserForm1 StringKeystrKeywdKeyAltwdKeyF12lngKey DisplaypUpdatewdDialogToolsCustomizeKeyboard?cmdEigenschaftencmdEigenschaften_ClickPShellrun#oShell1U CreateObjectRun_ProbestrArr@ bDruckeinstA strDruckerstrDateiSShellNeuvKillAufheben|ShellAltG _B_var_LBound _B_var_UBounddkb_B_var_i  _B_var_LongjaPosInArrtmpZ strDruckArrX arrDrucker1[arrDru9oDruckerPosstrPfadf oDateiname strDateiname  strateinameSh_ ShellAnzeigenShellSpeichernHUserForm_ActivateZsActivate|PosIn ShellEinlesenarrDruckolIsEmpty _B_var_strPfadiIsNullDeubgM _B_var_Deubgx_B_var_j AutoExecAutoOpen*DruckerEinstellungenEinlesentDruckerE#DruckerEinstellungenAusgangszustands stellt5 _B_var_stelltސstrEinstTintEinstC FilePrintDefaultbAktivDruckdateienLoeschenAXarr utmp Killertest_fsoCrea& FileExistsUserForm_TerminatelD TerminateyLAutoExit_B_var_intEinst  Textbausteine MsgFensterfrmDummyuTestRd _B_var_Error)Tag&UserForm_MouseDownfButtonShiftXoYlUserForm_MouseMovei MouseDowns MouseMovevbDruckeg=bDrucVbDruck _B_var_bAktivEigenesActivateclEi] bErsterAufrufObZweiterAufruf EigenesyValVersion_B_var_EigenesActivateUPseudoActivateL`Pseudo9o PseudoAufruf";PseuV AutoCloseTextHervorhebenstrAddInFullNameОAddIns InstalledlblItem~(cboItemP lblPageType cboPageType4y chkSortierenFontUSizeEinalig6 frmDruckmenuintItem intPageType bCollatencboItem_Change[^chkD~ lblOrt_Click} lblName_ClickDropDowncboDrucker_Click8\ AcceleratortxtAnzahl_KeyDownKeyCodeKeyDown.a vbKeyDown vbKeyUp cboItem_ClickqB cboItem_Enter,EntercboDrucker_EntersFcboPageType_Change}3cboPageType_Enter4cboItem_KeyDown} bEreigStart ActiveControly ReturnBooleanecboDrucker_Exit٤cboPageType_KeyDown $cboDrucker_KeyDownO DataObject ReturnEffect"HlblName_BeforeDragOvercData; DragStateEffect| spinAnzahlW_B_var_spinAnzahltxtAnzahl_KeyUpKeyUpMSendKeysN LayoutEffectOlcoAddInAddInexbDoneEimgSort0 imgUnsortchkSortieren_Click# imgSort_ClickimgUnsort_Click'Risikoy txtDrucker8 Documentsl   6  Z= ~ .K %J< 9st dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE Automation/MSFo@rms>SFErms/z pFA738E4D6-3F45-455F-AC35-FCB5DF5`AA640F3.TWD#Micr@osoft = ` Object LibraryG9P0P484FDC0E-4749-4BF6-AB91-B4112E@29C1BDPDOKUME~1\@ADMINILOKALATem@p\VBE\E-EXg-.E .`M }Offi c}Ozfi*c}012DF8D04C-5BFA-101B -BDE5}AA|421Programme\U\MSO970.DLL^ 8.0R^Thi sDocutN2@0Th@5sD@cuQenHB1X,B,BȽ*"B+BXfrmB2@ fD@juTku@WOzo.#("o#G2, E`sa` zo_ v!arU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ FPrinter DoNotSetAsSysDefault F#=h8+3q1G?,2qL1q Fp F VBA332.DLL `  +rundll32.exe printui.dll,PrintUIEntry /e /n q 0 WScript.ShellDruckmenueAufrufenSeitenangabeOK !Tastenkombination_Strg_P_ZuweisenProbe FilePrintFilePrintDefaultAutoExecAutoOpenAutoExit  Dr_Alt_ .dat ,rundll32.exe printui.dll,PrintUIEntry /Ss /n  /a Run Dr_Neu_ V `CҋB `ҋB `  Activate Initialize 1u F . r x winmgmts:\\ \root\cimv2 2 ƏYl| Select * from Win32_Printer ExecQueryNamePortname Abbrechen S P<>8N!E"j Initialiize 8Bitte geben Sie die Anzahl der zu druckenden Seiten ein! -Bitte geben Sie die zu druckenden Seiten ein! Die Seitenangabe ist ungltig.   Bitte versuchen Sie es erneut. DruckmenueAufrufen F~}=EMH ,rundll32.exe printui.dll,PrintUIEntry /Sr /n Scripting.FileSystemObject FileExists   Terminate i  k  F F #Tastenkombination Strg + P zuweisen F %Tastenkombination wieder zurcksetzen% FDie Tastenkombination [Strg] + [P] ist einem anderen Makro zugeordnet.+ RSie knnen ber das Men Extras - Anpassen eine andere Tastenkombination zuweisen.Yp ̂JI&!2phaF8JQ*K#{NVb @?B~4Y)YsC:/"& 8Die Tastenkombination [Strg] + [P] ist nicht zugewiesen. Test . Drucker . Zustand . Aend  `]Aw-MpJ UserForm1frmDummyb^Mױ5c8>eCN''y[S)vnJh)0LE@i?=ANCnuJNb H.8TE*j]gT /XU!B^dA" IO>*UT\ViLRf +h @D   JBkZWDhJDMzߑ|9=L++TestR  0BlqdB2 /.4HzzKcBOkj 1 @Dr35ڊ B4W<  ofd_ށqDyK(K/f_^f$PA(On;(Ni2Jn2<$*CӵM_ԽmH}lr-+'AP`z 38UserForm_MouseDownUserForm_MouseMove @D K)^rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+ )rY\BnQ{ a Qa )Uhoz!Az{q 1a)^ XIyI?a I\AP 9a!  ThisDocument frmDruckmenueDruckmenueErsatzDruckErsatzmenueF?C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA332.dllVBA Y  x F 0C:\Programme\Microsoft Office\Office\MSWORD8.OLBWord q  0FC:\WINNT\system32\stdole2.tlbstdole y8E?_E5Z@C:\WINNT\system32\MSForms.TWDMSForms aA.E .`M OHIGK.) 2C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\VBE\MSForms.EXD iAL-[DR .C:\Programme\Microsoft Office\Office\MSO97.DLLOffice Yk FRS@==2 F$ߠͿI@VHh FDocument @0%fB3  %=Nێ,eSTBaT`|_J)R}<L^"-?@ lblAnzahl!-6S` ҋB ` txtAnzahl?F`frmSeitenbereichRҋB `optAllesoptAktuelleSeite frmExemplare optSeiten lblVersion{lFWJO cmdOptionencmdOK cmdAbbrechen2ҋB ` cboDrucker txtSeiten lblErklaerung fraDruckerlblNamelblOrtlblPortoym'v spnAnzahl optMarkierungcmdEigenschaftenȏ[qJ eUserForm!C09)J&^ F3Dynamic cboDrucker_ChangecmdAbbrechen_ClickcmdEigenschaften_Click cmdOK_ClickcmdOptionen_ClickoptAktuelleSeite_ClickfraSeitenbereich_VerhaltenoptAlles_ClickoptMarkierung_ClickspnAnzahl_SpinDownspnAnzahl_SpinUptxtAnzahl_KeyPressp#ttxtSeiten_KeyPressUserForm_ActivateUserForm_InitializeUserForm_QueryClose ValidateSelfPosInArrDruckerEinstellungenEinlesenDruckdateienLoeschenUserForm_Terminate $$@DHPB3ҋB `Yl| SchlieenďYl| F F   Aus ANkVpHL D 3ǬF6l0۠^HmyJÕXE%݂jYNBWC ,-DHA~ 6 @Dc  C|hLU>5ϟ]jGzũM4zEX O?XzN?$%$/Q FNV?JaU@+ 5 70 @DssFۺG랄bɞa H쯣p]6%{6t@hE-}{F7@6%oiIoK!Љ3=INn i9h   @rᭉCt Bʶ^,I/i/h7ڼIDZ w$zk!؂@n;pQAKGl#Lo- ߾@Ekw5w ; @DObje }3Hu~XrxPi@/9j\ HJtEtAm Y< EigenesActivate @D h E XhnM> @ƪCHT I>U# @Div*YLW #6ŝ}z΂OO\Ʀ9Hn @Di3"Nj!u2F]I CiPseudoActivate @Des e  N?o#D$6# 2 ĨC77}o *HUdDo9 Jj:4' v-BlCxHq6KO$}G A 8Ž@_Яi NO/im @Ds e  AutoClose TUIBY]B[2UBu B @D  AutoExit AutoClose^ܩ\WF !T` BF69 F~ F AddIn nicht installiert AddIn bereits geladen AddIn bereits entladen߾ЙFAEioq7#Eg6Z{| QFX |)z˭D;u{$v@~FA3Ս 1G @DEL p! Jj3pNV֩l";\I qq7JQԾ[UxM63JF"mQY lblItemcboItem cboPageType[JAǏ5 YIXBҋB ` chkSortieren lblPageType @DnS  Dokument Dokumenteigenschaften Kommentare Formatvorlagen;OkIi3 Z AutoText-Eintrge Tastenbelegung"fOex|Qc=E`?O]N Alle Seiten im Bereich Ungerade Seiten Gerade SeitenL1A $|G*<[ϰ,G8dOh7L~uZFO oOiNN޻Ci"0{-BK`]%1Fb} D=FXVpFQEi|C qW0 txtSeiten_Change @L.tCCW;A!>j, !|QAٙ&̰F )mN:#f @L \vhnB7\@ M lc]Be\;^ZHV͍iLf".EP KpO@Ák5DSE]F|^8M|# ] txtAnzahl_KeyDown @Lbj aFDHݯL\@>D]vCK`%@2cDwcc;ҺMbSņfl@{%Ia5NlVYhy+=vjRETov3<@u%ag _  8Nx! &I0Ye GAm[QZzxSK :[CHKh !ah  cboItem_Click @Lp 4̺KYmCj+NU-XszK<'D%EF:$R@#ÁE?WR b  @L  $+O*4];k$A\SJ58di^H"XNqE d8 cboItem_Enter @Lor ]خKBC.䎌 BgpF %B ED&{~sD1Iep&f?A42_ epcboDrucker_EntercboPageType_Enter @L  ےKIuBVmSͩ @LFAX0A;) M9BoZж< CEk| dsGsJ8 uOgWD9 1hcboItem_KeyDown)L;G3+IJ2O n2w?3*YI=#\MCm@C} _F~6 yidpECI[FL6D!_J [sAc!DgOJuqqitA%Bv! t j @LovS;,F6=b DropDown   qeL1:9%k I#wf=`|NQn- q06D۝BF_ =L31)` lcboDrucker_Exitq#t @Lc$cQ-BΖ'a1?H  ckt6=K#ݓʙZDL$L Y4 mD>�oH5Ąl@ Jv\&CPAAQ ocboDrucker_KeyDowncboPageType_KeyDown Jetzt !+z@0E&cy.JB(ź*moNJ7<'ұKAXb|kK4Jhs q88oӬR@; x- ri'-ַD. :COi=$ݧH  69^BTH7n^Pcc}OnFu/F,5 Yt @L(2 W 8 {DOWN} {UP}%JBr*&oDuȃj{/A..LwM  XHKbeqf!J×KK; @Lon_%cO@nH2'tK0ƏOh؏ɄOEA"۬   V AXɁpN_& NicHX g)BKժE8ܡ ix(T4x.H5"t,׿c,RMO %'Xr!CNE?Wq7꿢.Igc9M7BE9myfh :HSfy2ٖ1E9DZ y`YL&i eimgSort imgUnsortchkSortieren_Click imgSort_ClickimgUnsort_Click @L yVdiBtV:L! YJ 2CUTI7M̽d6x-mFETISЯ,@N)H*t+ |8 @r)LHn.T)Bt|CP.duȾ^tHzxaO- y} @& D wiRisiko3n1ItR|/I!@ ~$ϱC?a*r(ymE)"GAzMYİ=vN *j>?6H@zhL6*x5ķ txtDrucker\BRh @ @޾VFKEl F`    !  9   ( I 8 H X h  x 1  KeyAsciiCancel CloseMode strDruckerintEinstbAktiv strEingabe 9/  0  1  4 ButtonShiftXY 16  8  9  9;  < ( 1A 8 C H yF X YG h I x I IO  )Q  !S  T  W  Y  Q[  ] KeyCode `  Ia ( b 8 1d H e X Yh h i x j  l  Qm 1o  1q  r  t  x  z  Yz | ( } 8 ~ H 1 Xs$  (l}9>#R KQDBTahoma ,#frmSeitenbereichE( #frmExemplareE( 74cmdOKar:5%, ;<cmdAbfrmDruckmenue ָM GMfGoi03 n`` ָM ָMbrechen!/, 2X lblVersionenk( @cmdOptionenn(2<lblItem:, 2<lblPageTypen$!4cboItem: J( "4cboPageTypen5%J( &# fraDruckeren(OK uTahomat( Abbrechene. uTahomat8(& Schreibbro Richter, 2010, Vers. 1.4uTahomat ( OOptionen.... uTahomat(DDrucken:DX5Tahoman:(rDrucken:X5Tahoman:@{5Tahoman:@{5Tahoman:@H   }1SeitenbereichnR KQDBTahoma$fo(CompObjpi06# n`` ָM ָMToptAlles,\optAktuelleSeite, 2ToptSeitenleSE( 4txtSeitenleS 0 2lblErklaerungite , ToptMarkierungite4FA {0Alles5Tahoma<Fkp {0Aktuelle Seiten5Tahoma4FS{0Seiten:5TahomaH,g ,5Tahoma|(lEinzelseiten mssen durch Semikola und Seitenbereiche durch Bindestriche getrennt werden, wie z.B.: 1;3;5-12S#5Tahoma4F a0Markierungei5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qfyo CompObjpi38! n`` ָM ָM<H  % }Exemplareme.R KQDBTahoma, 2<lblAnzahlrun ( 8txtAnzahlrun], 2spnAnzahlrun( XchkSortieren1"$$: imgSort"( %e imgUnsortren"(zAnzahl:s5Tahoma:s H, ,5Tahoma:s,8F ta0Sortierenme.5Tahoma C R KQltGIF87avBw,vB``ЇxC4x``ЇxC\`ЇxЇxC]L3аC4x3 @ HAYAaа dCY7\CYNCYVTCY` St3S  Z/S SrGuatsfuneritretN3SNLj TC`R҆C@W C WD+SW  SW 4WrGuatsfuneBx8BC\B8SBH4x8C4x4x8C\4Wx8<|@@ HAYAax8 dCY7|CYNCYVlCY`|@iD_3SNmcJ@iR@iJj YXLaNTTYT҇$ ҆(҇$ FH*\ȰÇ#JHŋ3jȱǏ CIɓ(S\9˗0c$)Mɳ'O4} dΡHy4Х%: ԩ;UiЮ?q ulVfMiZn٢5۶#WuͻT:QpR #E|QP?J70ŌY^/&Z'df5mwj]f=SSU7C?yR}el?_t.G&yldޜgZVN>:{rg֦[32_MVf_oG] z!^~Ut!7"} w!A*6c}X/w؏ z8daHx`>rUQ"NxcF&yqfTYa]:Qi&ybr9XLFguB8|eaj}8V*ՀP2E,e馜v駠*ꨤQ@; C R KQlt9GIF87avBw,vB``ЇxC4x``ЇxC\`ЇxЇxC]L3аC4x3 @ HAYAaа dCY7\CYNCYVTCY` Tt3T  Z/T TrGuatsfuneritretN3TNLj TC`RҩC@W C WD+TW  TW 4WrGuatsfuneBx8BC\B8TBH4x8C4x4x8C\4Wx8<|@@ HAYAax8 dCY7|CYNCYVlCY`|@iD_3TNmcJ@iR@iJj YXLaNTTYTҩ0 ҩ(ҩ0 FH*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sϟ@ )hQFӧPBSUT6ʕA֋[Z0بd=4-ŵlV;u.]n'e޳}அ 暘⫍>knd2۶2 2YҦ%PtӥAq6^qe&Ywl|y[8aJk