1. Description

    For simple layouts it is rather easier to make drawboxes by Layout and VB code than using EMF overlays. Here you'll find some script for using Layout configuration to draw boxes.

  2. Answer

    Layout configuration:
    use following settings for Box printing:
    enter "Height=" plus value in centimeter for the box to the Comment
    use Width for box width
    use Line Spacing for line thickness (in TWIPS, no matter of "Fixed" is activated)
    enter BasicParameter
    change FontColor if you want to have Background color in the box
    Private Sub OnLayout()<br>&nbsp;&nbsp;&nbsp; Select Case Layout.BasicParameter<br>&nbsp;&nbsp;&nbsp; Case "DrawBox"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DrawBox<br>&nbsp;&nbsp;&nbsp; End Select<br>End
    Sub<br><br>Private Sub DrawBox()<br>&nbsp;&nbsp; &nbsp;Layout.DrawBox(Layout.Top, Layout.Left,
    Fix(Val(Mid(Layout.Comment, InStr(Layout.Comment, "=")+1)*576)), Layout.Width, Layout.FontColor,, Layout.LineSpacing , ,)<br>End Sub

Date created:
01/22/2015 11:38:32
Last updated:
02/11/2015 10:25:42