Report Final Relatorio (Resolvido)

[atnsoft]

Opa mude isto:

for nConta = 1 to 54

aadd(aImp, {" "," "," "})

next

para isso

for nConta = 1 to Vqt

aadd(aImp, {" "," "," "})

next

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

[Luiz Arruda (ICO)]

Bom Dia

Kleyber --> Continua a mesma coisa

Antenor --> Criar diversas paginas em branco como eu disse anteriormente..

Abraços..

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

[Luiz Arruda (ICO)]

Pessoal, descobri que a mensagem é devido ao tamanho do relatorio, se eu cortar tudo pela metade funciona.

devido ao numero de campos a pagina vira automaticamente para paisagem, dai o numero de linha nunca vai chegar a 54

agora pq.

oRpt:SetLandScape()

oRpt:SetPortrait()

não estão funcionando ??

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

[atnsoft]

Verifique o tamanho da fonte usada, tente diminui-la. Não entendo o porque de diversas pag. em branco seguindo o meu exemplo.

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

[Luiz Arruda (ICO)]

Antenor.. vim exatamente dizer que resolvi diminuindo os fonts e colocando SIZE ou SubStr(nome).

o While precisa de um parametro, e colocando .f. não funfa, com o .t. ele fica dando voltas na function, por isso gera diversas paginas..

Obrigado a Todos que responderam..

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

[Rikardocv]

Luiz....

esto aqui funciona ...

#include "report.ch"

STATIC oReport

Function Rep01()

USE TEST NEW

REPORT oReport TITLE "*** My First Report ***" PREVIEW

COLUMN TITLE "St" DATA Test->State

COLUMN TITLE "First Name" DATA Test->First

COLUMN TITLE " Salary" DATA Test->Salary

END REPORT

oReport:CellView()

Activate REPORT oReport;

ON POSTEN FimRelatorio(oReport)

CLOSE TEST

RETURN NIL

STATIC Function FimRelatorio(oRpt)

do while !oRpt:nRow >= oRpt:nBottomRow // e mesma coisa de ::NeesNewPage()

oRpt:StartLine()

oRpt:say(1,"____")

oRpt:Endline()

enddo

return .f.

id=code>id=code>

[]'s

**Não ha que dar peixe, ha que ensinar a pescar

Fivewin for (x)Harbour 9.01, xHarbour 1.1.0 (Simplex), Pelles C for Windows 3.00.4

[kleyber]

Luiz,

Que bom que deu certo.

Abraços,

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB

Visite São Luís - MA A Ilha dos Amores

[Luiz Arruda (ICO)]

citação:

Luiz,

Que bom que deu certo.

Abraços,

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB

Visite São Luís - MA A Ilha dos Amores

---

id=quote>id=quote>

É Conseguimos...

+ 1 x Obrigado..

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

[Luiz Arruda (ICO)]

Rikardo, Tb. funciona.

só que tá dando outro pepino..

Se a primeira pagina tem poucos empregados, 10 por exemplo, tudo funciona perfeitamente, mas se tiver 60, a primeira paginaimprimi somente até a metade da folha, deixando o resto em branco, dai ela pula para a folha 2 imprimi o restante dos funcionários e traca as linhas até o final da pagina,

pq. na primeira pagina não imprimi até o final tb. ???

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

[Rikardocv]

TÃ

[]'s

**Não ha que dar peixe, ha que ensinar a pescar

Fivewin for (x)Harbour 9.01, xHarbour 1.1.0 (Simplex), Pelles C for Windows 3.00.4

[Luiz Arruda (ICO)]

Resolvido..

oRpt:bStartLine := {|o| If( ++nLines > 70id=red> .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) }

for n=nLines to 50id=red>

oRpt:StartLine()

oRpt:say(0,"_____________________________________",1)

oRpt:Endline()

next

id=code>id=code>

Obrigado a todos..

Luiz Arruda - Corumba(MS)

FiveWin 9.01 / 9.02 /9.03 / 9.04

[x]Harbour

xDev

WS

Não Abandone Seu Tópicoid=red>

Editado por - ico on 20/05/2009 16:36:36