Thiago,

Eu fiz uma pequena e simples rotina que gera um TXT com a estrutura da tabela...e então poderia mandar este TXT para a impressora.

Eu acho o display stru to printer muito bagunçado...

veja :

Parameters arquivo

*
If !Used(arquivo)
	Use (arquivo)
Endif
Select (arquivo)
Afields( estru)
nro = Alen(estru)/Alen(estru,2)
Set Console Off
Set Textmerge On
Set Textmerge To ("c:\"+arquivo+".estrutura.txt")
i=1

For i=1 To nro

\<<estru(i,1)+CHR(9)+CHR(9)+" "+estru(i,2)+"("+ltRIM(STR(estru(i,3)))>>
	If estru(i,4)<>0
\\<<CHR(9)+","+ltrIM(STR(estru(i,4)))+")">>
	Else
\\<<CHR(9)+")">>
	Endif

Endfor
\
\Indices
\

For i=1 To 99
	If !Empty(Key(i))
		\<<STR(i,2)+" "+KEY(i)>>
	Endif
Endfor

Set Textmerge Off
Set Textmerge To
Set Console On