× Linguagem de Programação ADVPL

Perguntas depois de gerar o relatório gravar no formato PDF

Mais
12 anos 9 meses atrás #3012 por alyson
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.

Mais
12 anos 9 meses atrás #3013 por Edilaine
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"

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 9 meses atrás #3015 por alyson
bom dia segue a documentação completa do tReport
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 9 meses atrás #3194 por Edilaine
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

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 9 meses atrás #3228 por ffonseca_22
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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 9 meses atrás - 12 anos 9 meses atrás #3229 por alyson
#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
Anexos:
Ultima edição: 12 anos 9 meses atrás por alyson.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.104 segundos
Joomla templates by a4joomla