[Resolvido]Ajuda com PDF

Tenho um relatório que ao imprimir me guarda uma cópia como PDF, no entanto, dá-me erro a guardar o nome do PDF devido ao mesmo ter uma "/", pelo que solicito ajuda para corrigir esse erro mudando a barra vertical "/" ao criar o PDF para "_", ficando "1123_12-SI-001" em vez de "1123/12-SI_001" ou retirar os ultimos digitos ficando apenas com os 4 primeiros, tipo "1123_001"

Utilizei este código:

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

[001] é a chave primária a qual vou atribuir também como nome ao PDF
[7] é o campo com o numero por mim atribuido que tem a "/"

Utilize a função Replace
Pode carregar uma Variavel com o nome do PDF e depois o replace nela

Replace(Variavel,"/", "-")


Cumprimentos.

não sou grande coisa em vb. como fasso isso?

Como e gerado o PDF... e qual o nome do arquivo no HD...

Qual a variável ou campo que contem o mesmo...
De detalhes

Onde está a expressão que deseja substituir..

De mais detalhes.


Cumprimentos.

ok, tenho um furmulário com um botão de comando "imprimir" que au clicar me imprime um relatório e guarda uma cópia em PDF na pasta CurrentProject.Path & "\Oficios Expedidos\
no entanto, quando preencho a caixa de texto "Texto612" que defini de 7, tenho de colocar da seguinte forma: 0000/00-SI e não consigo guardar o PDF com o nome desse campo + o numero da chave primária "ID" pelo que queria que guardasse como expliquei anteriormente.

O nome do form é "Oficio Normal" e o do relatório também.

Se utilizar o código que postei com outro campo que não tenha "/", funciona como quero, no entanto necessitava deste campo para nomear o PDF e como tem "/" quando guardo fica tipo: 2354_345 e não 0235/12-SI_345

Perdoe-me, ainda não estou a entender..


Me![7] & " _ " & Me![001] & ".pdf"

De um exemplo do:

Valor dentro da caixa texto 7
Valor dentro da caixa texto 001


Não está conseguindo gerar com o _ ou com a /?


Como está conseguindo gerar? como fica o nome do PDF que tem sucesso a sua criação?
E queria modificar o que? o nome do PDF no HD ou o que?


Cumprimentos.

Junto BD exemplo onde quando clico no botão imprimir, cria o PDF em Oficios Expedidos e pergunta quantas páginas quero imprimir.

Em vez de guardar com o nome "964 _ 2436.pdf", quero guardar com o nome "0123_12-SI_2436.pdf" sendo que o campo [7] tem 0123/12-SI e quero que fique no PDF o 0123_12-SI_2436.pdf e por ai adiante sempre que crio um novo registo com novo numero diferente do de exemplo.

o valor da caixa 001 é a Chave primária com o nome "ID" na tabela que cria numeração automática

Utilizei este código:

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



Cumprimentos.

tentei o código e continua a aparecer como nome de pdf "1234_2345.pdf" e não como desejava "0123_12-SI_2345.pdf"

Junto imagem de como desejava que gurdasse, é como está no 2.º ficheiro da imagem e a bd guarda como está no 1.º

UP

Já consegui resolver, tive que mudar o nome do campo na tabela de [7] para outro que não seja numérico, neste caso, atibui o nome [cam1] e funcionou perfeitamente.

Exemplo com campo numérico que não funcionava:
------------------------------------------------------------
Private Sub Comando570_Click()
Dim strArquivo As String
Dim strLocal As String
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Me![7] & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
DoCmd.PrintOut
DoCmd.Close
End Sub

Exemplo com campo com outro nome que não totalmente numérico
----------------------------------------------------------------
Private Sub Comando570_Click()
Dim strArquivo As String
Dim strLocal As String
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Me!cam1 & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
DoCmd.PrintOut
DoCmd.Close
End Sub

repara que também retirei as [], ficando apenas Me!cam1 e não Me![7] ou neste caso Me![cam1], possivelmente deveria ser por isso que não funcionava, devido ás referidas [] ou melhor estou desconfiado de ter sido por o campo ser um numero.

Obrigado pela ajuda.

O Fórum agradece o Retorno.