ࡱ> (qbjbjt+t+AA]888hhhh  hg2hhhhhGGG@ ......$FR8GCGGGRGhhhGGGG8h8h@ LZG@ GG/   8@ h mNhhG8  . A!"#$n%qbjbjt+t+AA]{{{{{  2{ [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  ?ich<D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl.dotich<D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl.dotich<D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl.dotich<D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl.dotich<D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl.dotich^C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\AutoWiederherstellen-Speicherung von druckersatzauswahl.asdich^C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\AutoWiederherstellen-Speicherung von druckersatzauswahl.asdich^C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\AutoWiederherstellen-Speicherung von druckersatzauswahl.asdich=D:\Nora\VBA-Module\DruckenErsatz\V1_4\druckersatzauswahl2.dotich<D:\Nora\VBA-Module\DruckenErsatz\V1_5\druckersatzauswahl.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?  V@  VA  VB   VC   Druck ErsatzmenDruck Ersatzmenb4+HHHHHHHH0(Druck ErsatzmenDruckmenue Aufrufen#DruckmenueErsatz.DruckmenueAufrufen (#Tastenkombination Strg + P zuweisen$Tastenkombination_ Strg_ P_ Zuweisen2DruckmenueErsatz.Tastenkombination_Strg_P_Zuweisen@( SofortdruckFile Print Default!DruckmenueErsatz.FilePrintDefault +DruckErsatzmenue.DruckmenueErsatz.AutoClose4DruckErsatzmenue.DruckmenueErsatz.DruckmenueAufrufenCDruckErsatzmenue.DruckmenueErsatz.Tastenkombination_Strg_P_Zuweisen2DruckErsatzmenue.DruckmenueErsatz.FilePrintDefault*DruckErsatzmenue.DruckmenueErsatz.AutoExit6DruckErsatzmenue.DruckmenueErsatz.DruckdateienLoeschen<*DRUCKERSATZMENUE.DRUCKMENUEERSATZ.AUTOEXIT?+DRUCKERSATZMENUE.DRUCKMENUEERSATZ.AUTOCLOSE@2DRUCKERSATZMENUE.DRUCKMENUEERSATZ.FILEPRINTDEFAULTA4DRUCKERSATZMENUE.DRUCKMENUEERSATZ.DRUCKMENUEAUFRUFENB6DRUCKERSATZMENUE.DRUCKMENUEERSATZ.DRUCKDATEIENLOESCHENCCDRUCKERSATZMENUE.DRUCKMENUEERSATZ.TASTENKOMBINATION_STRG_P_ZUWEISEN@h`@GzTimes New Roman5Symbol3& zArial?5 zCourier New;Wingdings"0Rpc'0d@P blabblabichich [4@4StandardCJ OJPJQJBA@BAbsatz-Standardschriftart@`$@GzOh+'0t  0 < HT\dl blabblab labichchchdruckersatzauswahl.dotich5hMicrosoft Word 8.0d@|@̉]q@![N՜.+,D՜.+,8 hp  auchb1  blabblab Titel 6> _PID_GUIDAN{B7A96455-DA26-448B-A99F-1EDD614FA187}fo(CompObjpi06# n``mNmN74cmdOKan:5%k, ;<cmdAbbrechen!/k( #fraDruckeren, 2X lblVersionenk( @cmdOptionennk(2<lblItem:, 2<lblPageTypen$!4cboItem: ( "4cboPageTypen5%cdefghijklmnop Microsoft Forms 2.0 FormEmbDocumentSummaryInformation8Macros'%bsmNmNVBA& bsmN0mNThisDocument   !"#$&'*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxyz{}~<$cQ-BΖ F'a1?H x6Ƚ#'a1?H $cQ-BΖX4(SLSS6"N0{00020906-0000-0000-C000-000000000046}9K"*\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 6i__SRP_5 F:rU @prU $`4)`   $i`4`  4` $)`$i` $`$$`(6A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\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*\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*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#53*\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*#46*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#590($X0 $6i `H`ke, i $J+$($X$B$`hzLke i $$  $P$$$$i X`|kh aZ e(a\ei $dhXr!CNE?Wq7꿢.Igc9M7BE9myfh :HSfyx9myfh :HSfyXr!CNE?W  lRVZ^bfjnrv~z|,SPSSS<4<<<<< <$1<(<0<4<8<<<@"<8<<<@`x@P  `|k`\`t`x,$h1`x`x`x`xi $$$@d "@T `RH2$$$$$,,/,$H/22/ $`x$$$ x#P2$ x&$$02//03 3(3,$ x)$$,$ x#$$$,$,$ xp*  xx*( x@+44X2`2$,$,$ x& x& x& x'P3 x& x($$$ x' x' xP( xp&,$,$ x(0f`؜|kpi 8 8$$$,$$X34 5,$$`x5666$$,$,$ x'`336 x7`@XkX:$$ i x:i $$,$-8h9p9`nPX*,$,$,$ xx&$ ,$ xH+$ $,$H9 <:$$,$,$;1 1,$,$ x&<1 ,$ xH($$$<:<8 8<>A0,8,@,8 ,$,$ 8X<`<i +++, $$$,$i `*h*H=P=,$$&& &,$$,$,$,$,$h:bP P@$ 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`Xu$ke7i :H0HI0$0$HHH` `TkeXE 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 `ȏ\kOeP . !u NO 0$,$ xp< x<,$,$ xx9Pai  N(N8O x(= M x; ux@O x(& uxxO x8 x+ x; x(F,$,$`xH xAMMxg`ПkUed0$,$,$,$`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 I`@tkhae "i !u HW`Y xH x@L ,$,$`xUUa,$ xA uxW,$,$ xF xE x0G xpB uxW xF`xQ`vkXeNi 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,$``Xa!u _(cp`x``L@bL8a,$,$,$h],$,$,$ `](V0Vai ux` ux(]acc($cd($(d($Xd($d($ uxd8,$ uxd,$,$,$e uxd uxXb,$,$i i X($ uxe(,$ uxe,$,$,$ ux8e [x_ xI ,$ 8`Lk!`f ($ uxdf ($ x0L($0$0$ uxe,$,$eHgPg xR``xHke y8Xi ggxHPhA0$ ux8gP,$,$,$,$ ux` uxph,$,$,$ ux@e,$,$ ux_ uxh xR xL ux`b@egj `Xke0 i 0$0$0$ ux8j(,$i ,$ uxh uxj,$,$,$HhjjP! `Xke4 N0k0$`k0$k0$d\4pl@Pnx ,$,$,$,$,$,$,$,$ x8Q x0NPi uxk uxe,$,$,$ uxR xS@t  uxR uxR uxxW,$,$Pk(mjjj@d ,$,$ uxW uxX xTnn",$ x0Q@` uxpl uxm uxxh@t @p  uxhon$pl ux@gxz  ux`jN&(,PR uxk uxh@qx ( uxk(us&o uxh@ph @X  uxR xY uxS xT@pH ,$,$ x](^ x[ uxk,$@(q8 @4 @$  uxxl,$,$,$,$ ux@T x(^\@l ,$,$hqqq@\  xY,$,$,$qkmlk,$,$,$ xb@@vL @t< 8q"xH0$x70fpZHQp  (KC:8 jN0P!`"xgAIi8X`` h 0I(cnqq(snsn o n ux(r@u, (@Xv @v-,$ x0^oopPowwN ,$ uxV x[@ @v T ,$,$ uxU x0],$o@ `Ywx0wwwu uxm@t @p wPxNz@l t@x @xh @X ,$,$,$ xm@H 4>8  xbtx0xHxpv,$,$,$ ux]@yx @t @p $$,$ uxPa xk,$,$ xlyy0{H{{x {ly` {e@\ @L @@|8 @}4 $ x mu uxX{ ux8]( uxv{ ux0|(,$ ux(f(X x.P0/0{x{ }8}~@0 @ ~, @P} @h} @} @P~ ux_ xp@} @} @h~ `{d @  xhq@~ @~ @~ @~x @h @~X @~H p@8 X }n>8hvf^h uxb xj@z @8t @p $,$ xp ux_ lz`@`\  uxh uxr@HL `bpjl,$,$ xj@x< @, @ @ @ @؁ @ @ @ @8 @P @h @| @Ђl ,$ x0n xv@\  xpq@L   xk `T8h @x @t  uxl uxhx@d  uxh ux0r uxyh@z x8u@` T(r`@x @h  uxp uxkh  uxy ux@z@X x`q@z xq0T @x  uxrP uxv ux r@h },$o xpx uxXq@X (z @x @ȉh xz  x xHz xq x`x xr@X(@X @H @x @t &d  x(ȋȊ@x xy@h @X @H @x @8h  xЇ(@ @X @H  8h"@x @Ph @X @H D{`@4 Ph8" @x tP`@d @T @D OhȐx uxv@t @p xz@l @\ ȑX xX@t ^`@p ȑؒ&lNRT@x @t @d @T (@XГ x( @t @p +@,@@l @p\ @L @@< (8 pXЖ vZ\d.@` @(P @@@ @0 @ @ @ @ @ 0i@(? xЖXHЖb NRTX,$X@`0($x(hp`7($Xr(bB8 h(hn hj^`"@x @t 08f&(,@d 08@T @D 08@ș4 @$ 0PlNRT `8$b+_0;1h0X:201x:(x9@@@ @< @X, @p @ @ @ @Л @ @ @ @0 @ @H| @`l @\ @Z x9@X Ȝ_x؞Hx`0Ȟ&4"@x 9@h @X 9@T P`9$@L 9@\ @xL 0R@H< @`, @ @ xY@ S@ `:\pH ؠ ux Ƞpd_@t @p 8fxRz:@l @\ :@L  h@`< :@x, @ :@ o_@С @ ^::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؇ p 0fA08khkt(=HsME6 $@ 8h : ,  ( $ 0 ,"H 2(-,`-- p  ) " ' H . @X  : : (H   " 1 77 7: 7 87H7P7 X7`7 h7Ex7 777 77 2 "x ././ /&h//.Mx/.0/@/P/.  " P1 22 7:7 728 88 8E08 H8X8`8 h8p8  X1 " p0 `11 x8:8 888 88 8E8 899 9 9 1 "6 ,6(686H6P6`6p6 6 "0 ) @ L8 ,h )  x    & @ 8 "   :h8x (Wh!%@RH @  8 @ $PB &*z 6D` *0 &*z6D@**x * &(z6 @  0 ( "p p ,` 4 Lp ( ) p    J4 H>}.P XJX.` >}4# h& x " ; N  "x6 666 6 "6 666 6 " ,  " )0 "H ,H P " ,`  " .h  <P4   3 @  "  3(  3  " 0 31 4 30 (3 x3 1 0 " 8    "/ )//0 / "  N *P -xX    "` * h " *X   H :  p43 P B < &M(6** ` x 0.@  8@5 'H@`  0+@+"X+++++0+ ,  ,"@,,h,0(, , 555  "`  )*(( h B  ( 0 8 @ - -  V  Vh Px5  5 )F+X`px( ,  ,  , 8) <+P    . ^4     $ @0 ,  /-'-- /-'.. (h5   "  T# $$ @p' ""X"`"h"& " "" %"  "  8&"z## "# "&&&z&X' &H&## " "( ( ( "P&  P*P5* -h**`&*0* 0 * *0  0 00 X& 09xphl 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@.' m strCZZZ  0 ! !B@It n@d'nu $vIf !'& i h8Zh  En & !(p >$892Il hhp !!90C@4n h X fAlle< lP' Me.lblPort.Caption = Me.lstPort.Text*Z ` !!*$d !\(l` '&)+der voreingestellte Drucker wird eingelesen\hp !\(x & !B@m32 !Z(xD !%, !(\ !L n+dtems = n 'n.E & ! . Pr !!*$d !\(lMeSelect * from Win32_Printer0 %.es winmgmts:\\  \root\cimv2$. !! h Schlieen !4(l Abbrechen !4(l Re >$8tr92 strPort(i) = " "ta !!90C@4n !4!l Schlieenh : Der Dialog soll sich genauso wie der integrierte benehmenF und den aktuellen Drucker ndern, falls ein anderer ausgewhlt wurde.A Falls nur 1 einziger Drucker in der Liste steht, geht WMI nicht.( Dann gibt es auch keine Druckerauswahl.Zp  Anzahl der KopienZ Flag: das ganze DokumentZH zu druckende SeitenZ Liste der Ports- Gefahrloses Umstellen des aktuellen Druckers44 Der Dialog benimmt sich wie der integrierte Dialog,4 dort ndert sich die Caption des Abbrechen-Buttons," wenn ein Drucker ausgewhlt wurdeF ActivePrinter stellt im Schreibzugriff den Windows-Standarddrucker um" Der Bug ist bekannt, deswegen 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 ZH!Variablen fr den WMI-Dienst I Wenn WMI nicht funktioniert (ist erst seit Windows 2000 default an Bord); funktioniert das Einlesen der installierten Drucker nicht,t(objW5 dann halt nur den voreingestellten Drucker verwendenucke Drucker einlesen Port einlesener.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$l.ZX WScript.Shell$.rS0lP  ri:ZZZZhZ ~ 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 Dr_Alt_ .dat'Z !!' 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 'Zx. $'h !!' @)Z0elZP0hZ/+ fr die zwischengespeicherten Druckdateien  % !'Z 0 Dr_Neu_ .dat'.d.,rundll32.exe printui.dll,PrintUIEntry /Ss /n"$ "$ /a "$ "$'h $'  +0*Druckername an den 1. (0.) Platz schreiben  B@0Alte Einstellungen speichern  B@0Dialog anzeigenst.  +0+Dateiname alte Einst. an 2. Platz schreiben+rundll32.exe printui.dll,PrintUIEntry /e /n"$ "$'Rt,rundll32.exe printui.dll,PrintUIEntry /Ss /n"$ "$ /a "$ "$' Dr_Neu_ .dat'  B@0Neue Einstellungen speichern  B@0Dialog anzeigen 'D WScript.Shell$..d   +0+Dateiname neue Einst. an 3. Platz schreiben,rundll32.exe printui.dll,PrintUIEntry /Ss /n"$ "$ /a "$ "$'  B@0Neue Einstellungen speichern 0$wenn Drucker noch nicht im Array ista0!wenn Drucker bereits im Array ist  +0(Dateiname neue Einst. in Array schreiben,rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'strDat  % !'hell $'rintui  B@r /nZ+ fr die zwischengespeicherten Druckdateien"$l#Zh0Z0  % !'heng n$'d AielZ1Z1Z2 A@ A@ WScript.Shell$.  !!' $' h  $',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@ah!.A@N stellt die Druckereinstellungen wieder her: 1 fr ursprngliche Einstellungenerte 2 fr genderte Einstellungenl8!? stellt die Ausgangs-Druckereinstellungen in Windows wieder herZZZZZZ  % !' WScript.Shell$.  !!' $'   $',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@hh.Z0; n$'= LBou nkerH  Ifh0flaAA n    n$',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@: bAktiv fr nur den Drucker, der in der Combobox aktiv ist n   n$b n$' n D:\test2.datA@%Z  %Scripting.FileSystemObject$.hp)  %hX)x7lH)A8)'a **`***A@BhX* \ bP++*( !&(Ca !n h+++h+ !(+A@lH+l8+ !AuseeeeAN (eeh++8ZA Zhler frs Array+  'en0,h,h,H,0,Avate !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 zHQl08Xl0 !NB@l^l !RB@lbokP0H0l xHQ !B@lhX3P3l3 End If !NB@l If bEreigStart Then Me.cboDrucker.DropDown3'Z !B@l3 xH zHQ !RB@lk3l3 t xH zHQ xHQPk33JetztA@ 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 t xHQ !* ! IQ B@lP6'tk6 zHQ !*H !IQ B@lPX6'tkH6k@6 B@l N!* N! IQ NB@l'tk5 zHQ N!*H N!IQ NB@lP5'tk5k5 R!* R! IQ RB@lPH5'tk85 zHQ R!*H R!IQ RB@lP4'tk4k44Attribute VB_Name = "frmDruckmen ue" Bas0{68FBD20A-A765-4695-B852BC97B40DB6}{3BDD1A4D-2492-443C-A2CA-479A1C2D EB4C} dCr@eatabliFalse Pre declaIdTru "Expose@TemplateDerivCustomizDOption 0licit ' Spe zial- fr Word 97ist Herferh bei einer Reihe$ v(HP ern,die auf den%d4og "allergisch gieren' Schreibbro Nora Richt52009-2010 Dim intAnzahl As Integ@ P ' DdK opien bA@s Boolean ' Flag: das ganze Doku@GbAkptuelB aCe Seitr n usg`ewhl5 b@@9*MarkDt nur mD@WBstr@String9' zu dend*@EQIte>mGQQ D, KomF ...FPageTy$peI' y, eade/unCJeCol JWpsort…{6PY() 6LTeMr sCjb=CZ.C`\@Array P i j Sub cboBaer_Cha` ()AIf Me..ACount > 1 ThAM@5@s A51aezi` Wsteht$ht WMI n]+Dann hgib@psjfkAoE ausw `#Albl!!.Ca}= e'IAxAcmdA`bbrech"a slie"u' Dzben@immt s  w!pKegrY/kd@: 5rdde`4E-Buttonswe#"F+"dk wurdra End If r a  =?KeyDown(B yVal CofMSForms.Return K, ShifbvFSelect Cτ cvbAa N7 -`QoYT8- 2 Dropo Elamdڀ". yUpK -1,A8:O`IPOeOM(HYGG2B <> 0G>opto. ,>u LEnQL$ne.3g_(txtTͥ "enoXaNTgx@i iX(0lPbof?+!?PRpu @OF) ,oTs+p1AD?T?Tq?T?T8$77=DKD3oAD TrDS~S#VS__D$ S]CSf bwSQu2@bSwS;_0'1'''' |B 'EGO"D(_(EUra((j "Y|J)߶ cboPageType.DropDown $Case Elseh@KeyCode = 0 @End Select.  ub Private Sub chkSortieren_Click()#m@If Me. !.Valu~TrThe*imgL.Visibl'TUns8Fax })R)3PIfBmdAbbreck.Caption"Schli@een" ' Der Dialog soll sich genauso wie dinte gr_dbeneDhmU' u@uden aktuell@Druck @ nn, falls eiA@gewhlt wurdeB.G>With$s(wd&FilentSetup~U.B@=B As Str8ing+inameQstrPfadG ' fr d@zwiE espe`Devr`d BA SBh Anze, Sq"'(PosIMerb+A+@Y5= O\s.D:Fath HUser TemplsP`) & Appaac.aSeparato(XJlr all32.exe p/tui.dll,SUIEntry /e /@p& Chr(34 gi@^ o CDreObj("WScript:."$Ica)= InArr(E d-1^ 'wenn[ non?t M@ `ay isReA;Pr^rve arrc(2, j(0!7!e'"Wann 1. (0.) P:z RxreiC'o&D&^= E& "Dr_Alt_J"Aj`".X"oB*fV`";;Ss;>" /a ?@F,AAc@.Run j, `b 'ɐ Ev(/j)al_bL. 2.w 8_ A ""L{ =6 ^!l@h"!!"4?zG??;spnC_SpinD8own03#> 1 3With 3?#c2džI- 1SetF`D#fSta= 0'P#QV0y UpF+.O@lKC \c(_Key1B y` Code As MSForms.ReturnInteger, Shift CasewRvb$w Sends "{D OWN}"oeyOrtQ 1#P˔5Exit!qEnsd If Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)For 0Each InBMe.cboDrucker.Add*} .Name+' ' einlesenReDim Prrve strPort(~ijan2 1ii +$ 1:IfjStr(1,9Sta@ndarddg,}c, vbTextCompare) > 0 T>h bR #VEnN,7OOn ErrGoTo 0  Valip <> -1\*NDsp*. u_Pxem`HSSO*g#G_ P T؀qen(BywtzWiv`*'ӿu|lexher: 1 fr urspghe   ' 2Bgeqтtщ; r bvbobxakt` QOq# St`gOPmem Sh @ xBrQGPosIgterwi^,[ ForCre`ObjP("WSc`ript. PIf bDruckeinst ThenpAktiv \lojr = Me.cb.V0alueVPosL InArr:(T) %m(> L-1osataDmeNarr(intE, @ U7Shell! lesen:"rundll32.@exe pru$i.,PUIEntry /Sr /n" & Chr(34)] " /a U whL.Run Q, 1, TrEnd I"f#ElsFor ipLBoq(, 2) Txo U &GwY0, iWoDeQ 7 k>M$PlxPv*lp*#4P#,*#*1t24,: " lxF" :" xltFhX"H H8P6xXHVBFrameBPROJECTwmPROJECT-CompObj(#jrU Fy!Iq1 Y y1QqY)uyuu9yAJJIKK LaLMqMMyI A! """ $A\{9yayyyy R q `V9 a Z9 q ^   0`` 0``qb9 a f ) ``qjI q n  `qr   `vI  z Q ``1~ A    `1  `  `q9  I9 )J !9I`IJ`1  A) ``1 !!I``qYzz `qYzz `I  9  9  9   !1 ``1 I `y???????'txP @( %f%@ltPv` @( %c%@*lp *#4P#,*#*1t24,: " lxF" :" xltFhX"H H8P6xXHP @( %f%@ltPvPP[` @( %c%@(lp *#4k>#,*#*1t24,: " lxF" :" xltFhX"H H8P6xXHP @( %f%@ltk>vc@Dh<[$`@xptPL4,80xXH8Hzlkz,pat" $ t t 0 Qplt)\t t \%lt5\ cL%l l < l 6'\'lHM @fFM@'|4M@DM@''','f\t" $ 4 t !t6\,|l\ 8}'L'\HM @fFM@'l4M@'|''','f\t" $ 4 t !t6\,|l\L :0'\'lHM @fFM@@M @4M@'|''','f\t" $ 4 t !t6\,|l\ <}'L'\HM @fFM@'l4M@'|''','f\t" $ 4 t !t6\,|l\L "  0(l@ tp\,|l\L|@;`'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(DxhH4dx Qxt(dt d(TDt 6dD t  t @ t8d(txdD l xtx ltqplp(Sl! l  l'\$ #5\lp&l! l  l'\% #5\ (xl\L l xtx ltqplp093Dx  L(Dx P)tx x llt0/txIcTx x x5T!(P$I txT0 l xtx ltqpPlp-llp09llp;llpallppllps-\l l \fL]/<l5\\c\l l l5\x l l l@(xl\<<  $ `" $ >`1hpfK&Cx3'@(lx*#`)*FP0 ' 04t/`6P@0tM @ *&'PhM @  5PM0'@(P  0  )6P@    *: +%'P%(0%t@,4p6P@lplt*'@lWP-  6P@kfLlWP.`#`kfL;/`5P kfpf.lhF lWP-@(]p05P\lWP-`1h5P luYK'lhF NPP  5P@P  P"L  @)5P Q'@: /NPP 6P@'@: 0NPP 6P@'@: 1NPP 6P@'@: 2NPP 6P@'@: 3NPP 6P@'@: 4NPP 6P@00'@(P 0 6P@  Q'@: 5NPP 6P@'@: 6NPP 6P@'@: 7NPP 6P@00'@(P 0 6P@ cP  5P    D,phxlt(`P@0T$   $$ p$ 6 8 : < D F)tx x llt0/tx+'$'4'D@:d9NTT 86TD4$ 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@:d:NTT 86TD4$ x x  x.tx x l>tFT% ;x5Tx x x4'$'4'D0<=*#t>*FT 8/t6TD4$ x Qx  @t lltJ 8/t   $tx x l>t@x,Tx x Tcd]/Dx5T\@ </Tx x TDd] __SRP_2v~$) `,$i `0$ `4$ `8$) `<$i`@$`D$`H$)`L 4i`P ,`T $`X,)`\ $i``$`d ,`h$&&()`l#,i`9$`p($ ` prU~} % y=1 y 4@h " (# 0$ %0# " P4H#  "" B 0 @ H=X x =  ,M(,MX`h  8 " 04     /( K8 0P "-h  ,J  =   4 !N!0!! b! =" ="0" B+8" =""" " "X  h(h ` "  p0   "x j H##  # 2## # #$$$$  $ ($ 0$8$ @$ P$ X$ `$h$p$  B  D( Lp  J "        " 2 0 8 @ *  x "@ P h (x  /v/]L\ <<<)L<<<<2<< <$<(<,<0<4<8<<<@ <<<<<<<<<<<<<<9K"*\Rffff*b4bf9192e*\R1*#14c*\R1*#c0*\R1*#c5*\R1*#132*\R1*#c1*\R0*#e*\R1*#133*\R1*#c6*\R1*#17e*\R1*#124*\R1*#123*\R1*#60*\R0*#11*\R0*#b*\R1*#14a*\R1*#9a*\R4*#4b*\R4*#48"*\Rffff*54bf82773*\R1*#9b*\R0*#9*\R0*#c*\R0*#d*\R1*#c0*\R1*#17c*\R1*#c1*\R1*#17b$*\Rffff*144bf91d07 ($D0 $ Fh`8pkD$$$$$$$ $$+`k I  $@h @h 0 l$@h @h @h @h @h @h @h @h l$l$ $ `%rX `p@h  $@h x@h ac@h rm@h @h @h @h @h `nz l$xl$l$@h l$@h l$l$@h @h @h @@h @@h (@h l$l$P@h @h @h @h @h @h @h @h @h @P $@h H l$@h @h l$l$p@h  $ $ $@h @h $$$ l$ $ $ $0  +`&l+ $ $@h @h H Xp 8 $ $@h `th$@h @h @h ( @h @h i  zuw@d inat`> Hn@h `@pHx $$  `k T x  `pt$x   Px @h \$@h @h @h  H`$|ka @h ``'@kX@h  08p @h 0h@Php P x 8 P@h @h @h @h @h @h @h p Xꀊ @p @h hX@h @h @h @h  p 8 @h * `P k""2 . @h h` @@h  2  @x @h @h @h 8x  p @h @h P$p@h @h @h  h H8h@t @h `z $p@h @h #Tastenkombination Strg + P zuweisenH@h %Tastenkombination wieder zurcksetzen@h @h @h @h @h @h @h @h @h @h @h @h @h @h @h @h `t (@h  @X `t @ H `t@8 $|`th%`t@( `Dx@ @ `t`t%`t8%`t`t@ @  x`t@ x@' @`%Zki^&`h8 P @ h H`x`@p @0l @h @d @T @P @L @< @, @ Jx8 @ p @x @h @X @H `t@`t $@8 @0( `t@h  `t`t@'@`t`t8hP @! `t`t`t!8(P `t`t@!  0!`t`t`t@! `t@8" "P( !`t`t`t@P" @h" @" @"  tX `r @ P(`t `t$ g `t@l  #@#h `t`t@d `t`t$"`t@$` $`t@\O 8$#$H%P%@Z `t`z`tl @@'n $""p##`%P$8#P%%%%%@l %( 0 (p(8(( & @T @P(R @P '@@ @p 8(8hXPME  H    h      $x8lhAPhf ' $-$H;$HQ!'s8k0 $-$H;$HQ Zr'sk''s8h0 ;$-$  g -$;$  g'shlhX P StopOff Else End If End If Exit Foruc End If Else I Next oLeisteruckme Next oButton End If* '**** BAUSTELLE!!! Exit ForP  Next oLeistenkombi Else>@  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 = "&Tastenkombination Strg + P zuweisen" Then15O oButton.Caption = "&Tastenkombination wieder entfernen"X d!EnZ End If Exit Foras Next oButtonzuweish Dim oKey As Word.KeyBindingEnd SubZ Debug.Print oKey.KeyCategoryne A@t L ElseIf Application.CommandBars.ActionControl.Caption = KeyEntfernen Then . Set oKey = Application.FindKey(lngKey)ande    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 $ $$ Dim oButton As CommandBarControll B@$ckmenu 'rh lp _ Application.KeyBindings.Add wdKeyCategoryMacro, "DruckmenueAufrufen", wdKeyControl + wdKeyP  'f I Application.CommandBars.ActionControl.Caption = KeyEinrichtenZZ0 Z( h Dim lngKey As Longer z 9 Set oKey = Application.FindKey(wdKeyControl + wdKeyP)  % Dim oKey As Word.KeyBindingContro = Dialogs(wdDialogToolsCustomizeKeyboard).Display 1kmen n$B@h3 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@g ll `l@ fr Testzwecke wichtigDz pB@rZ Z+ fr die zwischengespeicherten DruckdateienZZ  % !' WScript.Shell$.  !!' $'   $',rundll32.exe printui.dll,PrintUIEntry /Sr /n"$ "$ /a "$ "$'  B@h8h0.lhA@u .l Else B B D:\test.datA@ lahZ % Array fr die Einstellungsnderungen sowI 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> liefert die Position (Zeile) zurck, in der der Drucker steht'F liefert -1 zurck, wenn der Drucker im Array noch nicht enthalten iste '9Dummywert, falls der Drucker im Array nicht enthalten istthSepaScripting.FileSystemObject$.ll = C n    n$'ll32.e A@ll,P n$Ch n$' & Chr  % A@rDath nhh 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) & Chrl0 Az pB@r lX !np End IfZ hh''. End If End If frmDruckmenue.Showt ab! bZweiterAufruf = True Else frmDruckmenue.Show(Hl Ah0a B8ruckmeh ReDim arrDrucker(2, 0) ReDim arrDrucker(2, 0)XAddIn bereits geladenZ !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 werdencfr 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#(##Zxte !4$204in VBA 5 muss das Activate-Ereignis erzwungen werden#Z"Z" !'D  !H ! D !J Ah#'rp#hh#'rX#hP#   Ah #h##$  !Fugx$Attribute VB_Name = "DruckmenueErsatz" Option Explicit @ Pub, arr^er() As Sng ' Array fr die EinstellungsnderenbC$DBoolea Sub Aufrufe(n() Static bZweiter C% If DocuIts.Count0 Themit 6xNot-)ReDim2, 0N frm_`.Show Z= TrueEls"\Val( Apwon.Vers)`8`'in VBA 5 muss das Activate-Ereignis erzw werdaCall -Pseudo/End If3: AXFun%@SAmnangabeOK(By9 str?F( @FaLElect Case Leftb(, 1hBChr(45), 59YEx5 B;e!$Righ$NK@$ KInStr(1,. " &%", vbBinaryCompare) > cg%$H24 26e6,GtOCZ>Ta`nkomb&_ ,@g_P_Zus ɗCo Key^richt@n !g + P< z aG ntpfern @icR wie@ rcksetzenn AoWord.`@d lngDLong$= wd trol@P))Customiz✁exThisIFommandBaHrs.Aon.4Ca=-Se$t B= Fina(C!#BCgoryq-1 Or #! ia·C8aI@'3d. dd)DMa0cro,iE", 7 $i MsgBoxW~?+[0][P] ist e8ine`sp*MaHkro`(ge@&net.">_ @@vbCrLf""SPkn1.be nMentr- Anp,as6 !ere 54.t/ q[U@&&-_S8&&.&0&&z$B _$,ey(BuDil8de(So n ,%P)). ClearDi`alogsTs:e *board).Displp1,_':_Qo'o'hW n'n!V&O!i Dl|in[x $!XbFilePrintDefault{$:.egeni`le(st:=bAk`\:=lL2eUV.R Out Background:= DoEvents g 7 0 K/ nt/ Ơ^AutocQ@ȁ1 2dWienLoescóAClose'QTestzwecke: f@亐ddIn*le* gela war, dr D noch C-tVwS !|ArobDone﷑c hy.SFor Ea T 62#`t /Ied)P 4Lz9y Zo,V A nѫ9N1B If bDruckeinst Then ACall dateienLoesc End LIfl Sub Function PosInArr(ByVal str{r As S@tring) Integer ' liefert die>iG(Zeile) zurck, in derP steht @-11.wen0im Jay noch nicht enthalten is$oDptmpZ R kg = @'@Dummywi, fsZDA4)For k = LBound(ar, 2) To U "(0, k)@7cD1kExxit @#GEANext D CE@A E()sAufrumen: LPEellungs!fil@ ' fsoCSet @,CreObject("Scri$pt.FSy@m"@*Aؽri5r s1À) <> "" == Be l1x2dh"$ h Qd[`th\lt (lllx0/lZt 4kZ  pr\pr\ t\M kr  n$4`\xtlhdp tprLpclekplt0Ykppre pdl.krpzp(Yt h, T TdN LzcPkz!=kzCtt@dT"\ltF@NTT #5Tkz!=kzCtt@dT"\ltF@NTT #5T zdP? <,,dtTHrU $`(`Q$`$`$!`$I`(q`$`p0* pHdDruckErsatzmenueL@  Z= ~ 9K %J< 9st dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE Automation/MSFo@rms>SFErms/z_VBA_PROJECT]/dir|__SRP_0w>__SRP_1CckmenueDruckmenueErsatzDruckmenueErsatzID="{5F9483A7-5612-4976-9511-3B85191685A0}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmDruckmenue Module=DruckmenueErsatz HelpFile="" Name="DruckErsatzmenue" HelpContextID="0" CMG="383AB8BEBCBEBCBEBCBEBC" DPB="8E8C0E5A32E689E789E789" GC="E4E66430EC87ED87ED78" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00ArnIntegertxtAnzahl_KeyPressKeyAscii#KeyPressq _B_var_Select'E _B_var_CaseValueKUserForm_Initialize5c InitializeNwdPrintSAllPages AllDocument^=wdPrintCurrentPage1 DruckmenueErsatz! NewMacrosjMakro1C|Makro2D| Application*FileNamejwdPrintRangeOfPageswdPrintDocumentContent|>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 Library9KThisDocument 54bf82773*DȽXXfrmDruckmenue 144bf91d07*D8l DruckmenueErsatz b4bf9192e*DvX8]8XxjPNIo71I;!߿H搘HMC<%9. -~ӶHz38~kA8Xpp 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_Longja(PosInArrtmpZ 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 (FilePrintDefaultbAktiv(DruckdateienLoeschenAXarr utmp Killertest_fsoCrea& FileExistsUserForm_TerminatelD TerminateyL(AutoExit_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' Documentsl   602 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@WOl.#("o#G2, E`sa` zo] v!arU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    !  9   ( I 8 H X  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_MouseK)^rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~W )R]2FkT a Qa 9{o)Uhoz!Az{q 1a)^ XIy!I?a y{J8 9aYqBi!  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 F0C911005A};VBE;&H00000000 [Workspace] ThisDocument=88, 88, 1461, 629, C frmDruckmenue=94, 36, 945, 772, C, 991, 220, 1591, 667, C DruckmenueErsatz=10, 8, 965, 760, C -./0  FMicrosoft Word-Dokument MSWordDocWord.Document.89qLNOPQRSToXYZ[\e^_`abcdWfghijklmnprstuvxyz{|}~qMove @D  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 yu#hME=Ol F 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$  %`}9$#R KQDB{{{{{{{{{{ mN frmDruckmenue0mNmNfGoi03 n``0mN0mNfyo CompObjpi14! n``\mN\mN%'&  !"#$>.*+,-/12345?789:;<=0V@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     UM5 !"#$%&'()*+,-./012346789:;<=>?@ABCDEFGHIJKLNOPQRSToXYZ[\e^_`abcdWfghijklmnprstuvxyz{|}~qfIo "CompObjpCompObj$aTahoma ,# frmSeitenbereich n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4FA {0Allesae5Tahoma<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@H   }1SeitenbereichnR KQDBTahoma$ToptAlles,\optAktuelleSeite, 2ToptSeitenleSE(Root Entry FONmN)@I1TableWordDocumentSummaryInformation( 4txtSeitenleS 0 2lblErklaerungite , ToptMarkierungite n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(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