WPC}^ 3 GRgRZW>̏8P1ȉzzS> ((:I[(`#[л݉@v/=8 ]VƢ}aItFiUjX oZo<*~1hd옸S n縁u7' ~/ M7?TnH*;Vڣ}6кD@PfϘO:0?:}|ٜ?8nc5\}!Mu~dzs+a9 ߹XWWD`c}sw"ͤ7]0k >|6x栫J0%$-jjA;X3 2w[aґ-\E^#5'u~RQ{@+x6pEVۯUs*ɒT 5Eo(}#g+<B 0d# % SrwA^ E4Qet mv 0bUNU,=pi 36N Q 0QEQUFQT QTQ 0)Q %%R !JR kR +R 'R R %R !S 3S 1HS -yS !S -SS SSUTSNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNTNT BUUUUUUUUUUUUUUUU D51U1U1U1U1U ASfUfUfUfUfUfUfUfUfUfUfUfUfUfUfUfUfUfUfUfU B*UUUUUUUUUUUUUUUUUUUUUUUUUUUU C0UUUUUUUUUUUUUUUUUUUUUUU D3V B7FV B7}V}V}V}V}V}V 0VVVV 06W 0DWWW D+WWW C'X CAXAXAXAXAXAXAX D3[X BX D3XXXXXXX BXXXX CXXXXXX BYYYY2Y2Y2Y2Y2Y2Y2Y2Y2Y2Y2Y2Y2Y CYYYYY 0ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ D3ZZZZ BZZ D3[[[[[ D/7[ D3f[ D3[ B*[ D3[ B*)\ D3S\ B*\ D3\ B\ D5] D-5] DKb]b]b]b]b]b]b]b]b]b] C] C]]]] C] C] C^ C/^ CI^ Cc^&>ї$        HP LaserJet 5L0'X@P+d* C*{p4 wo4)o* 1.wcm3|xUT:Reset Ln NumReset Ln Num n6Times New Roman Regular,iAZArial  f ' XOXX'X  X XO  _ Macro Margins_Set.wcm_@Version_13.0_Ԁ_2006__ԀMarch_Ԁ_16_Ԉ(#Page  1  ڀof  6  ڈ  CharlesRossiter@!_charles@rossiter.za_Ԉ o AY) xdE-xA 95 H:\Program Files\WordPerfect Office X3\Macros\Master Set\Margins Set.wcm4555536$CHECKVERSION11@H[L@[ LIB,+RKEYrRKEY[ 2}Ho Margins SetLNyo9This macro is to correct for bug in WPWin9 and later onlyLNBn)@HE*}HoLQUITLOB*@VRIGHTVLEFTVTOPVBOTTOMVSCALEVWIDTHVHEIGHT VW VH VUVQUITVLABELHMAXWMAXHx LIB)HRT =oSoftware\Corel\WordPerfect\rRKEYo \Display\RKEY!H[LIrRKEYLNB2*REGKEY"HrREGKEYLI'oUnits of MeasureLNB9*UNITS$rUNITS%([*@[ VDISPLAY a?VSTEPxVSCALE o i VU&T([*-@[VDISPLAY a?VSTEP aQ}@VSCALE o cm VU'T([*@[VDISPLAY a@VSTEP aVG@VSCALE o mm VU(T([*T@[VDISPLAY[ VSTEP an0@VSCALE o p VU)T([*@[VDISPLAY[dVSTEP[VSCALE o w VU*T@[VDISPLAY a?VSTEPxVSCALE o " VU+-HBVLEFTrVLEFTOLEFT.HBVRIGHTrVRIGHTORIGHT/HBaVTOPrVTOPOTOP0HBbVBOTTOMrVBOTTOMOBOTTOM1[VLABEL2HB,Ao* 3[VLABEL4, LPAGEMARGINS5 8HBB@[-F 9H/oDefine Label MarginsLNeo/Do you really wish to set the margins on label HBB@ o?LN[LIBn)VCHECK;rVCHECK[*7 <HE*=; >?F AHEBHECHEDHBdAPOS1EHESFHBdAPOS2GrPOS2rPOS1HBHBVWIDTHHHE&IHB5LINE1JH[LI b(@LXEKHB5LINE2LrLINE2rLINE1HBaHBbVHEIGHTMHENHEOHERSrVLABEL{ THBXAVWIDTHUHBYAVHEIGHTV X[rVWIDTH:[!WMAXY[rVHEIGHT:[!HMAX[HrVWIDTHrVLEFTrVRIGHTLQB )rVSCALE! VW\HrVHEIGHTrVTOPrVBOTTOMLQB )rVSCALE! VH]x' rVW:[d"[d! rVU VW^x' rVH:[d"[d! rVU VHarVLABELH oPMLQ[2LE[2LE[LE[xLE[LI)oSet Label MarginsLNB'@buH oPMLQ[2LE[2LE[LE[xLE[LI'oSet Page MarginsLNB'@cdH oPMLQ[LQ[(LE[ LE[2LE[LErVDISPLAYLIvVLEFTLR[L @rWMAXL @rVSTEPL @B x'@eH oPMLQ[LQ[(LE[LE[2LE[LErVDISPLAYLIvVRIGHTLR[L @rWMAXL @rVSTEPL @B x'@fH oPMLQ[LQ[(LE[,LE[2LE[LErVDISPLAYLIvVTOPLR[L @rHMAXL @rVSTEPL @B x'@gH oPMLQ[LQ[(LE[=LE[2LE[LErVDISPLAYLIvVBOTTOMLR[L @rHMAXL @rVSTEPL @B x'@hH oPMLQ[LQ[xLE[ LE[2LE[LE[LIo All as &LeftLNB'@irVLABELcH oPMLQ[LQ[xLE[LE[2LE[LE[LIo All &ZeroLNB'@jH oPMLQ[LQ[xLE[LE[2LE[LE[LIo&MinimumLNB'@klH oPMLQ[LQ[ LE[dLE[(LE[LE[LI o&OKLNB'@mH oPMLQ[LQ[dLE[dLE[(LE[LE[LIo&ApplyLNB'@nH oPMLQ[ LQ[LE[dLE[(LE[LE[LIo&CancelLNB'@oH oPMLQ[LQ[ LE[ LE[LE[LE[LIoLeft:LQB'@pH oPMLQ[LQ[ LE[LE[LE[LE[LIoRight:LQB'@qH oPMLQ[LQ[ LE[.LE[LE[LE[LIoTop:LQB'@rH oPMLQ[LQ[ LE[?LE[LE[LE[LIoBottom:LQB'@sH oPMLQ[LQ[LE[0LE[(LE[LE[LI rVWLQB'@tH oPMLQ[LQ[LE[?LE[(LE[LE[LI rVHLQB'@uH oPMLQ[LQ[dLE[0LE[<LE[LE[LI)oText space width:LQB'@vH oPMLQ[LQ[dLE[?LE[<LE[LE[LI+oText space height:LQB'@wH oPMLQ[LQ[aLE[-LE[gLE[LE[LIB{'@xH oPMLQ[ LQ[ LE[RLE[LE[LE[LIco.&Non-zero margins: set by minimum page marginsLNB'@{HoPM.10LQ[LIE'|H oPMLQo WordPerfectLQoACTIONLO o201LQB'@~HE*[[SACTION[([*@H oPMLQ[LQB'@rVLEFTVRIGHTrVLEFTrHMAX-rHMAXVTOPrHMAXVBOTTOMrVLEFTVTOPrVLEFTVBOTTOM SETMARGINS@HoPM.10LQ[LIE'H oPMLQo WordPerfectLQoACTIONLO o201LQB'@'([*H@H oPMLQ[LQB'@[VLEFT[VRIGHT[VTOP[VBOTTOM SETMARGINS@rVLABEL  CHECKMARGINS@H oPMLQo WordPerfectLQoACTIONLO o201LQB'@'([*@H oPMLQ[LQB'@ SETMARGINS@,LQUIT'([* @H oPMLQ[LQB'@ SETMARGINS@HoPM.10LQ[LIE'H oPMLQo WordPerfectLQoACTIONLO o201LQB'@'([ *!@H oPMLQ[ LQB'@rOLEFTVLEFTrORIGHTVRIGHTrOTOPVTOPrOBOTTOMVBOTTOM SETMARGINS@HE*'([ *'@H oPMLQ[ LQB'@Ho Margins SetLN{o:Non-zero values for the label margins occur when the page rHRToFminimum margins overlap at least some of the labels on the label sheet rHRT rHRToEThis is particulalrly common for InkJet and DeskJet printers, many of rHRToA which have a large unprintable margin at the bottom of the page. rHRT rHRTo@The non-zero margins apply to all the labels on the label sheet. rHRT rHRToBFor such printers, it can be useful to change the label definition rHRToEto reduce the number of label rows by 1 (or halve the number of rows) rHRTgo0and to re-feed the label sheet the other way up.LNBn)@H oPMLQo WordPerfectLQoACTIONLO o201LQB'@'@[|^-W-rVLEFTHBTA29(HBTAVLEFT9(rVRIGHTHBUA2(HBUAVRIGHT(rVTOPHBVA2(HBVAVTOP(rVBOTTOMHBWA2:)HBWAVBOTTOM:)rVLEFTrWMAX-)rWMAXVLEFT)rVRIGHTrWMAX-)rWMAXVRIGHT)rVTOPrHMAX-K*rHMAXVTOPK*rVBOTTOMrHMAX-*rHMAXVBOTTOM*HrVLEFTLXB@HrVRIGHTLXB@HrVTOPLXBa@HrVBOTTOMLXBb@HrVWIDTHrVLEFTrVRIGHTLQB )rVSCALE! VWHrVHEIGHTrVTOPrVBOTTOMLQB )rVSCALE! VHx' rVW:[d"[d! rVU VWx' rVH:[d"[d! rVU VHHoPM.207LQ rVWLQE'HoPM.208LQ rVHLQE'H[LIB~@HE܁[|5Q.J.rVLEFTrVRIGHTrVTOPrVBOTTOM[- .HoPM.10LQ[LIE'?.HoPM.10LQ[LIE'[|5rVLABEL0Ho Margins SetLNoo4Label margins set. Do not set page margins as well. rHRT rHRTo?Otherwise, the label margins will be reset to the page margins rHRT rHRToGThis is the WPWin9 and later bug: label margins cannot be set manually. rHRTLNBn)@0HE*44Hx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-4HvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@rVANS[-4HE*44[|5[)51ACTION'1R LPAGEMARGINS1Q.LQUIT+'1i- CHECKMARGINS+10CHECKVERSION11#1' SETMARGINSN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter (Z3$ ї! XOXX'X  X XO  . Z.Century Schoolbook NewDialogPM( $FEDERAL CASESSTATE CASESCASESFEDERAL STATUTESSTATE STATUTESSTATUTESFEDERAL RULESSTATE RULESRULESFEDERAL REGULATIONSSTATE REGULATIONSREGULATIONSOTHER AUTHORITIESHs. Z<Century Schoolbook RegularLevel 1Level 2Level 3Level 4Level 5 dYYYY)!dxdxiE<<C&0 d d,Sticky Notedd'dxd3+0 d d d3+0 d d d(Z2$ ї! XOXX'X  X XO  (Z3$ ї! XOXX'X  X XO  ($$   1  'dxdd d'dxd  d'dxdP Pdd dLevel 1Level 2Level 3Level 4Level 5ddd>:StandardFontStandard Font Choice&E2%%&TXE X%&E2'dxd d'dxd' dxd'dxd$$$$'dxd&P d d&&&&'dxd&p d Pd(((('dxd&p Pd d****'dxd dYYYYY'dxdY'dxdYYYY?Single Blue!dxdxd(d2d(#h(#h(#2006March16 72  MacrotosetmarginsparticularlyforlabelscorrectionforbuginWPWin9andlater  MarginsforlabelsneedtobesetintheLabelsdialog.     CharlesRossiter 0 0 (# (#charles@rossiter.co.za +(#(#(#ForWordPerfectversions9X3  t o @ @A@ dd AUsage:   1.Selectalabeldefinition   2.Ifthemarginsofthelabelsneedtobechanged,runmacro MarginsSet.wcm  p k  Do NOT changethemarginsthroughFormat,Margins.Thiswillsetthelabelmarginstoequalorexceed   thedefaultpageminimummargins   @+& @  ,G ,  EndIfPlatform("Comments01")#   , ,G# +&   Application(WordPerfect;"WordPerfect";Default) ]X     CallCheckVersion11()2(#. //CheckBuildofWPWin11     i(#. //Assumptionthatthemiddle20%ofeachpageorlabelistheminimumtextspaceavailable YT  RKey=VersionInfo(WordPerfectVersion!;FileMajorVersion!)  If(RKey<9)  MessageBox(;"MarginsSet";"ThismacroistocorrectforbuginWPWin9andlateronly")  Quit UP EndIf  OnCancel(lQuit)  GlobalvRight;vLeft;vTop;vBottom;vScale;vWidth;vHeight;vW;vH;vU;vQuit;vLabel;HMax;WMax QL GlobalHRt=NToC(0F90Ah)    &&4(#. //GetUnitsofMeasure   c RKey="Software\Corel\WordPerfect\"+RKey+"\Display\"  RegKey=RegistryOpenKey(CurrentUser!;RKey) MH  Units=RegistryQueryValue(RegKey;"UnitsofMeasure")  ! Switch(Units)  # CaseOf1:vDisplay=9vStep=0.1 h vScale=1200   p vU="i" I!D$ CaseOf2:vDisplay=3vStep=0.25 h vScale=472.27 p vU="cm" "% CaseOf3:vDisplay=8vStep=2.5 h vScale=47.227 p vU="mm" "& CaseOf4:vDisplay=2vStep=10 h vScale=16.667 p vU="p" #' CaseOf5:vDisplay=1vStep=100 h vScale=1   p vU="w" E$@( Default:vDisplay=6vStep=0.1 h vScale=1200   p vU="""" %) EndSwitch %* vLeft=MarginLeft() 0  oLeft=vLeft #||,(#.+(#(##//Getandsavecurrentmargins A'< ,  vRight=MarginRight() 0  oRight=vRight( -(#(# vTop=MarginTop() 0  oTop=vTop(!.(#(# vBottom=MarginBottom()0  oBottom=vBottom~)y"/(#(# vLabel=1 =*8#0 If(?CurrentLabel="") aa:(#." " "//NotinaLabel *#1  ԀvLabel=0 +$2 ЀGo(lPageMargins) z,u%3 EndIf 9-4&4   -&5  3(#. //LabelMarginsRoutine   If(?Page>1)  vCheck=MessageBox(;"DefineLabelMargins"; ~ Ѐ"Doyoureallywishtosetthemarginsonlabel"+?Page+"?";YesNo!) B = If(vCheck=7)   Quit   Else  z EndIf > 9 EndIf    ee4(#. //Determinelabelsize     `PosPageTop() {v  HardPageBreak() :5  PosCharPrevious()   Pos1=?Position   FlushRight() wr  Pos2=?Position 61  vWidth=Pos2Pos1+MarginLeft()+MarginRight() =(#.,,?//LabelWidth    DeleteCharPrevious()   Line1=?Line sn  Advance(AdvanceDown!;12i) >>+(#.e e %//Onlyadvancestolabelbottom 2-  Line2=?Line  vHeight=Line2Line1+MarginTop()+MarginBottom() <(#.,,B//LabelHeight   PosPageTop() oj SelectPageNext() .) DeleteCharNext()   4(#. //PageMarginsRoutineq kf Label(lPageMargins)  *% If(NOTvLabel) RR5(#.  //DeterminePagesize   -vWidth=?PaperWidth >(#.& & //PageWidth   vHeight=?PaperLength =(#. //PageHeight gb  <EndIf &! WMax=2*vWidth/5 gg/(#. //Assumingmaximummargins !  HMax=2*vHeight/5 c ^" vW=StrNum(vWidthvLeftvRight)/vScale !$ vH=StrNum(vHeightvTopvBottom)/vScale "% vW=((10000*vW)DIV100)/100+vU 7(#.-@7(#//Twodecimalsonly _#Z&  vH=((10000*vH)DIV100)/100+vU $'    $( WW;(#. //MarginDialog   If(vLabel) ` UK.,US.,DialogDefine("PM";50;50;210;120;Percent!;"SetLabelMargins")  Else   ` DialogDefine("PM";50;50;210;120;Percent!;"SetPageMargins") ~ Endif B = DialogAddCounter("PM";1;40;10;50;14;vDisplay;vLeft;0;WMax;vStep)   DialogAddCounter("PM";2;40;27;50;14;vDisplay;vRight;0;WMax;vStep)   DialogAddCounter("PM";3;40;44;50;14;vDisplay;vTop;0;HMax;vStep)  z DialogAddCounter("PM";4;40;61;50;14;vDisplay;vBottom;0;Hmax;vStep) > 9 DialogAddPushButton("PM";5;120;10;50;14;0;"Allas&Left")   If(vLabel) ` DialogAddPushButton("PM";6;120;27;50;14;0;"All&Zero")    Else   ` DialogAddPushButton("PM";6;120;27;50;14;0;"&Minimum") {v  Endif :5  DialogAddPushButton("PM";7;10;100;40;14;0;"&OK")   DialogAddPushButton("PM";8;100;100;40;14;0;"&Apply")   DialogAddPushButton("PM";9;150;100;40;14;0;"&Cancel") wr  US.,UK.,}DialogAddText("PM";201;10;12;30;15;Left!;"Left:") 61  DialogAddText("PM";202;10;29;30;15;Left!;"Right:")   DialogAddText("PM";203;10;46;30;15;Left!;"Top:")   DialogAddText("PM";204;10;63;30;15;Left!;"Bottom:") sn  DialogAddText("PM";207;160;48;40;15;Left!;vW) 2- DialogAddText("PM";208;160;63;40;15;Left!;vH)  DialogAddText("PM";205;100;48;60;15;Left!;"Textspacewidth:")  DialogAddText("PM";206;100;63;60;15;Left!;"Textspaceheight:") oj DialogAddFrame("PM";209;97;45;103;30;Frame!) .) DialogAddPushButton("PM";10;10;82;180;15;0;  Ѐ"&Nonzeromargins:setbyminimumpagemargins")  RegionShowWindow("PM.10";Hide!) *% DialogShow("PM";"WordPerfect";Action;"201")  CallBackWait() gb  Label(Action)hh7(#.//Callbackroutine !  b%Switch(Action[3]) "!#  CaseOf5:/(#.//SetmarginsequaltoLeft "%   &DialogDismiss("PM";5) _#Z& vRight=vLeft $' If(vLeft>HMax) $( vTop=HMax `  vBottom=HMax %) Else [&V* vTop=vLeft `  vBottom=vLeft ' + EndIf ' , Call(SetMargins) (!- RegionShowWindow("PM.10";Hide!) W)R". DialogShow("PM";"WordPerfect";Action;"201") *#/   +$1  CaseOf6:-(#.//Setmarginstominimumor0   ~(DialogDismiss("PM";6)  vLeft=0 `  vRight=0 ~ vTop=0 `  vBottom=0 B = Call(SetMargins)   If(vLabel)   Call(CheckMargins) ==(#. //Flagifminimummarginlabelsarenonzero )  z EndIf > 9 DialogShow("PM";"WordPerfect";Action;"201")    CaseOf7:  uu?(#.//OKbutton {v   +DialogDismiss("PM";7) :5  Call(SetMargins)   Go(lQuit)    CaseOf8:<(#.//Applybutton 61   +DialogDismiss("PM";8)   Call(SetMargins)   RegionShowWindow("PM.10";Hide!) sn  DialogShow("PM";"WordPerfect";Action;"201") 2-  CaseOf9:  OO;(#.??//Cancelbutton   7-DialogDismiss("PM";9) oj vLeft=oLeft `  vRight=oRight .(#.**(//Resettooriginalandquit .)  .vTop=oTop `  vBottom=oBottom  Call(SetMargins)  Quit kf  CaseOf10:   DialogDismiss("PM";10)  MessageBox(;"MarginsSet";"Nonzerovaluesforthelabelmarginsoccurwhenthepage" &! Ѐ+HRt+"minimummarginsoverlapatleastsomeofthelabelsonthelabelsheet"+HRt+HRt+   "ThisisparticulalrlycommonforInkJetandDeskJetprinters,manyof"+HRt+ ! "whichhavealargeunprintablemarginatthebottomofthepage."+HRt+HRt+ c ^" "Thenonzeromarginsapplytoallthelabelsonthelabelsheet."+HRt+HRt+ "!# "Forsuchprinters,itcanbeusefultochangethelabeldefinition"+HRt+ !$ "toreducethenumberoflabelrowsby1(orhalvethenumberofrows)"+HRt+ "% "andtorefeedthelabelsheettheotherwayup.") _#Z& DialogShow("PM";"WordPerfect";Action;"201") $( EndSwitch [&V* Return ' +   W)R".  ProcedureSetMargins()   If(vLeftWMax)0 vLeft=WMax0h (# (#0h(#h(#EndIf> 9(#(# If(vRight>WMax)0 vRight=WMax0h (# (#0h(#h(#EndIf (#(# If(vTop>HMax)0 vTop=HMax0h (# (#0h(#h(#EndIf  (#(# If(vBottom>HMax)0 vBottom=HMax0 (# (#EndIf{v (#(# MarginLeft(vLeft)   MarginRight(vRight)   MarginTop(vTop) wr  MarginBottom(vBottom) 61  vW=StrNum(vWidthvLeftvRight)/vScale   vH=StrNum(vHeightvTopvBottom)/vScale sn  vW=((10000*vW)DIV100)/100+vU !(#.///Displaysizewithmaximumof2decimals 2-  8vH=((10000*vH)DIV100)/100+vU  RegionSetWindowText("PM.207";vW) oj RegionSetWindowText("PM.208";vH) .) Display(On!)  Redisplay() kf EndProc   ProcedureCheckMargins()==(#.  #//Flagifminimummarginlabelsarenonzero =: &! If(vLeft+vRight+vTop+vBottom>0)   RegionShowWindow("PM.10";Show!) ! Else c ^" RegionShowWindow("PM.10";Hide!) "!# EndIf !$ EndProc "%  Label(lQuit)  $( If(vLabel) %) ЀMessageBox(;"MarginsSet";"Labelmarginsset.Donotsetpagemarginsaswell."+HRt+ [&V*   HRt+"Otherwise,thelabelmarginswillberesettothepagemargins"+HRt+ ' +   HRt+"ThisistheWPWin9andlaterbug:labelmarginscannotbesetmanually."+HRt) ' , EndIf W)R". Quit *#/    +$1 ProcedureCheckVersion11()  2(#. //CheckBuildofWPWin11  ~ =vHRt=NToC(63754) B = nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!)   If(nnn<11000000000300.0andnnn>11000000000000.0)   MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+  z "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ > 9 "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+   "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt;    OKCancel!|IconWarning!) {v  If(vAns>1)0 ` Quit0 ` (#` (#EndIf0 (# (#EndIf (#(#  EndProc  wr  sA