- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TMSPRINTER ou FWMSPRINTER por email.
×
Linguagem de Programação ADVPL
Perguntas TMSPRINTER ou FWMSPRINTER por email.
- fkuhn
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 16
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10728
por fkuhn
TMSPRINTER ou FWMSPRINTER por email. foi criado por fkuhn
Pessoal,
Gostaria de saber se alguém teria alguma solução para envio de relatórios feitos por essas duas classes por email, sem que o usuário tenha que salvar em pdf e depois enviar,
Assim como nos relatórios do tReport
Gostaria de saber se alguém teria alguma solução para envio de relatórios feitos por essas duas classes por email, sem que o usuário tenha que salvar em pdf e depois enviar,
Assim como nos relatórios do tReport
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 9 meses atrás #10739
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico TMSPRINTER ou FWMSPRINTER por email.
Senão me engano esta função funciona para os dois objetos.
cJPEG := Iif(Empty(cNota),CriaTrab(,.f.),cNota)
oPrint:SaveAllAsJPEG(cStartPath+cJPEG,1000,1400,140)
ai vc pega o arquivo salvo e envia por email em anexo.
cJPEG := Iif(Empty(cNota),CriaTrab(,.f.),cNota)
oPrint:SaveAllAsJPEG(cStartPath+cJPEG,1000,1400,140)
ai vc pega o arquivo salvo e envia por email em anexo.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- fkuhn
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 16
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10740
por fkuhn
Respondido por fkuhn no tópico TMSPRINTER ou FWMSPRINTER por email.
Então Luiz, como sempre ajudando, obrigado mesmo
Pensei em salvar em JPG, só que a logo mesmo em BMP não é impressa
Ai pensei em usar a TWMsPrinter,
Pensando que poderia aproveitar o relatorio que estava em TMSPrinter, só que nao deu muito certo não, rs
Se usar a segunda opção terei que fazer ele todo novamente, mas acho que enviar em pdf seria mais interessante.
Pensei em salvar em JPG, só que a logo mesmo em BMP não é impressa
Ai pensei em usar a TWMsPrinter,
Pensando que poderia aproveitar o relatorio que estava em TMSPrinter, só que nao deu muito certo não, rs
Se usar a segunda opção terei que fazer ele todo novamente, mas acho que enviar em pdf seria mais interessante.
Por favor Acessar ou Registrar para participar da conversa.
- emanager
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10741
por emanager
Respondido por emanager no tópico TMSPRINTER ou FWMSPRINTER por email.
Usei a classe FwMSPrinter (
tdn.totvs.com/display/public/mp/FWMsPrinter
)
cCaminho := "\spool\"
FErase( cCaminho+cFile+".pdf" )
oPrn := FwMSPrinter():New( cFile, IMP_PDF , .F. , cCaminho, .T., , , , , .F., ,.F. )
oPrn:cPathPDF := cCaminho
:
: // montagem do relatorio
:
oPrn:Print() //cria o pdf
e depois é como disse o Luiz Aberto: ai vc pega o arquivo salvo e envia por email em anexo.
Paulo Oliveira.
cCaminho := "\spool\"
FErase( cCaminho+cFile+".pdf" )
oPrn := FwMSPrinter():New( cFile, IMP_PDF , .F. , cCaminho, .T., , , , , .F., ,.F. )
oPrn:cPathPDF := cCaminho
:
: // montagem do relatorio
:
oPrn:Print() //cria o pdf
e depois é como disse o Luiz Aberto: ai vc pega o arquivo salvo e envia por email em anexo.
Paulo Oliveira.
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
9 anos 9 meses atrás #27051
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico TMSPRINTER ou FWMSPRINTER por email.
Boa tarde Paulo,
E se alem de criar o arquivo PDF eu precisa-se mostrar na tela, como faria?
Ja usei o oPrinter:Preview() e nao demonstrou
E se alem de criar o arquivo PDF eu precisa-se mostrar na tela, como faria?
Ja usei o oPrinter:Preview() e nao demonstrou
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TMSPRINTER ou FWMSPRINTER por email.
Tempo para a criação da página:0.082 segundos