Wonder if anyone can help.
Since the latest updates into V19 I have a mapbasic tool that won't work correctly.
It is for printing farm maps and it wont print the scalebar.
Any help greatly appreciated.
Some of the code is:
'Set coordinates for layout
SET COORDSYS LAYOUT UNITS "mm"
SET PAPER UNITS "mm"
CREATE FRAME
INTO WINDOW LayID
(Origin.x+1,Origin.y+1)(Extent.x-Legend-1,Extent.y-1)
PEN (0,0,0)
TITLE WINDOWINFO(Win2Id,WIN_INFO_NAME)
'Get origin for Scale bar at top right corner of map
SET COORDSYS EARTH PROJECTION 8,13,"m",gAMGZone,0,0.9996,500000,10000000
SET MAP WINDOW Win2Id COORDSYS Earth PROJECTION 8,13,"m",147,0,0.9996,500000,10000000
DELETE FROM WINDOWINFO(Win2Id,WIN_INFO_TABLE) 'Delete cosmetic layer
SET STYLE PEN MAKEPEN(1,2,0)
Size = (gPrtScale / 10)*.75
' Orig.x = MAPPERINFO(Win2Id,MAPPER_INFO_MAXX) - gPrtScale / 100 - Size
' Orig.y = MAPPERINFO(Win2Id,MAPPER_INFO_MAXY) - gPrtScale / 100
Orig.x = MAPPERINFO(Win2Id,MAPPER_INFO_MINX) + gPrtScale / 100
Orig.y = MAPPERINFO(Win2Id,MAPPER_INFO_MINY) + gPrtScale / 100
'Draw base line then ticks for scale bar
SET STYLE FONT MAKEFONT(FName,0,8,BLACK,-1)
SET MAP WINDOW Win2Id LAYER 0 EDITABLE ON
CREATE LINE INTO WINDOW Win2Id (Orig.x,Orig.y)(Orig.x+Size,Orig.y)
FOR Pos# = 1 TO 5
Pos.x = Orig.x + (Pos# - 1) * (Size / 4)
Pos.y = Orig.y
CREATE LINE INTO WINDOW Win2Id (Pos.x,Pos.y)(Pos.x,Pos.y+(Size/20))
Pos.y = Pos.y + Size/10
CREATE TEXT INTO WINDOW Win2Id STR$((Pos#-1)*(Size/4)) (Pos.x,Pos.y)(Pos.x+Size,Pos.y-(Size/20))
NEXT
CREATE TEXT INTO WINDOW Win2Id "Scale 1:"+STR$(gPrtScale)
(Orig.x+Size/3,Orig.y-Size/30)(Pos.x+Size,Orig.y-(Size/10))
------------------------------
Dale Thomas
Tully Sugar Ltd
Tully QLD
------------------------------