How to print table information using mapbasic

Question

How do I print a tables information in Mapbasic? I have a snippet of code - I want to select all features within a buffer and then print the results as a message in mapinfo that can be copied out into word.

Select * from Land_charges_test
Create Object As Buffer From Selection Width 500 Units "m" Type Spherical 
   Resolution 100 Into Table Land_charges_test Data ID=ID,Tree=Tree

Select * from tree, Land_charges_test 
   where tree.Obj Within Land_charges_test.Obj into Selection
Browse * From Selection

**Print Selection**

It's the print selection function I need, but cannot find

Answer 1

The print command doesn't really work like that, you can't print a selection or table. You can print the value held in a field of a specific record though, so what you want to do is build a string for each record and then print that string.

e.g.

Dim nCols, i as Integer
Dim colAlias as Alias
Dim str as String

Select * from Land_charges_test Create Object As Buffer From Selection Width 500 Units "m" Type Spherical Resolution 100 Into Table Land_charges_test Data ID=ID,Tree=Tree

Select * from tree, Land_charges_test where tree.Obj Within Land_charges_test.Obj into Selection 

Browse * From Selection

nCols = NumCols(Selection)

Fetch first from Selection
Do While Not EOT(Selection)
    For i = 1 to nCols
        colAlias = "Selection.COL" & i
        str = str & colAlias
        If i < nCols then
            str = str & " | "
        End if
    Next
    Print str
    Fetch Next from Selection
Loop

Note, I haven't tested the code and it's been a while since I've used MapBasic so please excuse if there are any errors but this should give you the gist of what you need to do.