[Resolvido]Imprimir um mapa

Boa noite a todos. Tenho um form desvinculado onde a partir de um endereço, abro o Google maps, dentro do próprio form (um exemplo que busquei na internet), e funciona perfeitamente. Coloquei um botão no form para imprimir o mapa. Aí está meu problema. Como o form não está vinculado a nenhuma tabela, não consegui criar um relatório que fosse acionado pelo botão no form do mapa. Alguém pode me ajudar? Obrigado.

Boas Walter.. voce tem que criar um relatório com os mesmos objetos do form.. porém este ao abrir ja teria o endereço que digitou no form.. na caixa texto específica.... Assim poderia imprimir.

Cumprimentos.

Obrigado pela atenção amigo. Vou tentar e depois retorno.

Caro Piloto. Criei o relatório e coloquei o objeto Microsoft web browser, e a caixa de texto que já traz o endereço lá do form Mapa. No entanto quando aciono o botão imprimir, o relatórios aparece apenas o endereço. Onde estou errando?

Envia ai o modelo do baita amigão.

Cumprimentos.

Aí Piloto. Estou enviando o sistema.

Aproveitando a oportunidade. Como faço para saber se um determinado form está aberto ou fechado? tentei usar da maneira abaixo e não consegui.

   If Forms!frm_cadpessoa.Open = True Then
       MsgBox "Formulário aberto", vbInformation, "Status"
   Else
       MsgBox "Formulário fechado", vbInformation, "Status"
   End If
Se poder me ajudar, agradeço.

O Fórum é por assunto.. para esta nova dúvida abra um tópico para isto.

Amanha vejo este mapa pra ti.

Cumprimentos.

Obrigado mais uma vez pela atenção. Fico no Aguardo.

A solução que deseja na mensagem de número 6 é relativamente simples.. Abra um novo tópico que será respondido certamente, caso não o seja me envie o link que te responderei no novo tópico.

Boa noite.

Obrigado e um bom descanço.

Respondi lá.. Este respondo amanha.

Inté.

Boas Walter.. estou tentando aqui.. Em conseguindo algo dou o devido retorno.

Cumprimentos.

Walter... Veja se entende o meu raciocínio..

Após executar todos os códigos do google map's este lança o endereço do mapa em uma variáve que está na função MapUpdate()l:
Me.ctlWebBrowser.Navigate StrURL

StrURL contém o endereço para que o objeto ctlWebBrowser seja carregado.
Pode ser o endereço do google maps bem como outra url qualquer(Endereço da net)

O que fiz..

Criei um módulo e coloquei a variável StrURL como pública... e a retirei das declarações da função MapUpdate..
Assim sendo ao carregar o mapa no formulário o endereço do mesmo fica na variável pública podendo ser utilizado em qualquer formulário ou relatório no formulário.

Assim ao carregar o relatório coloquei a instrução:

Me.ctlWebBrowser.Navigate StrURL


Na lógica era por obrigação funcionar... se aplicar esta mesma lógica em um form o controle WebBrowser é carregado.
Mas infelizmente no relatório tanto em moro Report como em visualização de impressão não o foi..

Não sei porque.. mas é a maneira mais eficaz em termos de programação para que funcionasse.

Teste ai...

Vou tentando algo por aqui.


Acuse se compreendeu o que falei.


Cumprimentos.

Walter.. fiz um teste simples com um formulário contendo um objeto WebBrowser..

No evento ao carregar deste formulário apliquei:
 Me.ctlWebBrowser.Navigate "www.google.com"

Abriu o objeto na página respectiva.
O mesmo não funciona em um relatório..

Em minha humilde concepção deveria funcionar... não sei o porque não funciona...

Creio que devas tentar algum comando de imprimir o formulário. De uma pesquisada no fórum se encontra algo sobre isto.
Em não conseguindo avise.


Cumprimentos.

Boas Walter.. tentei de varias maneiras.. pesquisei na net..
Parece que o google maps não permite o Dowload..

A última solução que testei funciona perfeitamente para baixar imagems em uma URL...

Para o Maps.. deu menssagem de erro: Accesso Negado

Sub Baixar()
Dim StrCaminho As String
Dim URL As String
Dim WinHttpReq As Object
Dim oStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
StrCaminho = CurrentProject.Path & "\" & "teste.jpg"
URL = StrURL
WinHttpReq.Open "GET", URL, False
WinHttpReq.send
URL = WinHttpReq.responseBody
If WinHttpReq.status = 200 Then
  Set oStream = CreateObject("ADODB.Stream")
  oStream.Open
  oStream.Type = 1
  oStream.Write WinHttpReq.responseBody
  On Error Resume Next
oStream.SaveToFile (StrCaminho)
End If
End Sub

Cumprimentos.

Obrigado amigo. Vou tentando por aqui. Caso consiga algo, te aviso.

Caro Pitolo. Realmente esta função não consegue salvar a página em .jpg. Pesquisando aqui no forum, encontrei um exeplo de como "SalvarImagemClipBoard" do colega Criquio, que salva a pagina em .bmp, usando a dll (clipboard.dll), no entanto não consegui testar pois não consegui instalar a .dll. O amigo já conhece este exemplo?

Vi e até tentei adaptar... Porém não está capturando corretamente a tela.. Até tentei com ele..

Cumprimentos.