Le portail francophone de la géomatique

Bonjour,

Je cherche à mettre au point un module  pour produire automatiquement des cartes sous MapBasic. J'ai mis au point un script mais pour certaines  cartes, il ne fait pas apparaitre la légende.
Voici mon script concernant la mise en page, pouvez vous m'aider à comprendre d'ou vient l'erreur? A noter : aucun message d'erreur apparait sous Mapinfo

Marie75

Sub MAP

Layout   
   
  Position (1,1.30208) Units "in"
  Width 6.625 Units "in" Height 4.47917 Units "in"
    Dim uniqueStringName As String
    uniqueStringName = "Set " + SessionInfo(1)
    Set CoordSys Layout Units "in"
    OnError Goto HandleError
    Create Frame (0.3806,0.291) (11.2271,6.6229)    Pen (1,1,0)     Brush (2,13693183,16777215)    Title "carte"    FillFrame Off
    Create Frame (0.7382,6.7486) (11.3944,8.0507)    Pen (1,1,0)     Brush (2,16777215,16777215)    Title "Légende de carte:2"    FillFrame Off
    Create Rect (0.3389,0.2389) (11.2868,8.0847)    Pen (1,2,0)     Brush (1,16777215,16777215)
    Create Line (11.2778,6.6125) (0.3194,6.6333)    Pen (1,2,0)
    Set Layout Ruler On Pagebreaks On Frame Contents Active  Zoom 34.9169 Center (8.87044,5.84722) Extents To Fit  Set Window FrontWindow() Autoscroll On
    Run Command uniqueStringName
    '
    Set Window FrontWindow() Printer
    Name "\\montreal\Xerox WorkCentre 7335 PS" Orientation Landscape Copies 1 Papersize 9
    Dim WorkspaceMaximizedWindow As Integer
    WorkspaceMaximizedWindow = Frontwindow()
    Set Window WorkspaceMaximizedWindow Max
    Set Map Window WorkspaceMaximizedWindow 'Preserve Scale
    'Undim WorkspaceMaximizedWindow

    HandleError:
    'Undim WorkspaceMaximizedWindow
   
End Sub