Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7021 usuários registrados
O último usuário registrado atende pelo nome de diegopeixoto

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

imprimir foto em formulario papel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso imprimir foto em formulario papel

Mensagem por pompeu em 4/11/2010, 13:23

Olá todos.

Estou procurando uma rotina que imprime uma foto.jpg em fomulario de papel
algum possui alguma (consagrada)?

obrigado.

Pompeu


Última edição por Tales Ruan em 12/11/2010, 10:58, editado 1 vez(es) (Razão : parpel -> papel)

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por Marcos Guedes em 4/11/2010, 13:43

Acredito que temos algo aqui no fórum, utilizando report.
Serviria?

Ou você pode utilizar a função ShellExecute, que temos aqui também, passando o caminho da imagem e a ação "print" como parâmetro.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 4/11/2010, 15:14

o meu caso é: eu faço um OLE com word (formulario.dot) e lá um campo para imprimir a foto do funcionário.
Como resolver? Imprimi todos os campos exceto a foto!

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por Marcos Guedes em 4/11/2010, 16:46

Você quer enviar a foto diretamente para a impressora?
Ou precisa do word para imprimí-la acompanhada de um texto qualquer?

Tente algo do tipo:
Código:
shell_exec("caminho\suaImagem.jpg", "print")

A função você encontra aqui:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 4/11/2010, 17:23

all together (isto é textos e foto juntos), mon chèr!

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 5/11/2010, 10:11

o meu caso é: eu faço um OLE com word (formulario.dot) e lá um campo para imprimir a foto do funcionário.
Como resolver? Eu imprimi todos os campos necessários exceto a foto que também é um campo do relatório que está sendo criado.
Isto é textos e foto juntos no mesmo formulário. É dificil né?

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por alceu11 em 5/11/2010, 11:24

O certo Voce postar o seu exemplo com o codigo fonte e o seu formulario dot.

Para que os usuarios que no futuro busquem uma solucao , encontre no seu topico
o exemplo.
Propaganda antiga.mais funciona.!!!

Existem mil maneiras de fazer neston.
Mais porem todavia : o meu arquivo eu.doc esta na pasta \pedro\pword\eu.doc
Este aquivo eu.doc esta com as TAG <NOME> residente <endereco> ondi substituo os campso do meu cursor veja o codigo fonte abaixo,
Vou postar 1 exemplo "Ilustrativo" com 1 arquivo eu.doc, 1 com um arquivo jpg, lemos8.jpg seria o logotipo da empresa, nao seria como vc adptaria isto ao seu codigo. Porque nao estamos vendo o seu codigo. espero que vc consiga adpatar.!!
codigo
Código:

CLOSE DATABASES ALL

CREATE CURSOR CTST (campo C(10), Sobrepor C(100) )
SELECT CTST
INSERT INTO CTST VALUES ('<nome>', 'ALCEU GAlDENCIO')
INSERT INTO CTST VALUES ('<endereco>', 'R.Macae,45 Vl.Soares')
INSERT INTO CTST VALUES ('<cidade>', 'Poto Ferreira-SP')
INSERT INTO CTST VALUES ('<ling>', 'Conclusao 2º Ciclo V.FoxPro')
SELECT CTST
 
SET DEFAULT TO SYS(5)+SYS(2003)
***eu uso impressora virtual assim ja gero em pdf.
***se tiver a impressora virtual aberta ele abrira o arquivo.pdf
***Cuidado aqui!!!
*****PRESTE ATENCAO:  NO PATH A ondi se encontra o path arq. eu.doc.

=PRINT_DOT("PEDROPWORDeu.DOc")
Function PRINT_DOT
Lparameters cNomeDOT As String
* Onde:
* cNomeDOT - nome do arquivo .DOT
Local oWord As Object
Local oSele As Object
Local cDir As String
Local cCampo As String
Local cSobrepor As String
Local cValor As String

If Type("oWord") <> "O"
oWord = Createobject("Word.Application")
Endif

oWord.Visible = .F.
oWord.Documents.Add( cNomeDOT, .F. )
oSele = oWord.ActiveDocument.ActiveWindow.ActivePane.Selection
oWord.ActiveWindow.ActivePane.View.SeekView = 0

SELECT CTST
GO TOP
SCAN ALL
oSele.Find.Text = ALLTRIM( CTST.campo )
oSele.Find.Forward = .T.
oSele.Find.MatchWholeWord = .T.
oSele.Find.Execute()
oSele.TypeText( ALLTRIM( CTST.sobrepor ) )

ENDSCAN
 
*******************************************************
oWord.ActiveDocument.PrintOut()
oWord.DisplayAlerts = .F.
=Inkey(3)
oWord.ActiveDocument.Close( .F. )
oWord.Quit()

Release oWord
SELECT CTST
USE IN CTST
Return
Endfunc

a foto ficaria assim so que no meu exemplo e o Logotipo

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver este link.]

- Clique aqui para baixar os fontes!

***so que como existem mil maneiras de fazer isto
A outra forma fazer um report no fox, como diz os campos vincular o campo da foto a uma imagem. que isto acho que vc deve saber tranquilamente.
E depois voce manda do report gerar em word.
estou usando uma app e vfp9 [Você precisa estar registrado e conectado para ver este link.]
codigo

Código:

*********vou escolher o report
gcTable =Getfile("LOCALIZE OS Arquivos Report Frx (*.Frx):frx")
if EMPTY(ALLTRIM(gcTable))
  WAIT WINDOW 'vc nao escolheu um Report'
   RETURN
endif   

if !EMPTY(ALLTRIM(gcTable))
  if right(gctable,3)='FRX'
        gctable = left(gctable,len(gctable)-4)
    endif
 WAIT WINDOW 'OLHE NA BARRA FERRAMENTAS DO WINDOWS, O WORD ABERTO COM ARQUIVO' TIMEOUT 2
***aqui transformou em doc o report.
 do frx2wrd.app with "&gcTable", "bairros.doc"
 ON KEY LABEL ENTER KEYBOARD '{CTRL+TAB}'

 thisform.Refresh
 endif

- Clique aqui para baixar a APP

Aqui no forum existe um exemplo que poste de contrato, que faz isto so que nao estou encontrando , com os fontes e os reports.
Quem saber ja da para te ajudar um pouco........

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 8/11/2010, 08:08

É existe mil maneiras de se fazer neston....

Como eu sei que trata-se de um forum e o que vale é discussão... bão!
Não estou querendo uma aula de como abrir/fechar o doc e sim como conseguir imprimir uma imagem(foto do candidato/funcionario) ao lado de outros campos (digamos no meio do relatorio). Não estou uerendo ser impertinente mas gostaria de ir diretamente ao ponto:

o modelo de estou usando é:

Código:
With lo
 .visible=.t.
 .documents.open("c:\ctr_saude\fichas\ficha2.dot")                    && abrir documento

 .Selection.find.ClearFormatting
 .Selection.find.Replacement.ClearFormatting
 
 .selection.find.text="@foto"
 .Selection.find.replacement.text = xfoto
 .Selection.find.Forward = 1
 .Selection.find.Wrap = 1
 .Selection.find.MatchWildcards = 0
 .Selection.find.execute(,,,,,,,,,,2)
 
 .selection.find.text="@cadast"
 .Selection.find.replacement.text = dtoc(ficha.fi_cadastra)
 .Selection.find.Forward = 1
 .Selection.find.Wrap = 1
 .Selection.find.MatchWildcards = 0
 .Selection.find.execute(,,,,,,,,,,2)
 
 .selection.find.text="@nome"           
 .Selection.find.replacement.text = ficha.fi_nome                  && codigos de barras(preparar layout primeiro-fonte especial)
 .Selection.find.Forward = 1
 .Selection.find.Wrap = 1
 .Selection.find.MatchWildcards = 0
 .Selection.find.execute(,,,,,,,,,,2)
 
 .selection.find.text="@nasc"
 .Selection.find.replacement.text = DTOC(ficha.fi_datanas)
 .Selection.find.Forward = 1
 .Selection.find.Wrap = 1
 .Selection.find.MatchWildcards = 0
 .Selection.find.execute(,,,,,,,,,,2)
 
 .selection.find.text="@idade"                          && calcula idade
 .Selection.find.replacement.text = STR(vvv,3)+" ano(s)"
 .Selection.find.Forward = 1
 .Selection.find.Wrap = 1
 .Selection.find.MatchWildcards = 0
............................................

O modelo do .dot é: um documento word(pré-formatado) com campos especificos para cada conteudo a ser impresso.
Se houver algum detalhe a mais para esclarecimento do que eu preciso por favor informar e eu envio.

Obrigado a todos



pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por alceu11 em 8/11/2010, 08:40


Isto é textos e foto juntos no mesmo formulário. É dificil né?

Pompeu difcil né?
Nao sei fazer isto que vc quer,!! a foto junto com os dados do funcionario.

Se eu entendi, voce quer um docomento word com o cadastro de funcionarios com a foto do lado.

So sei fazer no primeiro exemplo dot com o logotipo bem pq a imagem. eu carrego no documento modelo antes de rodar o prg.

O caminho mais facil acho que seria este.!!!
Mais uma maneira de fazer:
Chamo o Relatorio no Preview conforme figura anexa:
Eu gero conforme imagem depois mando para uma impressora virtual pdf.
E anexo ao email para enviar ao cliente. qdo é solicitado.
imagem
[Você precisa estar registrado e conectado para ver esta imagem.]

Mais dicas
link
[Você precisa estar registrado e conectado para ver este link.]
link este report vc tem possiblidade de gerar em varios formatos.
[Você precisa estar registrado e conectado para ver este link.]



alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por alceu11 em 8/11/2010, 09:34

Pompeu com este link acho que fico mais facil ?

Mais um link
Export your reports to Images, RTF, PDF, HTML, XLS,
[Você precisa estar registrado e conectado para ver este link.]


[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver este link.]
Depois tu posta o resultado.!!! Very Happy

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 9/11/2010, 10:19

the trust is out there. (Fox Mulder)

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por alceu11 em 9/11/2010, 10:29

the trust is out there. (Fox Mulder)

A confianca esta aqui dentro do Forum!!!
Com Dicas e Sugestoes, auxiliando com varias possibilidades de solucionar o Topico.

O duro e qdo o usuario nao reponde o Topico , nao diz se resolveu, ou se ao menos testou as Solucoes propostas, nao bota o seu codigo, nao pensa que futuramente este topico podera servir para os Usuarios da Comunidade!!!

Como este daqui que ficou sem sua resposta. Sera que Resolveu o Calculo da Idade.
[Você precisa estar registrado e conectado para ver este link.]

E ainda quer fazer graca!!! em dar resposta em Ingles.!!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por Marcos Guedes em 9/11/2010, 11:50

[Você precisa estar registrado e conectado para ver este link.] escreveu:the trust is out there. (Fox Mulder)
Não entendi o porque da mensagem e o que está tem haver com sua dificuldade.

Se o problema é "confiança" sugiro comprar códigos de empresas multinacionais que prestam serviços.
Favor responder este tópico e o citado por Alceu.
Caso não responda, nossa "confiança" em você certamente diminuirá.
As vezes sacrificamos nosso tempo para tentar ajudar um ao outro.
É óbvio que exigimos respeito e retorno.

Resolveu o problema?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 10/11/2010, 08:03

Mon chèr.

Não se trata de ter confiança ou não. Mesmo fora da comunidade BR não há literatura que relata pelo menos algo próximo ao que estou querendo.
Não sei dizer se eles também não tiveram algo semelhante para resolver.
O certo é que há uma limitação. Um ditado popular diz: - Se voce não pode tirar o bode fedido de dentro do barraco, aprenda a conviver com ele.
Ou seja informe ao cliente que não dá. É o que vou fazer.
Quanto o calculo da idade também funciona da mesma forma. Eu reduzi o problema mostrando apenas quantos anos o individuo possui. Não quis ficar mostrando que tostines é mais fresquinho porque vende mais.
Temos que ser práticos e pragmaticos ok?

Abraço à todos.

keeping there, by the way.

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por Marcos Guedes em 10/11/2010, 09:04

Moral da história... aguardo respostas dos demais moderadores e amigos participantes para decidirmos se mandamos este tópico do pompeu para a lixeira...

Em minha opinião...

Código:
programador != desiste fácil
if (programador desisti com facilidade do problema) then
  ? "difícil ajudar pois passa a ser uma perca de tempo para quem se dedicou"
endif

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Desistir Nunca Render-se Jamais

Mensagem por alceu11 em 10/11/2010, 09:20

Na minha opiniao eu nao excluira o topico!!
Para referencias para futuras pequisas, para usuarios,
Para mostrar nosso esforco, Empenho,Dedicado, Fé, em poder ajudar de qualquer forma as pessoas que nos procuram ,
E fora que um de nossos membros ja usuou esta solucao.
neste link:
[Você precisa estar registrado e conectado para ver este link.]

Mas se tu achar necessario ai fica ao seu criterio.

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por pompeu em 10/11/2010, 09:49

Eu também comungo a mesma opiniao, mande o lixo para o lixo.

pompeu
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por _batmanvfp_ em 10/11/2010, 20:52

pelos:
Código:

10 madamentos do Programação Brasil

1. Ter paciência com os novatos do Forum

Acho que O Topico deve pernamecer
Alceu , Marcos , Pompeu reunião na Bat Caverna ! Razz

Pompeu procure sobre programação office VBA os comandos, propriedades que vi no seu codigo são quase iguais do VBA
faça pesquisas no google dos comandos e propriedades do seu código que tem no seu codigo acompanhado de VBA ou VB .dot etc

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: imprimir foto em formulario papel

Mensagem por Tales Ruan em 10/11/2010, 23:52

Estou muito ausente do fórum ultimamente, mas como o Marcos convocou consegui um tempo. (Estou usando a wireless do hotel).

O que eu tenho a dizer:

1- Embora nosso amigo Pompeu goste de escrever expressões estrangeiras, ele errou esta frase:
[Você precisa estar registrado e conectado para ver este link.] escreveu:the trust is out there. (Fox Mulder)
Deveria ser: "The Truth Is Out There". A verdade está lá fora.

(Não sou de ficar de moralismo, mas eu achei essa frase um tanto ofensiva com quem estava tentando ajudar. Ficaria mais legal algo do tipo.. "Desculpem, não funcionou pra mim, meu cliente quer desta forma X, e esta idéia não vai produzir o que ele deseja. Vou continuar procurando." etc.)

2- Acho que devemos manter o tópico, porque as sugestões de solução fornecidas ao Pompeu, apesar de não terem servido pra ele, podem ser úteis pra outras pessoas.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum