//Você pode imprimir direto na porta matricial

INTERNAL Procedure rot_matricial()
sPort is string = tabcfglocal.tabcfglocal_impressora_matricial
nNumFile is int = fOpen(sPort, foCreateIfNotExist+foAdd+foReadWrite+foAnsi)
IF nNumFile = -1 THEN
Error("Erro ao abrir a porta da impressora " + sPort, ErrorInfo())
RETURN
END
sAtivarconsensado is string=Charact(15)
sDesativarconsensado is string=Charact(18)
sAtivarexpandido is string=Charact(14)
sDesativarexpandido is string=Charact(20)
sAlto18 is string=Charact(27)+"0"
salto16 is string=Charact(27)+"2"
numlinhas is string=Charact(27)+Charact(67)+Charact(tabcfglocal.tabcfglocal_impressora_matricial_linhas)
ssaltopagina is string=Charact(12)

fWrite(nNumFile,salto16)
fWrite(nNumFile,numlinhas)

FOR I=1 TO arrAyimp..Occurrence
IF arrAyimp[I].tamanho = 3 THEN
fWrite(nNumFile,ssaltopagina)
CONTINUE
ELSE
IF arrAyimp[I].tamanho = 1 THEN
fWrite(nNumFile,sAtivarexpandido)
ELSE
fWrite(nNumFile,sAtivarconsensado)
END
END
fWriteLine(nNumFile,arrAyimp[I].sTexto)
END
fWrite(nNumFile,ssaltopagina)
fWrite(nNumFile,sDesativarexpandido)
fWrite(nNumFile,sDesativarconsensado)
fWrite(nNumFile,salto16)
fClose(nNumFile)


END

Paulo Viana, uso essa função onde ele passa o arquivo numa array