Perguntas Ajuda com Relatório

Boa tarde,

Galera sou novo em ADVPL comecei a desenvolver um relatório que traz tudo que foi pago para uma determinada transportadora dentro de um período
eu comecei acho que esta indo certo, mas cheguei até aqui agora não sei como fazer para imprimir as coisas pra poder testar
Alguém pode me ajudar ??

#include "protheus.ch"
#include "TOTVS.CH"
#include "MsOle.ch"
#include "Report.ch"
#include "SHELL.CH"
#include "FWPrintSetup.ch"
#include "TBICONN.CH"
#include "RPTDEF.CH"
#include "Colors.ch"

/*
TESTE MEU PRIMEIRO RELATORIO
*/

User Function Pgtransp

If pergunte ("Pgtransp")
processa ({|| Pgtransp_()},"Aguarde...", "Buscando informações...",.T.)
Endif

return

Static function PgTransp

Local cQry := ''
Local dDeData := MV_PAR01 //Data liquidação
Local dAteData := MV_PAR02 //Data liquidação
Local cDeTransp := MV_PAR03
Local cAteTransp := MV_PAR04
Local cColTitulo := 80
Local cCOlPrefixo := 60
Local cColBaixa := 80
Local nColValor := 0 //coluna valor liquidado
Local nTotal := 0 //total valor liquidado

private oPrint
private lMsHelpAuto := .t.
private lMsErroAuto := .f.
private oFontTit := TFont():New('Times New Roman',,-16,.t.,.t.)
private oFontST := TFont():New('Times New Roman',,-15,.t.,)
private oFontParam := TFont():New('Times New Roman',,-14,.t.,)
private oFontParN := TFont():New('Times New Roman',,-16,.t.,.t.)
private oFontLine := TFont():New('Times New Roman',,-19,.t.,)
private lAdjustToLegacy := .F.
private lDisableSetup := .F.
private nPageNum := 1
private nDefLine := 20
private nLinha := nDefLine
private nMrg := 20
private oBrush1 := TBrush():New2(,CLR_HGRAY)
private lFirstRun := .t.

procRegua(4)

cQry := "SELECT * FROM" + retsqlname("SE2") + "SE2"
cQry += "WHERE SE2.D_E_L_E_T_ != '*' AND SE2.FIFILAL = ' " +xFilial("SE2") + "'"
cQry += "AND SE2.E2_BAIXA >= '" + substr(dtoc(dDedata),7,4+substr(dtoc(dDedata),4,2+substr(dtoc(dDeData),1,2) + "' AND SE2.E2_BAIXA <= '" + substr(dtoc(dAteData),7,4)+substr(dtoc(dAteData),4,2)+substr(dtoc(dAteData),1,2) + "'"
cQry += "ORDER BY SE2.E2_NUM"

cQry := ChangeQuery(cQry)
dbUseArea(.T.,"TOPCONN",TcGenQry( (,,cQry),"QRY",.T.,.T.)
dbSelectArea("QRY")

oPrint := FWMSPrinter():New("Rel. Pago para Trasportadora", IMP_SPOOL, lAdjustToLegacy,"\spool\", lDisableSetup, , , , , , .F., )
oPrint:SetPortrait()
oPrint:SetPaperSize(9) //A4
oPrint:startPage()

cabecalho()

nLinha += 15

nDefLine := 45
nLinha := nDefLine

While QRY->(!EOF())
IncProc("Carregando Informações")

If nLinha + 40 >= 720 .and. QRY->(!EOF()) // Estourou a pagina e ainda tem mais itens
nLinha :=nDefLine
oPrint:endPage()
lFirstRun := .t.

cabecalho()

nLinha += 15

Endif

Boa tarde, Simoes da uma olhada neste relatório padrão Relação de baixas (FINR190).

att,