аЯрЁБс>ўџ ўџџџƒџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ@№нšовЫ4apcџџџџџџџџрЁw"ЭЫ@№нšовЫThe VBA Project џџџџџџџџрЁw"ЭЫ@№нšовЫ_VBA_Projectџџџџџџџџ рЁw"ЭЫ@№нšовЫ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ{! ўџџџўџџџ"w$%&'()*+,ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8C=џџџџџџџџџџџџ>?џџџџџџџџџџџџGџџџџџџџџџџџџHIJKLQџџџџџџџџџџџџџџџџRTџџџџVџџџџYџџџџџџџџZ[^—џџџџ_aџџџџcџџџџhџџџџ9џџџџџџџџilџџџџџџџџmnopqrstuvўџџџxyz™|}\€Root EntryџџџџџџџџртЬовЫ4apcџџџџџџџџрЁw"ЭЫртЬовЫThe VBA Project џџџџџџџџрЁw"ЭЫртЬовЫ_VBA_Projectџџџџџџџџ рЁw"ЭЫртЬовЫџџџџџџџџ§џџџ  ўџџџўџџџџџџџ‹џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ./0123456ўџџџџџџџџџџџ=;<@>?•ABDџџџџEFMџџџџџџџџџџџџџџџџџџџџџџџџNOPSџџџџџџџџUџџџџWџџџџX]џџџџџџџџџџџџ–`џџџџџџџџbџџџџdџџџџf9gjџџџџџџџџk‚џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ рЁw"ЭЫрqЬовЫVBA Project Data"џџџџфHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ7 ўџџџўџџџўџџџ !"#$%&'()*+,-./0123456:ўџџџўџџџўџџџ;<=‰?@ABCDEFGHIJўџџџLMNOPQRSTUVWXaZ[\]^_`bedўџџџcfgўџџџўџџџjklmnopqrstuvwxƒzi|}~€Эє{`2ДThisLibrary*{3Д5{Р3ДL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{p4Д L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ 5Д";{ 6Д$={9Д&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И-ТZC:\Users\Heiko\Desktop\a4h100swuID="{AB5C7C6F-65AE-4461-8792-9560CA2FB87A}" Document=ThisLibrary/&H00000000 Module=a4h100swunddrucker1 Name="a4h100swunddrucker" HelpContextID="0" VersionCompatible32="393222000" CMG="6B6992948C988C988C988C98" DPB="6163985D995D995D" GC="5755AEB8525849594959B6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C a4h100swunddrucker1=1, 44, 1083, 739, 707, Name =  ˆ < TemplateName =  < PaperSize =  Œ < TemplateIn =  < Scale1 =  < scale2 =  < FirstAngle nddrucker.swpЬR•ОЫ„ТkJС9ThisФkGС9 T@ДThisLibraryџџџџџџџџрw"ЭЫрqЬовЫProject_Data_CurVer( џџџџ9 Host Project Item List Data8џџџџџџџџџџџџ8VBAџџџџџџџџрЁw"ЭЫрЁw"ЭЫPROJECTwmџџџџџџџџџџџџbPROJECT џџџџ К_VBA_PROJECTџџџџџџџџџџџџ-œThisLibraryџџџџKtThisLibraryThisLibrarya4h100swunddrucker1a4h100swunddrucker1a4h100swunddrucker1a4h1rU€€€ џџџџџџџџџџџџџџџџ t ‚ юђNO” J< 9€stdole>stdo€le h“K*mџџџџrU€€€€~~~~~~~~~~e  лШ;_ВG†ьФjД,Ъх фџџџџ џџџџџџџџџџџџЙA Й6@ 2 €C HB1‚еЕB,B 8"•B+BР%,4Qр10 sРGun`pd`ucер^e 1 aю€м12Ÿ†Џy ­ШF =  < Width =  < Height = йЈVBE6.DLL  ™џџџџS И dSheetsize not definГ€0* pH‚dфa4h100swunddruckˆerT@ j = ‚ ІˆћN5” J< 9€stdole>stdo€le hdirџџџџџџџџџџџџ> Project Item Data$џџџџh Control List Data$џџџџџџџџрqЬовЫрqЬовЫReqControl List Data*џџџџџџџџрqЬовЫрqЬовЫ__SRP_1џџџџџџџџџџџџFReqControl List Data*џџџџџџџџџџџџŽ Control_Data_CurVer(џџџџџџџџ Control List Data$џџџџџџџџџџџџŒ(‚Я„…†‡ˆ‹ŠўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџa4h100swunddrucker1(џџџџџџџџ:A__SRP_2џџџџ{ __SRP_3џџџџџџџџџџџџy__SRP_0џџџџ %^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE AutomatiŒon0€SldWorks>€CdWA€Grks€HŠ € €€H83A33D31-27C5-11CE-BFD4€H400513BB57}#1IProgramme\SoliAƒ3 Corpˆ\psldw@‚S…F 2010 Type LibrarFyA€SwConst>BwCXnWt X4687F359-55D0-4CD3-B6CF-2EB42€C11F989 ,ROGRA~1\SOLIDW~2С1\swcСC)G3Т)B#ant t,l , С(WUt@ilitieРYQ-WU@~iР[iеТeB[ЅР›РA[ 7DBD2СX3D17-481A-999541E767BCD1}Р#7d7.5C€Ѕ[С"s\gtswF%[‡5Тb bЫ„ТkJС9ThisФkGС9 T@ДHost Project Item Names0џџџџ рЁw"ЭЫPІлšовЫVBA Project Data"џџџџфHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ i@6Li braРy* 2 €C HB1‚еЕB,B 8"•B+BР%№1G&a4Qр10 sРGun`pd`ucер^e 1 aю€œ12Ÿ†Џ5ЏШF^!@ Ѓqcker1Tф‚[ЏkJ8џџ#ˆЖџџџџџџџџџџџџ€ЗДЎpEžнЅ-N•d €lІгЈН†ЛжмQ&rИA„зЖј…c>џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ7 ўџџџўџџџўџџџ !"#$%&'()*+,-./0123456:ўџџџўџџџўџџџ;<=‰?@ABCDEFGHIJўџџџLMNOPQRSTUVWXaZ[\]^_`bedўџџџcfgўџџџўџџџjklmnopqrstuvwxƒzi|}~€Эє{€4ДThisLibrary*{05Д5{а6ДL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{09Д L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{0;Д";{р;Д$={<Д&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И-ТZC:\Users\Heiko\Desktop\a4h100swuID="{AB5C7C6F-65AE-4461-8792-9560CA2FB87A}" Document=ThisLibrary/&H00000000 Module=a4h100swunddrucker1 Name="a4h100swunddrucker" HelpContextID="0" VersionCompatible32="393222000" CMG="1D1FE4343C6440644064406440" DPB="494BB045B145B145" GC="75778C5C948995899576" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C a4h100swunddrucker1=1, 44, 1083, 739, 707, Name =  ˆ < TemplateName =  < PaperSize =  Œ < TemplateIn =  < Scale1 =  < scale2 =  < FirstAngle nddrucker.swpЬR•ОЫ„ТkJС9ThisФkGС9 T@Д~ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџрw"ЭЫPІлšовЫProject_Data_CurVer( џџџџ9 Host Project Item List Data8џџџџџџџџџџџџ8VBAџџџџџџџџрЁw"ЭЫрЁw"ЭЫPROJECTwmџџџџџџџџџџџџbPROJECT џџџџ К_VBA_PROJECTџџџџџџџџџџџџ#œThisLibraryџџџџKtThisLibraryThisLibrarya4h100swunddrucker1a4h100swunddrucker1a4h100swunddrucker1a4h1rU€€€ џџџџџџџџџџџџџџџџ t ‚ юђNO” J< 9€stdole>stdo€le h“K*mџџџџrU€€€€~~~~~~~~~~e  й !лх+NŽмЅЭш фџџџџ џџџџџџџџџџџџЙA Й6@ 2 €C HB1‚еЕB,B 8"•B+BР%,4Qр10 sРGun`pd`ucер^e 1 aю€м12Ÿ†Џy ­ШF =  < Width =  < Height = йЈVBE6.DLL  ™џџџџS И dSheetsize not definГ€0* pH‚dфa4h100swunddruckˆerT@ j = ‚ ІˆћN5” J< 9€stdole>stdo€le hdirџџџџџџџџџџџџ> Project Item Data$џџџџh Control List Data$џџџџџџџџPІлšовЫPІлšовЫReqControl List Data*џџџџџџџџPІлšовЫPІлšовЫ__SRP_1џџџџџџџџџџџџFReqControl List Data*џџџџџџџџџџџџ Control_Data_CurVer(џџџџџџџџŒ Control List Data$џџџџџџџџџџџџ‹(‚Я„…†‡ˆўџџџŠўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџa4h100swunddrucker1(џџџџџџџџ7A__SRP_2џџџџ{ __SRP_3џџџџџџџџџџџџyј__SRP_0џџџџ %^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE AutomatiŒon0€SldWorks>€CdWA€Grks€HŠ € €€H83A33D31-27C5-11CE-BFD4€H400513BB57}#1IProgramme\SoliAƒ3 Corpˆ\psldw@‚S…F 2010 Type LibrarFyA€SwConst>BwCXnWt X4687F359-55D0-4CD3-B6CF-2EB42€C11F989 ,ROGRA~1\SOLIDW~2С1\swcСC)G3Т)B#ant t,l , С(WUt@ilitieРYQ-WU@~iР[iеТeB[ЅР›РA[ 7DBD2СX3D17-481A-999541E767BCD1}Р#7d7.5C€Ѕ[С"s\gtswF%[‡5Тb bЫ„ТkJС9ThisФkGС9 T@Дi@6Li braРy* 2 €C HB1‚еЕB,B 8"•B+BР%№1G&a4Qр10 sРGun`pd`ucер^e 1 aю€œ12Ÿ†Џ 5ЏШF^!@ Ѓqcker1Tф‚[ЏkJ8џџ#ˆЖџџџџџџџџџџџџ€ЗДЎpEžнЅ-N•d €lІгЈН†ЛжмQ&rИA„зЖј…c>џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬamџ ф *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsњ*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\PROGRA~1\GEMEIN~1\SOLIDW~2\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#C:\Programme\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\PROGRA~1\SOLIDW~2\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library6*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#C:\Programme\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library џџџџџџІˆћN5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkJThisLibrary9<4efb88a6џџThisLibraryџџ8Еџџ&a4h100swunddrucker1:04efb9a4eџџ&a4h100swunddrucker1џџF^  5џџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{Нyˆ„ЦEЅЅыУOџџџџџџџџ`Xg*>лвFŒ \їѕ9џџџџџџџџ€osџ№5 Bk€џIsГ€џTo SolidWorks; VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProject16ж a4h100swunddruckerѓV ThisLibraryGЉ €џ_EvaluateйModul1Э a4h100swunddrucker1РћswAppы‘Partє~ boolstatusgо longstatusW longwarnings‡Ќ(mainˆ, €џApplicationЅ*Œ(џSldWorks$ ActiveDocк’ PrintDirect@R myPageSetup‰ PageSetupщЊ DrawingColorFiswPageSetupDrawingColor_eфswPageSetup_BlackAndWhite<3 ScaleToFitЯRScale2ђM OrientationwswPageSetupOrientation_e“swPageSetupOrient_PortraitіPrinterPaperSourceНG SwConstœ SWUtilitiesѕ €џActivePrinterуp swPrinterХГ€џPrinterPaperSizeп5€џџџ_B_var_swPrinter НModel9Э €џExtensionы €џPrintOut2e2 vPageArrayNљcopies?collate€џџџ_B_var_vPageArrayyg €џџџ_B_var_copiesБЙ€џџџ_B_var_collateŒ  €џџџ_B_var_Model&‘ €џModelDoc2Ї^€џџџ_B_var_ModelDoc2ьgOKIнОC5200nЊКaufnuNe01аpsИ^ €џџџ_B_var_Set €џџџ_B_var_ps`ѓ CreateObjectјŠ Workspace3€џџџ_B_var_PageSetup­Є€џџџ_B_var_PrintOut2), pageArrayЇd €џџџ_B_var_OKIю{ €џџџ_B_var_C5200n5 €џParameterhˆ €џџџ_B_var_False-ёxxxю№ €џџџ_B_var_xxxџ­swDrawѓ’ €џDrawingDocсswSheet}Œ€џSheet[ж vSheetPropsр€џGetCurrentSheetЦ~ €џGetProperties(ё€џGetNameг<€џGetTemplateNameŽюswPsа?swModel[ƒ VariableCaseyVariable‹Ќ(swDwgPaperSizes_eуšЈ swDwgPaperAsizeЈ swDwgPaperAsizeVerticalбЈ swDwgPaperBsize"”Ј swDwgPaperCsize№%Ј swDwgPaperDsize§ЗЈ swDwgPaperEsizeЫIЈ swDwgPaperA4size" Ј swDwgPaperA4sizeVertical_’Ј swDwgPaperA3sizeTyЈ swDwgPaperA2size†чЈ swDwgPaperA1sizeyUЈ swDwgPaperA0sizeЋУЈ swDwgPapersUserDefinedЙВ €џџџColorGrey„f€џџџ_B_var_ColorGreyH` €џHighQualityQAX€џџџ_B_var_AЂCZ PrinterName_Aэ PrinterName_Bэ PrinterName_Cэ €џџџ_B_var_EndоFMsgBox—RMsI^ greetingstв€џџџ_B_var_greetingsЙлџџlџџџџџџџџџџџџџџџџџџFџџџџџџHџџ*џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$@ €"2size†чЈ swDwgPaperA1sizeyUЈ swDwgPaperA0sizeЋУЈ swDwgPapersUserDefinedЙВ Ьamџ ф *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsњ*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\PROGRA~1\GEMEIN~1\SOLIDW~2\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#C:\Programme\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\PROGRA~1\SOLIDW~2\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library6*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#C:\Programme\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library џџџџџџІˆћN5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkJThisLibrary9<4efb88a6џџThisLibraryџџ8Еџџ&a4h100swunddrucker1:04efb9a4eџџ&a4h100swunddrucker1џџF^ 5џџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{Нyˆ„ЦEЅЅыУOџџџџџџџџ`Xg*>лвFŒ \їѕ9џџџџџџџџ€osџ№5 Bk€џIsГ€џTo SolidWorks; VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProject16ж a4h100swunddruckerѓV ThisLibraryGЉ €џ_EvaluateйModul1Э a4h100swunddrucker1РћswAppы‘Partє~ boolstatusgо longstatusW longwarnings‡Ќ(mainˆ, €џApplicationЅ*Œ(џSldWorks$ ActiveDocк’ PrintDirect@R myPageSetup‰ PageSetupщЊ DrawingColorFiswPageSetupDrawingColor_eфswPageSetup_BlackAndWhite<3 ScaleToFitЯRScale2ђM OrientationwswPageSetupOrientation_e“swPageSetupOrient_PortraitіPrinterPaperSourceНG SwConstœ SWUtilitiesѕ €џActivePrinterуp swPrinterХГ€џPrinterPaperSizeп5€џџџ_B_var_swPrinter НModel9Э €џExtensionы €џPrintOut2e2 vPageArrayNљcopies?collate€џџџ_B_var_vPageArrayyg €џџџ_B_var_copiesБЙ€џџџ_B_var_collateŒ  €џџџ_B_var_Model&‘ €џModelDoc2Ї^€џџџ_B_var_ModelDoc2ьgOKIнОC5200nЊКaufnuNe01аpsИ^ €џџџ_B_var_Set €џџџ_B_var_ps`ѓ CreateObjectјŠ Workspace3€џџџ_B_var_PageSetup­Є€џџџ_B_var_PrintOut2), pageArrayЇd €џџџ_B_var_OKIю{ €џџџ_B_var_C5200n5 €џParameterhˆ €џџџ_B_var_False-ёxxxю№ €џџџ_B_var_xxxџ­swDrawѓ’ €џDrawingDocсswSheet}Œ€џSheet[ж vSheetPropsр€џGetCurrentSheetЦ~ €џGetProperties(ё€џGetNameг<€џGetTemplateNameŽюswPsа?swModel[ƒ VariableCaseyVariable‹Ќ(swDwgPaperSizes_eуšЈ swDwgPaperAsizeЈ swDwgPaperAsizeVerticalбЈ swDwgPaperBsize"”Ј swDwgPaperCsize№%Ј swDwgPaperDsize§ЗЈ swDwgPaperEsizeЫIЈ swDwgPaperA4size" Ј swDwgPaperA4sizeVertical_’Ј swDwgPaperA3sizeTyЈ swDwgPaperA2size†чЈ swDwgPaperA1sizeyUЈ swDwgPaperA0sizeЋУЈ swDwgPapersUserDefinedЙВ €џџџColorGrey„f€џџџ_B_var_ColorGreyH` €џHighQualityQAX€џџџ_B_var_AЂCZ PrinterName_Aэ PrinterName_Bэ PrinterName_Cэ €џџџ_B_var_EndоFMsgBox—RMsI^ greetingstв€џџџ_B_var_greetingsЙлџџlџџџџџџџџџџџџџџџџџџFџџџџџџHџџ*џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$@ €"2size†чЈ swDwgPaperA1sizeyUЈ swDwgPaperA0sizeЋУЈ swDwgPapersUserDefinedЙВ Nўвџџџџ“5kJF^џџЖџџџџџџџџџџџџџџџџџџџџџџxџџR(RџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџЌџџџџџџџџџџ(џџџџџџџџџџ$џџџџџџџџџџ џџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<џџ<џџ!”џџ<џџ< џџ<џџ<џџ<џџ<џџ!”џџ ”џџ2< џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџЌ r(Dntoџџиџџџџаџџџџ№џџџџpџџџџЌ r(N``џџџџ0џџџџ џџџџ€џџџџИџџџџиџџџџџџџџрџџџџаџџџџ№џџџџрџџџџџџџџРџџџџPЖ'\\server\Kyocera Mita KM-2030 auf Ne04:'LџџџџАэ R!2.r/@џџџџ8эЖSldWorks.Application$x.ќЂ@џџџџ(]ђџџџџЭџџ0џџџџ(џџџџˆ]ђиџџџџјџџџџЖЖЖtrue LЖ R!TB@Vt"џџџџ(џџџџOВAttribute VB_Name = "a4h100swunddrucker1Р" ' *JЂC:\Dokum enn Einstellungen\hdeiss\Lokale Temp\swx2196\Macro1.swb - m recorded on 02/15/11 by HDSQЮ Opti7Explicit ƒDim swApp As SldWork$s. ModelŠ‚Doc2psPag@eSetup sаwPri€r‚хDng:Sub€„i8n()€A= CreateObРject("Ц#Р'Е@-aA0"Ц ƒ%=У€.ActiveР$г…%= Т.H&AG&”\\server\Kyocera Mita KM-2030 auf Ne04:™ ps.DrawingCoxlorРЃ€E=I_eР{F_BlackAndWhite‚Sc@ToF„itFalsˆŽ2€РИТ OriРŸ?>@H _PрortraСy-bPaperSiz в9‚ ourc1261AIƒNExPtens@Ž.Т O€ut2 "",У№trueР€%CzaEnd Рxф‚фkJ8џџ#ˆЖџџTф‚фkJ8џџ#ˆЖџџџџџџџџ<џџ,Uzфo•AЛЋЊЊГВ €lІгЈН†Лж1 0^К6UEЃўє8qЋ"Œџџџџџџџџџџџџx1 0^К6UEЃўє8qЋ"Œ,Uzфo•AЛЋЊЊГВџџMEџџџџџџџџџџ<Рџџ<Фџџ<Шџџ<Ьџџ<аџџ<дџџ<иџџ<мџџ<рџџ<фџџ<шџџ<ьџџ<№џџ<єџџ<јџџ<ќџџ<џџџџџџ *f **)**”hј (% „џџџџpџџџ`џџ%ЈџџџџpџџџџШ џџ$%`„€џџџџLџџџџџ@%№ % &џџџџ`џџџџџџџџџџџџœўHџџџџџџџџџџ1„ „“џџџџlџџџpџџџџ(`„–џџџџXџџџ џџј`„LџџџџTџџџџџhРPџџџџџjšЊ Cџџџџџџџџџџџџџџџџƒџџџџџџxџџџџџџџџџџџџџџˆ%`„Zи(џџџџџ@jšЊшCџџџџџџџџџџџџџџџџx6`„\€&џџџ џџџџџџjšЌCџџџџџџџџџџџџџџџџjšЎPCџџџџџџџџџџџџџџџџ`„Xџџџџ<џџџ џџџџџџjšАЈCџџџџџџџџџџџџџџџџPџџџ џџ џџџџџџРџџџџ˜jšВаCџџџџџџџџџџџџџџџџjšДјCџџџџџџџџџџџџџџџџjšЖ CџџџџџџџџџџџџџџџџjšИXCџџџџџџџџџџџџџџџџ „Ёџџџџhџџџџџ „Ѓxtџџџ@p „џџџџxџџџ џџpџџџџАџџџџ˜џџџџ џџџџЈџџџџАџџџџИџџџџРџџџџШџџџџаџџџџиџџџџрџџџџшџџџџ№џџџџјџџџџџџџџџџџџџџџџџџџџ џџџџ(џџџџ0џџџџ8џџџџ@џџџџHjšК€CџџџџџџџџџџџџџџџџjšМЈ CџџџџџџџџџџџџџџџџjšОа CџџџџџџџџџџџџџџџџjšРј CџџџџџџџџџџџџџџџџjšТџџџџ CџџџџџџџџџџџџџџџџPџџџџPџџџџLџџџџPџџџџLџџџџ”џџџџ!”џџ!”<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџ11 bрO ******************************************************************************Э–xэ !,.Ђџџџџаџџџџ№џџџџpџџџџџџџџ0џџџџ џџ€ џџџџ€ |и€@rА€ f(€ J˜€ ~X€ џџџџ€ џџџџ€ ~P (€ ~а€ џџџџ€ џџџџ а € џџџџfј € H˜€ џџџџf8€ Tр€ џџџџ(€ ,˜€ џџџџ(Ш€ Ј € џџџџ88€ 0Ш € џџџџ( p€ р € џџџџf € n` € џџџџh€ np€ џџџџhа € <ˆ€ џџџ€џџџџИџџџџиџџџџџџџџрџџџџаџџџџ№џџџџрџџџџџџџџРџџџџPџџџџАэ Ђ!2. /@џџџџ8э !,.Ž.Aэ Ž!˜.’џџџџ(џџџџџџџџ(џџџџˆџџџџјџџџџџџџџ(рDim pageArray(3) As LongayрpageArray(3) = 3]ђ€]ђаџџџџАџџџџИџџџџ џџџџшџџџџшџџџџрџџџџHџџџџџџџџџџџџ0џџџџ8џџџџџџџџ`З'\рeTrue = Seiten werden der Reihe nach ausgedruckt wenn copies >1 ist also 1,2,3... dann wieder 1,2,3...р`False = Seiten werden mehrfach gedruckt wenn copies >1 ist also 2x Seite 1 dann 2x Seite 2 .....њ?џџџџPрCcollate= kollationieren = seitenweises zusamentragen = sortiert ;-)кџџџџИрCurrent sheet properties1,oр thats the endi ’!š'–ktraрpageArray(0) = 1atрpageArray(1) = 1keрpageArray(2) = 3n З  (ШcurrenЌ  (NertiЌ  (DЌ  (4ntouрDim vPageArray As VariantрvPageArray = pageArrayruckџџџџЌ'Zр Anzahl der AusdruckeџџџџџD(x € џџџџР € џџџџ p  X h x €   &ш"(˜€ џџџџ Ј € џџџџ А x€ Р  ˆ №   & "(€ € џџџџИ € џџџџ<+h € џџџџШ € џџџџ€ џџџџ€ |P€ №€ џџџџ&0€ џџџџ2&P€ џџџџ4.ˆ€ џџџџ4.Р€ џџџџ4.ј€ џџџџ4.0 € џџџџ4.h € џџџџ4.  € џџџџ4.и € ~а€ џџџџ€ џџџџ€ џџџџџџџџ@рO ******************************************************************************eЗ  (:.ScaleЌd  (<cordЌ  (>11 bрO ******************************************************************************Э–xэ !,.Ђџџџџаџџџџ№џџџџpџџџџџџџџ0џџџџ џџџџ€џџџџИџџџџиџџџџџџџџрџџџџаџџџџ№џџџџрџџџџџџџџРџџџџPџџџџАэ Ђ!2. /@џџџџ8э !,.Ž.Aэ Ž!˜.’џџџџ(џџџџџџџџ(џџџџˆџџџџјџџџџџџџџ(рDim pageArray(3) As LongayрpageArray(3) = 3]ђ€]ђаџџџџАџџџџИџџџџ џџџџшџџџџшџџџџрџџџџHџџџџџџџџџџџџ0џџџџ8џџџџџџџџ`З'\рeTrue = Seiten werden der Reihe nach ausgedruckt wenn copies >1 ist also 1,2,3... dann wieder 1,2,3...р`False = Sei61EBBD6}џџџџИ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџџџ %џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€P@44џџџџџџџџџџџџџџџџџџџџџџ@s}ѓNH$*\Rffff*064ef43d15пџџџџ4ўЪџџџџџџџџxџџџџЛАAttribute VB_Namџџџ џџџџhЌ'€р@when 0 all sites are printed / bei 0 werden alle Seiten gedruckttџџџџ X Z \ LЖ Ђ!TB@V---џџџџ€џџџџ8џџџџ@џџџџ8џџџџPџџџџPџџџџ8џџџџи џџџџpџџџџxџџџџ€]ђ8р]---------------------------page array / Seitenauswahl---------------------------------------- aufр06Printername from dialog in Print menu, must be exactlyheџџџџpџџџџ џџџџџџџџјЖ\\server\Kyocera Mita KM-2030'LрџџџџШ]ђHџџџџа €'Xџten werden mehrfach gedruckt wenn copies >1 ist also 2x Seite 1 dann 2x Seite 2 .....њ?џџџџPрCcollate= kollationieren = seitenweises zusamentragen = sortiert ;-)кџџџџИрCurrent sheet properties1,oр thats the endi ’!š'–ktraрpageArray(0) = 1atрpageArray(1) = 1keрpageArray(2) = 3n З  (ШcurrenЌ  (NertiЌ  (DЌ  (4ntouрDim vPageArray As VariantрvPageArray = pageArrayruckџџџџЌ'Zр Anzahl der Ausdruckeџџџџ џџџџhЌ'€р@when 0 all sites are printed / bei 0 werden alle Seiten gedruckttџџџџ X Z \ LЖ Ђ!TB@V---џџџџ€џџџџ8џџџџ@џџџџ8џџџџPџџџџPџџџџ8џџџџи џџџџpџџџџxџџџџ€]ђ8р]---------------------------page array / Seitenauswahl---------------------------------------- aufр06Printername from dialog in Print menu, must be exactlyheџџџџpџџџџ џџџџџџџџјЖ\\server\Kyocera Mita KM-2030'LрџџџџШ]ђHџџџџа €'Xџџџџh ]џџџh ]ђDx.]ђD]ђDИ]ђDиЗ  (:< LЌ  (>B@Vр&Maпstab an Papier anpassen, False/Truee = Ќd  (<рScale value in percentЗ  (Шэ (!*.Ќ  (NЌ  (Dnt s[йЖName = ’!œ ж[йЖ TemplateName = ’!žж[йЖ PaperSize = Ќ$–ж[йЖ TemplateIn = Ќ$–ж[йЖ Scale1 = Ќ$–ж[ђDx.]ђD]ђDИ]ђDиЗ  (:< LЌ  (>B@Vр&Maпstab an Papier anpassen, False/Truee = Ќd  (<рScale value in percentЗ  (Шэ (!*.Ќ  (NЌ  (Dnt s[йЖName = ’!œ ж[йЖ TemplateName = ’!žж[йЖ PaperSize = Ќ$–ж[йЖ TemplateIn = Ќ$–ж[йЖ Scale1 = Ќ$–ж[йЖ йЖ scale2 = Ќ$–ж[йЖ FirstAngle = Ќ$–ж[йЖ Width = Ќ$–ж[йЖ Height = Ќ$–жЖ\\server\Kyocera Mita KM-2030'Lџџџџ]ђD`]ђDјџџџџ № (Ќ  (4ner X Z \ LЖ Ђ!TB@VйЌ Ќ LTlseSЌKTnPЌ$–ъchenрHohe Qualitфt, False/TrueЌ'ЌЌ'ЎЌ'ЊЌ'АЌ'ВЌ'ДЌ scale2 = Ќ$–ж[йЖ FirstAngle = Ќ$–ж[йЖ Width = Ќ$–ж[йЖ Height = Ќ$–жЖ\\server\Kyocera Mita KM-2030'Lџџџџ]ђD`]ђDјџџџџ № (Ќ  (4ner X Z \ LЖ Ђ!TB@VйЌ Ќ LTlseSЌKTnPЌ$–ъchenрHohe Qualitфt, False/TrueЌ'ЌЌ'ЎЌ'ЊЌ'АЌ'ВЌ'ДЌ'ЖЌ'ЖЌ'ИЌ'КЌ 'МЌ 'ОЌ 'РЌ 'Тpџџџџ X Z \ LЖ Ђ!TB@VрKes wird nun endlich gedruckt 1 рswPs.Scale2 = 100џџџџP р[------------------------ Drawing Paper Sizes / Zeichnungsgrіпen ------------------------------џџџџ џџџџ8]ђDH0X Ж2Sheetsize not defined, print by menu or edit macroA@и0n'рSkalierungswert in Prozentр)Ausrichtung Hochformat = 1 Querformat = 2ЌKTрXValue from Enum list at the beginning, lookвмц№4ef372fd*\Ш3f*\R3*#1c7*\R3*#1fe*\Rb*\R4*#e4*\R3*#58*\R4*#e5*\R3*#58*\R3*#11*\R3*#11*\R3*#0*\R3*#0*\R0*#14пўЪ%€ V€ €X€ Vи€ џџџџ€и€ џџџџ€ џџџџ€ џџџџ€0€@€Ш€ there to know which Papersize the value meanliр gDrucker Papiergrіпe, um den Wert zu erhalten ein Makro aufzeichnen und die Druckeinstellungen vornehmenerЖ\\server\Kyocera Mita KM-2030'Lр0;Drucker eintragen, Name aus Auswahlbox im Druckmenu (exakt)Ќ  (>р&Orientation Portrait = 1 Landscape = 2З  (ШрHigh Quality, False/TrueрAWert aus der Enum Liste am Anfang, dort die Bedeutung nachschauenрMColors in Drawings, AutomaticDrawingColor = 1 ColorGrey = 2 BlackAndWhite = 3SchwЌ  (4рTFarben in Zeichnungen, Automatisch = 1 Farb-/Grauskalierung = 2 Schwarz und Weiп = 3Ќ  (Nр TPrinter paper size, to get the value record a macro when change the printer settingsЌ  (Dр$VPrinter paper source, to get the value record a macro when change the printer settingsр$hDrucker Papierquelle, um den Wert zu erhalten ein Makro aufzeichnen und die Druckeinstellungen vornehmenрl**************** ergibt 1,1,3,3 fќr pageArray bei Printout2 in der API Hilf'ИЌ'КЌ 'МЌ 'ОЌ 'РЌ 'Тpџџџџ X Z \ LЖ Ђ!TB@VрKes wird nun endlich gedruckt 1 рswPs.Scale2 = 100џџџџP р[------------------------ Drawing Paper Sizes / Zeichnungsgrіпen ------------------------------џџџџ џџџџ8]ђDH0X Ж2Sheetsize not defined, print by menu or edit macroA@и0n'рSkalierungswert in Prozentр)Ausrichtung Hochformat = 1 Querformat = 2ЌKTрXValue from Enum list at the beginning, look there to know which Papersize the value meanliр gDrucker Papiergrіпe, um den Wert zu erhalten ein Makro aufzeichnen und die Druckeinstellungen vornehmenerЖ\\server\Kyocera Mita KM-2030'Lр0;Drucker eintragen, Name aus Auswahlbox im Druckmenu (exakt)Ќ  (>р&Orientation Portrait = 1 Landscape = 2З  (ШрHigh Quality, False/TrueрAWert aus der Enum Liste am Anfang, dort die Bedeutung nachschauenрMColors in Drawings, AutomaticDrawingColor = 1 ColorGrey = 2 BlackAndWhite = 3SchwЌe nachschlagen ******************Xрw-----------------------------------------------------------------------------------------------------------------------рv------------------------------Collate / Sortiertes Drucken------------------------------------------------------------рv----------------------------------------------------------------------------------------------------------------------рv------------------------------Number of prints / Anzahl der Ausdrucke-------------------------------------------------рv----------------------------------------------------------------------------------------------------------------------рk**************** Example to print only page 1 and 3 / Beispiel, nur Seite 1 und 3 wird gedruckt************рv--------------------------- Werte werden im Direktfenster angezeigt --------------------------------------------------рx-------------------------------------------------------------------------------------------  (4рTFarben in Zeichnungen, Automatisch = 1 Farb-/Grauskalierung = 2 Schwarz und Weiп = 3Ќ  (Nр TPrinter paper size, to get the value record a macro when change the printer settingsЌ  (Dр$VPrinter paper source, to get the value record a macro when change the printer settingsр$hDrucker Papierquelle, um den Wert zu erhalten ein Makro aufzeichnen und die Druckeinstellungen vornehmenрl**************** ergibt 1,1,3,3 fќr pageArray bei Printout2 in der API Hilfe nachschlagen ******************Xрw-----------------------------------------------------------------------------------------------------------------------рv------------------------------Collate / Sortiertes Drucken------------------------------------------------------------рv----------------------------------------------------------------------------------------------------------------------рv------------------------------Number of prints / Anzahl der Ausdrucke-------------------------------------------------рv----------------------------------------------------------------------------------------------------------------------рk**************** Example to print only page 1 and 3 / Beispiel, nur Seite 1 und 3 wird gedruckt************рv--------------------------- Werte werden im Direktfenster angezeigt --------------------------------------------------рx------------------------------------------------------------------------------------------------------------------------рw------------------------------- Get current sheet properties / Eigenschaften des Blattes auslesen ---------------------рw-----------------------------------------------------------------------------------------------------------------------џџџџЈрPreconditions:g = рDrawing document is open рPostconditions:r рgreetings Heikoteр)Attention, this version has many commentsрUDocument will be printed by preselected settings in the macro (printer and setteings)settџџџџ˜џџџџШрHedit macro for differnt printers until every formats has its own printerрNthis Example shows how to print every drawing on demand using only one printerџџџџјЗ  (:рScale to Fit, False/Trueџџџџpџџџџ1ЗAttribute VB_Name = "a4h100swunddrucker1Р" ' *JЂPreconditions:  'Drawing document is open5ost6.will be printed by eselecsett^s in the macro (ƒr and •e)Ith€AExample @shows  to2 every d\on d$em$us€" oXnly…Hr*e€{„>for di0fferw„Ds `until„-€m4at;a\€ownƒ=e'€‹greemHeiko о € €яЁЏ,vbeTs€ h€#Qyа comYsB x!Jˆ Opv E€xplicit - ~Paper Sizes / Zeichnungsgrіп8en еРСPubР Enum `swDwg‚B_Юe™AsРН0”VerticTal€1BD2UC„3D„4•E„5A4ФV6еШ*7а3Ф8Uа2d9p1d1 q$0…А#sUse@rDefinРp=t 1Ђ$El3  Sub``in(!@m Dia6Appa4lAs Sl€dWorks.С%Modeln)ё"Doc@ƒ M.ž IФQ€Х ShlЇк "ХPs A PageSetu p#vЂProp €VarianырfƒPBšrЬ  И1PАt№Gso€.2,3... d"awie11,CC2Q45'FalsaН$I„mehržfа/&Bџє2x3 'Eі2 P..Х/'Д= kBЇœieрac1JnwpK№zusЧntrЧт7АbЄ ;-р€я$џ#_џ$‘Ÿ-- @o cSo; Сp|бЂ / Eigen EafЃрk9s B(tА0lрШЌb щ€џёs2u1v‚ѓЏA/ _УSТд ЬCa€%ш (0Rœb"7/Val/frDomуИlis0%tbзbeginnрб@, look1reеknow wКh@П ’ЛђЅкvвіmТ5Ц-WQ3"O2ПL@e am A@nfang,pфr"tаеe B2ut3Фe_auQхѓ+swјPs.$ŸРBй№j`9р3rbP}ат–Шenв,рUtoйi сq Farb-/Gbrаkalр.q= 2 Schwarzамd WeiопаtpE }'ђъ• sїc< 1 вPGrey2Q&cРkAndWhpŠЗHSаЬeToFitрЮДFalse 'Scale to Fit,  /T@rue 'Maпstab an Papierpassenƒ'ˆbswPs.…€2 = 100v•value in percen‚t“'Skal…ungswerta4Proz4ˆ?Oriation B|'‰ PortraitLan@dscape€2—I"AusrichtL Hoch forma#Quer„#IHigШhQu€jty€3„ж  „ ЈжHohe фŒђHPrinterРserSi*z791'Ф pQ€Out2 vPageArray, co ›sсllaŽtр-`D#", "` es wi_nu@n endl O gedaWр• C:a Ќ8c%žDrawр`ColorЭРK3HbЁToрБџт~ЅШы—„‰ЂYаˆџшj]D~еHaFCcC..c $+9 T№o 11eDТџ+ћу+Gн'т бƒ Тџ+юiЧДшџ+n&Ўџ+woEџ+џ+2R+ElsC`€ЃMsgB ;" Sheet!` not XfinedD, т] by27 Y -edРrЂ`"  EРXSelecar1 '- 9^e  |б^Cir`ektfe!\Б†gтe@^gt /!€Currр~ s С А o№…tiesAЕADebugѓ@ f"LРO + 3т.GetQяt "Р TempЁB‚ћZKQ&YЉпвзx7ЊРгv" АŽps<(0`Tг ' InЁO" & I1O~n’Ђ1Qp=`JM2ЧOCp“le2 я 3OCFirsptAng€ЋœO4ƒOCWidthь›уO5OCHePšЪt_ ?(6@?/џя*б%$8ub 'thatsв›0kБџџџџџџџџџџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџџџ %џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€P@44џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџИ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџџџ %џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€P@44џџџџџџџџџџџџџџџџџџџџџџ@ІˆћN5пџџ Цшў(џ]ћ3‘ џџ Цшў(јў ](џ ]ћŠЗ џџ Ц џџ ( lTџk џl џќэ џDџtџ x Dџ h Dџ&фўlџ $ lфў*#рўџџ 2фўрў&фўlџ , lфў*#рўџџ 2фўрў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аўўЪџџџџџџџџxџџџџЛАAttribu4џћяРўџџ  64џРўМ„T< рўDџ4џРўkџџџџџџџџ џџџџџџџџџџџџшўXџpџTџ\џPџtџxџLџHџlџ џ фўte VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2ГВVBA6­#Jt1вA stdole“` VBAProject16ж a4h100swunddruckљ ™ С Ё б щ y ! Б A б aёyиdPџ$ 8lPџ=xџPџPџxџ lPџ=pџPџPџxџ lPџ=tџPџPџpџ 0lPџ=lџPџPџtџ @ lPџ=hџPџ ѕqLџ lLџ§i,џќі<џ ѕq(џєџp&џџlџ 4џќіXџ(,џ%XџўЎџќієўєў(,џ]ћ3lѕhџ Иєdы9hџ (ѕhџ 0 єhџ Аѕ hџ „ѕџџџџџџџџЁџџйљ !I ThisLibrarya4h100swunddrucker1a4h100swunddruckerяРFBC:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA 9џџџџ aё0€lІгЈН†Лж 'C:\PROGRA~1\GEMEIN~1\SOLIDW~2\swvba.tlb SolidWorks Yџџџџй@0РFC:\WINDOWS\system32\stdole2.tlbstdole€lІгЈН†Лж QџџџџyСP1=ЃƒХ'ЮПд@ЛW4C:\Programme\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks aџџџџ‰`Yѓ‡FаUгLЖЯ.Д,љ‰ )C:\PROGRA~1\SOLIDW~2\SOLIDW~1\swconst.tlbSwConst yџџџџЁpЮ!Н}=H™•™AчgМбBC:\Programme\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb SWUtilities qџџџџз™)€main  €lІгЈН†Лжййџџџџ"=ЃƒХ'ЮПд@ЛW3=ЃƒХ'ЮПд@ЛWћ“Й=я€KЅФ™•œлlы€=ЃƒХ'ЮПд@ЛWЬt“ЮеЏYРO`?Џ :\\server\Kyocera Mita KM-2030 Џдє™hђсNŒU{ьјy dnot defined Sheetsize, print by menu or edit macro ўœўPџџфўФўЄўkЖџџed, print by menu or edit macroU&rИA„зЖј…c>џџџџџџџџџџџџxмвмц№џџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{801A2004-A66C-11D3-A8BD-00008ќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ rU€€€€~|  й1YЉбrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnЉбљ ™ С ё ™ ) A ™ ) Й Iё!A‰ј„Dџ$ 8lDџ=xџDџDџxџ lDџ=pџDџDџxџ lDџ=tџDџDџpџ 0lDџ=lџDџDџtџ @ lDџ=XџDџCPџlPџCTџ4џlџ 44џќі\џ ѕq0џ l0џ§iџќі џ ѕq џєџp џѕXџ И єXџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфўрdHp0 єўhџpџTџXџtџxџlџ<џ(пџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџИ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџ8џџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџєdы9Xџ (ѕXџ 0 єџXџ Аѕ Xџ „ѕ-----------------------------рw------------------------------- Get current sheet properties / Eigenschaften des Blattes auslesen ---------------------рw-----------------------------------------------------------------------------------------------------------------------џџџџЈрPreconditions:g = рDrawing document is open рPostconditions:r рgreetings Heikoteр)Attention, this version has many commentsрUDocument will be printed by preselected settings in the macџџџџџџџџ„§џџџ…†‡ˆ‰ŠўџџџŒŽ˜‘\”’ўџџџeџџџџ“џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџro (printer and setteings)settџџџџ˜џџџџШрHedit macro for differnt printers until every formats has its own printerрNthis Example shows how to print every drawing on demand using only one printerџџџџјЗ  (:рScale to Fit, False/Trueџџџџpџџџџ1ЗAttribute VB_Name = "a4h100swunddrucker1Р" ' *JЂPreconditions:  'Drawing document is open5ost6.will be printed by eselecsett^s in the macro (ƒr and •e)Ith€AExample @shows  to2 every d\on d$em$us€" oXnly…Hr*e€{„>for di0fferw„Ds `until„-€m4at;a\€ownƒ=e'€‹greemHeiko о € €яЁЏ,vbeTs€ h€#Qyа comYsB x!Jˆ Opv E€xplicit - ~Paper Sizes / Zeichnungsgrіп8en еРСPubР Enum `swDwg‚B_Юe™AsРН0”VerticTal€1BD2UC„3D„4•E„5A4ФV6еШ*7а3Ф8Uа2d9p1d1 q$0…А#sUse@rDefinРp=t 1Ђ$El3  Sub``in(!@m Dia6Appa4lAs Sl€dWorks.С%Modeln)ё"Doc@ƒ M.ž IФQ€Х ShlЇк "ХPs A PageSetu p#vЂProp €VarianырfƒPBšrЬ  И1PАt№Gso€.2,3... d"awie11,CC2Q45'FalsaН$I„mehržfа/&Bџє2x3 'Eі2 P..Х/'Д= kBЇœieрac1JnwpK№zusЧntrЧт7АbЄ ;-р€я$џ#_џ$‘Ÿ-- @o cSo; Сp|бЂ / Eigen EafЃрk9s B(tА0lрШЌb щ€џёs2u1v‚ѓЏA/ _УSТд ЬCa€%ш (0Rœb"7/Val/frDomуИlis0%tbзbeginnрб@, look1reеknow wКh@П ’ЛђЅкvвіmТ5Ц-WQ3"O2ПL@e am A@nfang,pфr"tаеe B2ut3Фe_auQхѓ+swјPs.$ŸРBй№j`9р3rbP}ат–Шenв,рUtoйi сq Farb-/Gbrаkalр.q= 2 Schwarzамd WeiопаtpE }'ђъ• sїc< 1 вPGrey2Q&cРkAndWhpŠЗHSаЬeToFitрЯДFalse 'Scale to Fit,  /T@rue 'Maпstab an Papierpassenƒ'ˆbswPs.…€2 = 100v•value in percen‚t“'Skal…ungswerta4Proz4ˆ?Oriation B|'‰ PortraitLan@dscape€2—I"AusrichtL Hoch forma#Quer„#IHigШhQu€jty€3„ж  „ ЈжHohe фŒђHPrinterРserSi*z791'Ф pQ€Out2 vPageArray, co ›sсllaŽtр-`D#", "` es wi_nu@n endl O gedaWр• C:a Ќ8c%žDrawр`ColorЭРK3HbЁToрБџт~ЅШы—„‰ЂYаˆчшj]C~10ѕhaFŸCƒCŸ.Ÿ.c D+9Р To 11eЁDят,,gн'т)бƒ ћТ,iчДш,hЎ,?Зoe,,12r+El†s€€ЃMsgBР;@"SheetA` notРXfineˆd, ^ byR7В @-edрrТ`" EрXSeleТc’1 '-r !^e Р|ё^!CiРrektfeA\б†Фge`^gt /C€Curr sС А o†tie‚sеADebugAЬ "2LрO +@3т0.GetQяt €" TempСBї‚zKQ&YЉпвoїxЊРгv" аŽpxs(0€Tг ' IBnO" & I1§On’В1qp=€JMŽ2OC“le2я 3OCFirрstAng ЋœO4OCWidth7ьуO5OCHe•pšt_ ?(6@џ?/я*б%$8ub 'thatsђ›PkБfroCiАalogC Y с , must be р ctly  C swModePl.ExРGsр~.т>Out2 vPageArray, copiesссllatр-`D#", "`es wi_nun enldl O cdaWр• ш Caрv8c%ŽDrawр`ColдorРK3C'P‚ŸјToFТb|‚$ЅџШ ˜Є‰Ђ №ˆшŠ]d~џеhaFŸCƒCŸ.Ÿ.c D+9 To 1ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџИ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџџџ %џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€P@44џџџџџџџџџџџџџџџџџџџџџџ@ІˆћN5пџџ Цшў(џ]ћ3‘ џџ Цшў(јў ](џ ]ћŠЗ џџ Ц џџ ( lTџk џl џќэ џDџtџ x Dџ h Dџ&фўlџ $ lфў*#рўџџ 2фўрў&фўlџ , lфў*#рўџџ 2фўрў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аў4џћяРўџџ  64џРў.(џ%\џўЎ4џќ‹:аўўЪџџџџџџџџxџџџџЛАAttribu4џћяРўџџ  64џРўМ„T< рўDџ4џРўkџџџџџџџџ џџџџџџџџџџџџшўXџpџTџ\џPџtџxџLџHџlџ џ фўte VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2ГВVBA6­#Jt1вA stdole“` VBAProject16ж a4h100swunddruckљ ™ С Ё б щ y ! Б A б aёy№|Pџ$ 8lPџ=xџPџPџxџ lPџ=pџPџPџxџ lPџ=tџPџPџpџ 0lPџ=lџPџPџtџ @ lPџ=hџPџ ѕqLџ lLџ§i,џќі<џ ѕq(џєџp&џџlџ 4џќіXџ(,џ%XџўЎџќієўєў(,џ]ћ3xѕhџ И єhџ єdы9hџ (ѕhџ 0 єhџ Аѕ џџџџџџџџЁџџйљ !I ThisLibrarya4h100swunddrucker1a4h100swunddruckerяРFBC:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA 9џџџџ aё0€lІгЈН†Лж 'C:\PROGRA~1\GEMEIN~1\SOLIDW~2\swvba.tlb SolidWorks Yџџџџй@0РFC:\WINDOWS\system32\stdole2.tlbstdole€lІгЈН†Лж QџџџџyСP1=ЃƒХ'ЮПд@ЛW4C:\Programme\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks aџџџџ‰`Yѓ‡FаUгLЖЯ.Д,љ‰ )C:\PROGRA~1\SOLIDW~2\SOLIDW~1\swconst.tlbSwConst yџџџџЁpЮ!Н}=H™•™AчgМбBC:\Programme\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb SWUtilities qџџџџз™)€main  €lІгЈН†Лжййџџџџ"=ЃƒХ'ЮПд@ЛW3=ЃƒХ'ЮПд@ЛWћ“Й=я€KЅФ™•œлlы€=ЃƒХ'ЮПд@ЛWЬt“ЮеЏYРO`?Џ :\\server\Kyocera Mita KM-2030 Џдє™hђсNŒU{ьјy dnot defined Sheetsize, print by menu or edit macroXџtџxџlџ<џ( ўœўPџџфўФўЄўed, print by menu or edit macroU&rИA„зЖј…c>џџџџџџџџџџџџxм)kц№џџџџџџџџџџвмц№џџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџb(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{801A2004-A66C-11D3-A8BD-000082 ўœў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџrU€€€€~|  й1YЉбrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnЉбљ ™ С ё ™ ) A ™ ) Й Iё!A‰ј„Dџ$ 8lDџ=xџDџDџxџ lDџ=pџDџDџxџ lDџ=tџDџDџpџ 0lDџ=lџDџDџtџ @ lDџ=XџDџCPџlPџCTџ4џlџ 44џќі\џ ѕq0џ l0џ§iџќі џ ѕq џєџp џѕXџ И єXџ ўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфў.(,џ%XџўЎџќ‹:дўџћяфўџџ  6џфўр|Hp0 єўhџpџTџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџИ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџ8џџџџ0ƒўџџџџџџџxџџџџџџџџџџџџџџ %‚ џџџџўџџџЈџџўџџџџџџџџџєdы9Xџ (ѕXџ 0 єџXџ Аѕ Xџ „ѕe = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2џџџџџџџџџџџџџџџџџџџџџџџJst (OKI C5200n auf Ne01:Xџ œ єџXџ АŠ(џ%\џўЎ4џќішўшў(џ]ћ3q Џдє™hђсNŒU{ьјy Name =  ˆ < TemplateName =  < PaperSize =  e = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2џџџџџџџџџџџџџџџџџџџџџџџJst (OKI C5200n auf Ne01:Xџ œ єџXџ АŠ(џ%\џўЎ4џќішўшў(џ]ћ3q Џдє™hђсNŒU{ьјy Name =  ˆ < TemplateName =  < PaperSize =  hџ „ѕhџ œCTџ( lTџk&џl(џќэ<џPџtџ x Pџ h Pџчєў(,џ]ћ3ѕhџ И єhџ єdы9hџ (ѕhџ 0 єhџ Аѕ hџ „ѕhџ œCTџ( lTџk&џl(џќэ<џPџtџ x Pџ h Pџчєў(џ ](,џ ]ћŠКѕhџ И єџhџ ѕhџ 0 єhџ Аѕ hџ „ѕhџ œCTџ( lTџk&џl(џќэ<џPџtџ x Pџ h Pџч+'Єў'Фў'фўѕ:,џNџџ 6џфўФўЄў& ўlџ $ l ў*#œўџџ  2 ўœў& ўlџ ,l ў*#œўџџ