Perguntas Relatorio básico pedido de Compra

Boa tarde,
estou tentando fazer um relatório básico para que imprima em tela pedidos de compras, e a impressão aparece em branco, poderiam me ajudar? segue fonte:

Local nOrdem
Local cCondicao:="SC7->C7_NUM >= '"+MV_PAR01+"' .AND. SC7->C7_NUM <= '"+MV_PAR02+
"' .AND. SC7->C7_FORNECE >= '"+MV_PAR03+;
"' .AND. SC7->C7_FORNECE <= '"+MV_PAR04+"' .AND. SC7->C7_EMISSAO >= '"+dtoc(MV_PAR05)+
"' .AND. SC7->C7_EMISSAO <= '"+dtoc(MV_PAR06)+"'"

dbSelectArea(cString)
nOrdem := aReturn[8]
SC7->(dbSetOrder(nOrdem))
SC7->(dbSetFilter({||.T.},cCondicao))

SetRegua(RecCount())

SC7->(dbGoTop())

While SC7->(!EOF())

If lAbortPrint
@nLin,00 PSAY "*** CANCELADO PELO OPERADOR ***"
Exit
Endif

If nLin > 55
Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
nLin := 8
Endif

@nLin,00 PSAY SC7->C7_NUM
@nLin,15 PSAY DTOC(SC7->C7_EMISSAO)
@nLin,23 PSAY SC7->C7_FORNECE
nLin ++

SC7->(dbSkip())

END

SET DEVICE TO SCREEN

If aReturn[5]==1
dbCommitAll()
SET PRINTER TO
OurSpool(wnrel)
Endif

MS_FLUSH()

Return