- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- depois de gerar o relatório gravar no formato PDF
×
Linguagem de Programação ADVPL
Perguntas depois de gerar o relatório gravar no formato PDF
- alyson
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
12 anos 9 meses atrás #3012
por alyson
Respondido por alyson no tópico Re: depois de gerar o relatório gravar no formato PDF
tem sim não to com a documentação aki mas é um paramentro que vc passa no cabeçalho ou na impressão amanha na empresa eu pego e ti mando blz...
Por favor Acessar ou Registrar para participar da conversa.
- Edilaine
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 147
- Obrigados Recebidos: 0
12 anos 9 meses atrás #3013
por Edilaine
Respondido por Edilaine no tópico Re: depois de gerar o relatório gravar no formato PDF
oK Alyson. obrigada.
descobri que no inicio do fonte vc pode definir tb.
mas ai as entre linhas fica uma em cima da outra
oReport := TReport():New('RTEL010',cTitle,cPerg,{|oReport|ReportPrint(oReport,cAlias)},cHelp)
oreport:nfontbody:=8
oreport:cfontbody:="Arial"
descobri que no inicio do fonte vc pode definir tb.
mas ai as entre linhas fica uma em cima da outra
oReport := TReport():New('RTEL010',cTitle,cPerg,{|oReport|ReportPrint(oReport,cAlias)},cHelp)
oreport:nfontbody:=8
oreport:cfontbody:="Arial"
Por favor Acessar ou Registrar para participar da conversa.
- alyson
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
- Edilaine
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 147
- Obrigados Recebidos: 0
12 anos 9 meses atrás #3194
por Edilaine
Respondido por Edilaine no tópico Re: depois de gerar o relatório gravar no formato PDF
Alyson boa noite
estou usando a funçao de impressao em pdf
Private oPrn := FwMSPrinter():New( cNUM, 6 ,.T. , , .T. )
oPrn:SetResolution(72)
oPrn:SetPortrait()
oPrn:SetPaperSize(9)
oprn:say(002080,1730,"Conteudos",oFont2,100,,)
oprn:say(002080,1730,"Conteudos",oFont2,100,,)
oPrn:cPathPDF := "C:\caminho\"
Porem aqui nessa linha onde seto o caminho para gravaçao .. so funciona se eu rodar no meu server..
quando estou em um estaçao local (smartclient) nao consigo gravar.. vc tem alguma dica?
como eu passaria para gravar no spool ( visto que a funçao de gravaçao do arquivo pdf ,é feita pelo smartclient)
Pode me ajudar ?
Agradeço . muito
estou usando a funçao de impressao em pdf
Private oPrn := FwMSPrinter():New( cNUM, 6 ,.T. , , .T. )
oPrn:SetResolution(72)
oPrn:SetPortrait()
oPrn:SetPaperSize(9)
oprn:say(002080,1730,"Conteudos",oFont2,100,,)
oprn:say(002080,1730,"Conteudos",oFont2,100,,)
oPrn:cPathPDF := "C:\caminho\"
Porem aqui nessa linha onde seto o caminho para gravaçao .. so funciona se eu rodar no meu server..
quando estou em um estaçao local (smartclient) nao consigo gravar.. vc tem alguma dica?
como eu passaria para gravar no spool ( visto que a funçao de gravaçao do arquivo pdf ,é feita pelo smartclient)
Pode me ajudar ?
Agradeço . muito
Por favor Acessar ou Registrar para participar da conversa.
- ffonseca_22
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
12 anos 9 meses atrás #3228
por ffonseca_22
Respondido por ffonseca_22 no tópico Re: depois de gerar o relatório gravar no formato PDF
Boa tarde.
Ainda não tive o prazer de fazer algo com esta classe.
Mas, uma solução (gambis), poderia voce gerar este arquivo no startpath(\System), e logo em seguida usar o comando __copyfile(Origem, destino) para pegar do server e jogar num caminho que voce quiser(seja ele via parâmetro, usando a função cGetFile(), entre outros).
Abraços e boa sorte.
Fernando.
Ainda não tive o prazer de fazer algo com esta classe.
Mas, uma solução (gambis), poderia voce gerar este arquivo no startpath(\System), e logo em seguida usar o comando __copyfile(Origem, destino) para pegar do server e jogar num caminho que voce quiser(seja ele via parâmetro, usando a função cGetFile(), entre outros).
Abraços e boa sorte.
Fernando.
Por favor Acessar ou Registrar para participar da conversa.
- alyson
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
12 anos 9 meses atrás - 12 anos 9 meses atrás #3229
por alyson
Respondido por alyson no tópico Re: depois de gerar o relatório gravar no formato PDF
#Include "PROTHEUS.CH"
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
User Function exe33()
Local oPrinter
oPrinter := FWMSPrinter():New('nomearquivo',6,.F.,,.T.,,,,,.F.)
//oPrinter:Setup() monta tela para salvar pdf
oPrinter:cPathPDF :="C:\" // caminho onde vai ser salvo o pdf
oPrinter:Say(10,0,"Teste para teste") // conteudo
oPrinter:EndPage() // fim do arquivo
oPrinter:Preview() // depois de salvar abre o arquivo na tela
Return
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
User Function exe33()
Local oPrinter
oPrinter := FWMSPrinter():New('nomearquivo',6,.F.,,.T.,,,,,.F.)
//oPrinter:Setup() monta tela para salvar pdf
oPrinter:cPathPDF :="C:\" // caminho onde vai ser salvo o pdf
oPrinter:Say(10,0,"Teste para teste") // conteudo
oPrinter:EndPage() // fim do arquivo
oPrinter:Preview() // depois de salvar abre o arquivo na tela
Return
Ultima edição: 12 anos 9 meses atrás por alyson.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- depois de gerar o relatório gravar no formato PDF
Tempo para a criação da página:0.104 segundos