[Resolvido]converter relatório para pdf

boas noites
continuando a minha luta , gostaria de passar os meus relatórios para pdf
os exemplos que aqui encontrei são para A2007 e estou usando o A2003
agradecia apoio

mirsofy

Boas......

Existe algumas maneiras, eu não utilizo os eventos em vba para imprimir em PDF, mas cada caso é em suma diferente do outro.

Eu instalo um criador de PDF no windows e deixo a cargo do end user imprimir ou não em PDF. Tudo depende da diretriz que você recebeu do seu gerente.... da empresa,escola ou seja lá o que for.

Necessário é, ser flexível em certos casos.

Abraços.

Silvio

boas e grato pela rapidez
a ideia que tinha era criar um botão no formulário e ao clicar em vez de mostrar o relatório seria logo o pdf(acho que é assim que se diz)

mirsofy

....

Simples, veja o código abaixo, que deverá ser inserido no evento " ao clicar" do botão.

Private Sub bt_imprimir_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "rptos" ' nome do relatório
strFilter = "Idservico=forms!OS!Idservico" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub


Onde....
Idserviço deve ser trocado pela chave primária
OS...trocar pelo nome do teu formulário
Idserviço deve ser trocado pela chave primária

Depois disso, imprime diretamente para o PDF, caso esse software esteja instalado no micro. Caso não esteja, vai para a impressora que está como padrão.

Abraços.

boas
seguindo o teu exemplo

dá-me o seguinte erro

Run-Time error '3075'
erro de sintese (operador em falta)na expressão de consulta
'(Nº=forms!Ficha Individual!Nº)'.

troquei o que mandas-te
e dá este erro

o que posso fazer

mirsofy

boas.....

Se tu, fizestes corretamente a substituição da ID, do nome do formulário, e do teu relatório....não era para dar erro algum.

Eu o utilizo na maioria dos meus aplicativos aqui.

Reveja, acredito eu, que tu fizestes algo errado.

boas tardes
assunto resolvido
solução : espaços a mais entre palavras

grato pelo tempo dispensado

mirsofy

O fórum agradece o teu retorno.

Silvio, boa tarde
Este codigo que vc passou

Private Sub bt_imprimir_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "rptos" ' nome do relatório
strFilter = "Idservico=forms!OS!Idservico" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub

Ele Imprime direto na Impressora padrão, para gerar pdf tenho que ter um gerador de pdf instalado como impressora padrão, correto?
Como fazer para a impressora padrão ser uma impressora normal e o relatorio abrir em pdf, e depois se optar imprimir então.
É que deixar um geradoe de PDF como impressora padrão muitas vezes confunde o usuário.

Roxo

Roxo....bom dia a ti.

Em anexo, um exemplo de como gerar um PDF. Esse exemplo foi retirado aqui do nosso fórum, portanto, não é de minha autoria.

Você, terá que estudar o mesmo e adaptá-lo ao teu sistema.

Bons estudos e um grande abraços para ti.

Silvio

Roxo.....segue um link do site do nosso colega Avelino Sampaio...muito bom sinal.

Lá há outra maneira de criar PDF, caso você se sinta um pouco perdido.

clique aqui para ir no site dele.

Abraços.

Silvio

Obrigado Silvio
Vou poder mexer somente final do dia, depois te coloco aqui como ficou
abraço

Roxo

Grande Silvio
Esclarecedor os exemplos
Resolvido
Obrigado pela dica
Grande Abraço

Roxo

Valeu.....