PC Toledo

Olá, Jairo | Toledo | asimoes

Deixei desta forma :
Imprime_EXTRATO_PROVISORIO ( cARQ )
Function Imprime_EXTRATO_PROVISORIO ( cARQ )

Toledo agora fechou , esta gerando no pdf corretamente. :))

A linha 59 nos meus fontes postados antes ela não existia não, mas entre um teste e outro acabei ...

Olá, Jairo.

Fiz as alterações, mas sempre esta gerando somente uma folha e sem observar a questão do salto de página.

Baixei mais cedo o exemplo do Toledo, o executável funciona. mas se pego o fonte dele e coloco no meu PRG, o relatório é gerado da mesma forma de antes, somente uma página sem ...

Olá, Jairo

Me perdoe mas creio que não entendi.

No meu fonte cArq recebe o conteúdo do aquivo TXT, ou seja, cArq = "EXTRATO_PROVISORIO.TXT"
cARQ := DiskName()+":\"+CurDir()+"\EXTRATO_PROVISORIO.TXT"

Se eu tentar compilar alinha abaixo esta dando erro de "Syntax at '.' "



Function Imprime ...

Olá, Jairo

Não deu certo não.

Espero que não se importe, vou postar o fonte talvez seja algo na geração do TXT.

Vendo a alteração do Toledo, fui pesquisar e achei o tópico abaixo do asimoes
viewtopic.php?f=4&t=13604

Tentei usar a função mencionada por ele mas permaneceu a mesma coisa no PDF ...

Olá, Toledo e demais colegas

Fiz a alteração mas ficou do mesmo modo, durante os testes fui aumentando este -1 para outros valores somente para ver o efeito no relatório mas sempre fica do mesmo modo.


Veja abaixo como ficou depois a alteração.


nHandler := FOpen( cArq )

oPrinter:newline ...

Olá,

De tanto vasculhar a seção downloads aqui do Fórum, achei uma citação a respeito.

Caso queira dar uma verificada, quem sabe lhe ajuda.

https://pctoledo.org/forum/fileba ... t=c&page=2

Olá, Jairo

Desta forma que você me orientou a tela preta realmente não fica aparecendo. Mas a tela do programa fica pequena mesmo aplicando a conte Lucida Console 28.

Estou vasculhando o Fórum para ver se há outra solução, hoje a noite vou fazer alguns testes iniciais com a GTWVT.

Seguido a sua ...

Olá, Jairo

A tela preta de fundo aparece quando tento executar usando o BAT

Olá,

Testes feitos, tudo certo com a impressão.

Antes quando o executável era compilado com o Blinker eu usava este recurso aqui e atendia muito bem.

Agora depois que compilei com o HBMK2 não funciona mais, mesmo não tendo usado nenhuma lib gráfica. :-O

Fica uma tela grande preta com fonte ...

Olá,

Agora sim esta gerando corretamente.

Vou fazer mais alguns testes.

Muita obrigada Jairo
)

Olá, Jairo

Obrigada mais uma vez pela disponibilidade em ajudar, e pela paciência.

Olá, Jairo

Esta linha eu deixei como 63. Assim na primeira folha será impresso 63 linhas, após isto é impresso um novo cabeçalho no inicio da segunda folha.

ElseIf oPrinter:pRow() > 63 // formato A4 tem 69 linhas. Menos 5 do cabeçalho e 1 do rodapé = 69

Alterando IF mlinha > 58 para qualquer ...

Olá,

Fiz os testes usando uma HP1102W.

Alinhei as colunas pois o teste em PDF realmente esta muito diferente do que vai para a impressora.

Comentei a linha DO CCABP20 pois estava gerando a segunda e a terceira folha tudo junto ( na mesma folha )

//IF mlinha > 55
DO CCCABP20 WITH mfolha, mdata ...

Olá, Jairo

Coloquei -lxhb -lhbwin no meu HBP.

Troquei TEXTE.TXT por TESTE.TXT

Fiz um download da lhbwin e coloquei na pasta Include.

Tive de colocar #define WIN_DMPAPER_A4 9, pois deu erro de compilação. Tinha colocado apenas #define WIN_DMPAPER_A4. Mas achei um tópico onde você menciona que ...

Olá,

Fatal error: hbvmpub.h: Arquivo ou diretório não encontrado

No Windows este arquivo fica na pasta include, qualquer coisa faça um download e coloque-o na pasta.Creio que no LInux deva ser o mesmo principio.