×
Linguagem de Programação ADVPL
Perguntas enviar por email
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 10 meses atrás #14818
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 enviar por email
Brother compacta e anexa o fonte aqui, vou dar uma olhada ok.
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 10 meses atrás #14821
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 enviar por email
brother acabei de ver, então neste caso não funfa não, essa função é para o tmsprinter. mas no seu caso está mais fácil, tenta gerar o arquivo direto em pdf.
SEGUE UM EXEMPLO:
#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:\TEMP\" // 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
SEGUE UM EXEMPLO:
#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:\TEMP\" // 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
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 10 meses atrás #15000
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 enviar por email
Isso mesmo.
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.
- aarezende
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 64
- Obrigados Recebidos: 0
10 anos 10 meses atrás #15002
por aarezende
Respondido por aarezende no tópico enviar por email
Luiz usei a rotina sua do ENVMAIL porem da esse erro,
THREAD ERROR (Micks, SERVIDOR) 20/06/2013 13:18:21
argument error in function Len() on ENVMAIL(NFFATR03.PRW) 20/06/2013 13:06:32 line : 472
nessa linha
For nI:=1 to Len(aAttach)
abs
THREAD ERROR (Micks, SERVIDOR) 20/06/2013 13:18:21
argument error in function Len() on ENVMAIL(NFFATR03.PRW) 20/06/2013 13:06:32 line : 472
nessa linha
For nI:=1 to Len(aAttach)
abs
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.117 segundos