>I tried
>
>PTT = GETPRINTER ()
>
>SET PRINTER TO PTT
>
>APRINTERS(PT1 , 1)
>
>? PT1 [1]
>? PT1 [2]
>
>But I can not get the print port yet
>
>I just want to store to port to a variable

local lcPrinter as String, lnI as Integer, lcPort as String
local array laPrinters[1]

lcPrinter = getprinter()

aPrinters(laPrinters)
&& Use ascan to search for the selected printer
lnI = ascan(m.lcPrinter, laPrinters) && check syntax on this one for correct flags

lcPort = laPrinters[m.lnI,3] && Check this also

I write strictly from memory, you would need to check syntax for the functions.