[Resolvido]MÓDULO para PDF - Como alterar linhas de comando avançado (Visualização de Relatórios em PDF)

Prezados amigos, estou postando um exemplo (Access 2003) que visualiza Relatórios em PDF atravéz de uma Boolean (Necessita de duas DLL's que devem ficar dentro da pasta onde está o DB ou dentro do System32 (Windows XP) e que estão todos juntos aí no arquivo ZIP). Fonte: http://www.lebans.com/reporttopdf.htm
O meu problema aqui são dois:
1- A fonte, depois de convertido em PDF, não é a usada por mim no relatório e fica muito estranha;
2- Gostaria de um auxílio para colocar um filtro (via VBA) para filtrar somente o código selecionado na cx. de combinação.

P.S.: O Imprimir está OK.

Peço a gentileza de todos aqui para auxiliar-me neste processo.
Muito obrigado!

Qual fonte está usando? Aqui aparece a Arial tanto no relatório quanto no PDF.

Quanto ao filtro, tente alterar, no módulo modReportToPDF, a linha do sSQL, passando o campo do formulário aonde escolhe o código.

Olá Criquio, tudo bem?
Estou postando o relatório convertido para PDF... veja a fonte... está 'maluca"!
A fonte que estou usando é Arial (simples).

Sobre o filtro... eu sou meio "cru", então lá vai:
Onde no módulo, não consegui interpretar, pois ele é enorme e confuso para mim...
Nossa! Se vc o interpretou, talvez lá esteja o problema das fontes?!... (risos)

Muito obrigado!

Olá Criquio, resolvi o problema da fonte...
Nesta linha era:
False, True, 150, "", "", 0, 0, 0)
Troquei para:
False, True, 150, "", "", 0, 1, 0)

A pergunta é outra agora...
Não estou conseguindo mudar o caminho Path (onde será salvo o arquivo convertido)
Eu estou querendo que ele grave numa subpasta do sistema chamada Contratos, sendo:
C:\SCH-Honorários\Visualizações\Contratos

Eu alterei o nome dos arquivos para não sobrepor os clientes, assim: (em vermelho)
Private Sub ButVisualiza_Click()
Dim blRet As Boolean
'Dim strLocal As String
'strLocal = CurrentProject.path
blRet = ConvertReportToPDF("Contrato", vbNullString, _
"Contrato" & Me.SelecionarCOD & ".pdf", False, True, 150, "", "", 0, 1, 0)
DoCmd.Close
End Sub

Onde está verde, são as minhas tentativas de alterar o caminho. Será que dá pra ajudar?
Obrigado!
Paulo César

Tenta adaptar o código que eu utilizo no meu bd, comigo funciona

Private Sub Comando570_Click()
Dim strArquivo As String
Dim strLocal As String
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Replace(Me![7],"/","_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios Expedidos" & strArquivo
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
DoCmd.PrintOut
DoCmd.Close
End Sub

http://maximoaccess.forumeiros.com/t9034-resolvidorelatorio-em-pdf-gera-salva-mas-nao-fica-aberto

deves querer

strLocal = CurrentProject.Path & "\Visualizações\Contratos" & strArquivo

Tudo bem Toyebom?
Não funfa...
Eu já li aquele tópico... trata-se de acFormatPDF, e isso é para Access 2007!

O sistema que falo aqui (postei o exemplo) é usando arquivos externo (DLL) para fazer a conversão, mas o local de gravação do arquivo que a visualização gera, está "oculto", pelo menos para mim... rsrs

Obrigado!
Paulo César

Olá pessoal, seguindo algumas instruções dos amigos, estou tentando o seguinte:

MÓDULO:
(introduzi estas linhas)
Dim strLocalCOD As String
Dim strArquivoCOD As String
strLocalCOD = CurrentProject.path & "\Visualizações\Contratos" & strArquivoCOD
strArquivoCOD2 = "Contrato" & Me.SelecionarCOD & ".pdf"
(porém dá erro onde marquei de vermelho)
(alterei esta linha)
lngRet = GetTempPath(Pathlen, strLocalPath)
para
lngRet = GetTempPath(Pathlen, strLocalCOD)

NO BOTÃO:
Dim blRet As Boolean
Dim strArquivoCOD2 As String
strArquivoCOD2 = "Contrato" & Me.SelecionarCOD & ".pdf"
blRet = ConvertReportToPDF("Contrato", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)
DoCmd.Close

Alguém mais pode me ajudar?
Já agradeço!
Paulo César

Paulo, no módulo já tem o caminho. Acho que seria mais prático alterar esse caminho que está nele.

Olá Criquio, bom dia!
Eis o "X da questão"... Eu não estou conseguindo identificar a linha dentro do Módulo para alterar o caminho para gravação da conversão em PDF.

O Toyebom até me deu uma dica: strLocal = CurrentProject.Path & "\Visualizações/Contratos" & strArquivo, mas não estou sabendo colocar no Módulo...

E quanto ao filtro também... onde o coloco dentro do Módulo?
Este filtro é correto? = ([CODGerado]=[Forms]![PrintContrato]![SelecionarCOD])

Por gentileza, poste aí, caso vc saiba...
Muito obrigado!
Paulo César

Entre no módulo e aperte Ctrl+L para abrir a caixa de pesquisa. Digite .PDF e mande procurar que tu encontras o caminho. Aí é só alterar. Tem outros .PDFs no módulo, mas tu vai saber qual deles está indicando um caminho de arquivo no disco. Quanto ao filtro, usando o mesmo método procure por SELECT * FROM. Lá, é só mudar o nome dos campos envolvidos depois da cláusula WHERE.

Nossa!
Obrigado por tudo!

Então resolveu? Se sim, pode clicar no botão Resolvido ali embaixo.

Não, nem "arranhei", mas obrigado!
Fechando tópico e abrindo outro, pois acho que abri este no lugar errado.

Muita luz pra você!
Paulo César

Prezados amigos, estou postando um EXEMPLO (Access 2003) que visualiza Relatórios em PDF atravéz de uma Boolean (Necessita de duas DLL's que devem ficar dentro da pasta onde está o DB ou dentro do System32 (Windows XP) e que estão todos juntos aí no arquivo ZIP). Fonte: http://www.lebans.com/reporttopdf.htm
O meu problema aqui são dois:
1- Alterar o caminho onde será gravado as visualizações;
2- Filtrar somente o código selecionado na cx. de combinação.

P.S.: O Imprimir está OK.

Link do exemplo: http://maximoaccess.forumeiros.com/download.forum?id=2501

Peço a gentileza de todos aqui para auxiliar-me neste processo.
Muito obrigado!

Melhor deixar em um só tópico mesmo, pois o acúmulo de tópicos com o mesmo tema confunde o usuário e polui o fórum. Por isso, fundi os dois tópicos.

Pessoal, achei o seguinte...
Na aplicação (botão VISUALIZAR) eu alterei esta linha:
blRet = ConvertReportToPDF("Contrato", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)
Não filtra pq não tem filtro... Mas está funcionando!
Nesta linha, "Contrato" se refere ao meu relatório. OK?
Então se eu não somente apontar para o Relatório Contrato, mas apontar para o Relatório Contrato com filtro? Será que daria certo?
Algo do tipo...
blRet = ConvertReportToPDF("Contrato WHERE (CODGerado=" & SelecionarCOD & " )", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)

A mensagem que aparece é:
"O nome do reletório 'Contrato WHERE (CODGerado=2232629)' que você inseriu na folha de propriedades ou em uma macro está incorreto ou refere-se a um relatório que não existe"

Será que estou chegando perto, ou nem "arranhei" de novo? rsrsrs
Help!!!
Obrigado!
Paulo César

Reafirmando: o filtro deve ser feito na sql conforme mencionei anteriormente, ou você pode criar o relatório através de uma consulta com o filtro desejado no critério, aonde ficaria algo do tipo:

Como "*" & Forms!NomeDoForm!NomeDoCampo & "*"

O que está em vermelho é opcional, caso queira filtrar por uma parte do nome. Se quiser filtrar o nome exato inserido no campo, coloque sem essa parte.

vc está se referindo à linha:
sSQL = "SELECT * FROM MSysObjects WHERE NAME = " & """" & sSel & """"
?
Se for eu já testei ela... coloquei um apóstrofo nela e a visualização continuou normalmente... acho que ela não interfere!
Ou é a esta que vc se refere:
blRet = ConvertReportToPDF("Contrato", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)
?
Eu tenho, realmente uma consulta chamada ConsultaContrato... Por favor, onde e como eu posso inserir esta condição "Como"?

Obrigado!

HA HA HA HA HA... Consegui filtrar!
Em "Filtro ativado" das Propriedades do Relatório Contrato, coloquei a opção "SIM".
Mais uma etapa resolvida!

Agora só falta descobri qual é o caminho para gravar as visualizações!

O caminho é só procurar o que está referenciando um caminho de algum arquivo pdf.

Disto eu sei...
O problema é onde qual? Em todos há mais de 5 ou 6 "apontamentos" para 1 referência
estou aqui na batalha, mudando trocando... notando os "paus" que dá mas por minha inexperiência, estou apanhando mais que mulher de censurado rsrs... Entende?
Tô precisando de ajuda de quem sabe mais.
(...) Mas vão bora!

Olá amigos...
Descobri a forma de resolver o caminho para gavação das visualizações... Falta de pensar um pouco mais, pois a gente acaba se prendendo no "mais difícil" por pensar que é muito complexo e complicado! Mas estava o tempo todo alí na minha frente.

Fiz assim: (no vermelho)

Private Sub ButVisualiza_Click()
Dim blRet As Boolean
Dim strArquivoCOD2 As String
Dim strCOD2 As String
strCOD2 = Me.SelecionarCOD
strArquivoCOD2 = "C:\SCH-Honorários\Visualizações\Contratos\Contrato nº " & Me.SelecionarCOD & ".pdf"
blRet = ConvertReportToPDF("Contrato", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)
DoCmd.Close
End Sub

Obrigado a todos pelas orientações e muita luz pra vocês!

ESTAVA ESQUECENDO DO RESOLVIDO!
----
Olá amigos...
Descobri a forma de resolver o caminho para gavação das visualizações... Falta de pensar um pouco mais, pois a gente acaba se prendendo no "mais difícil" por pensar que é muito complexo e complicado! Mas estava o tempo todo alí na minha frente.

Fiz assim: (no vermelho)

Private Sub ButVisualiza_Click()
Dim blRet As Boolean
Dim strArquivoCOD2 As String
Dim strCOD2 As String
strCOD2 = Me.SelecionarCOD
strArquivoCOD2 = "C:\SCH-Honorários\Visualizações\Contratos\Contrato nº " & Me.SelecionarCOD & ".pdf"
blRet = ConvertReportToPDF("Contrato", vbNullString, strArquivoCOD2, False, True, 150, "", "", 0, 1, 0)
DoCmd.Close
End Sub

Obrigado a todos pelas orientações e muita luz pra vocês!

Lembra que eu te falei que tinha várias ocorrências da palavrinha pdf mas que uma delas era um caminho de arquivo?

Bom que resolveu. O fórum agradece o retorno.

Olá Criquio... vc me parece ser o "típico professor de matemática"
(risos)
E de todos só existiu uma que eu consegui entender o método e passar de ano...
(mais risos)

Valeu pela força amigo e muita luz pra você!
Paulo César