Para essas coisas mais detalhadas eu uso HTML.
Desenhe tudo em HTML, depois troque por variáveis os campos da tabela.
Código: Selecionar todos
cArq := CriaArqImpressao('estoque001.html')
? '<html><head>'
? '</head><title>ESTOQUE POR GRUPO</title>'
?? '<meta http-equiv = "Content-Type" content="text/html; charset=iso-8859-1">'
...
? '<tr bgcolor="#FFCCCC">'
?? '<td> Referência'
?? '<td> Mercadoria'
?? '<td> A Vista'
?? '<td> A Prazo </tr>'
...
? '<tr bgcolor="#FFFFCC"><td>'+eq->cod_mercad
?? '<td>'+pad(eq->mercadoria,30)
?? '<td align=right>'+transform(eq->avista,'@E 99,999,999.99')
?? '<td align=right>'+transform(eq->prazo,'@E 99,999,999.99')+'</tr>'
eq->(dbskip())
...
FecharImpres()
hwg_Shellexecute(cArq,"open",nil,cPasta,1)
Saudações,
Itamar M. Lins Jr.


