[Resolvido]Criar PDF

Boa noite
Os dois comando são quase iguais, mas um funciona o outro não ....

Este comando cria o PDF, Produtos a vermelho é o nome do relatório

If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("Produtos", vbNullString, Caminho & "Ficha de Custo da Ref - " & [Ref] & " - " & [Tipo] & " " & [Linha] & ".PDF", False, False)
On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
End If
End If
------------------------------------------------------------------------------------------------------------------------------
Este Comando não cria o PDF,  ImprimirQ a vermelho é uma comboBox que lista o nome dos relatórios

If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("" & ImprimirQ & "", vbNullString, Caminho & "" & ImprimirQ & " " & Date & ".PDF", False, False)
On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
End If
End If

Boa tarde

A msg Nº 1 era em Office 2003

Como agora estou em 2007 alterei o comando para este abaixo.

If MsgBox("Confirma a Impressão das Vendas do Dia " & [CDataGeral], vbYesNo, "Conforlar") = vbYes Then
DoCmd.OpenReport "ResumoVendasR", acPreview
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Nome a sair no PDF" & "_" & Format$(Date, "dd-mm-yyyy")
strLocal = Caminho & strArquivo & ".pdf"
'Gera arquivo pdf do relatório previamente aberto.
DoCmd.OutputTo acOutputReport, "ResumoVendasR", acFormatPDF, strLocal
On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
1: Me.Moldura.SetFocus
End If
End If

Mas queria renomear o nome do relatório como fazia assim na versão 2003, e não estou a conseguir. Alguma ideia ?

blRet = ConvertReportToPDF("ResumoVendasR", vbNullString, Caminho & "Vendas por Cliente".PDF", False, False)

Amigos
Resolvi

Amigo Assis, eu tenho um código que impime e cria pdf e funciona pergunta-me se quero criar o pdf e quantas vias quero imprimir vê o exemplo aqui:

http://maximoaccess.forumeiros.com/t21916-resolvidobd-em-rede

http://maximoaccess.forumeiros.com/t17970-impressao-de-2-ou-mais-vias

Uma pequena correcção ao que disse.

Para perguntar se quero criar o PDF coloco tipo isto:

Private Sub Comando714_Click()
Dim strArquivo As String
Dim strLocal As String
Dim fso As Object
Dim strDocumento As String
Dim numCop As Integer
Select Case MsgBox("DESEJA CRIAR PDF?", vbInformation + vbYesNoCancel, [nuipc])
Case vbYes
DoCmd.OpenReport "AutoCompromissoInterprete", acViewPreview, , "[Cód] = " & [Cód]
DoCmd.Maximize
strLocal = CurrentProject.Path & "\Inquéritos\" & Replace(Replace(Me!nuipc, "/", "_"), ".", "-") & "\"
strDocumento = "AutoCompromissoInterprete"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists(strLocal) Then ' verifica se ja existe a pasta e subpasta
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "Notificação Interprete" & " " & Replace(Me!nuipc, "/", "_") & " _ " & Me![Cód] & ".pdf", False
Else
MkDir strLocal ' se nao existir cria
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "Notificação Interprete" & " " & Replace(Me!nuipc, "/", "_") & " _ " & Me![Cód] & ".pdf", False
End If
   numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
   DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão
DoCmd.Close
Case vbNo
DoCmd.OpenReport "AutoCompromissoInterprete", acViewPreview, , "[Cód] = " & [Cód]
DoCmd.Maximize
   numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
   DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão
DoCmd.Close
Case vbCancel
End Select
End Sub

Aqui dou o nome que quero ao PDF

DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "Notificação Interprete"

Olá bom dia, sr. Assis, poderia disponibilizar o exemplo.
Obrigada

Bom dia amigos

Obrigado toyebom resolvi .

Amanda está ma MSG Nº 2 no click de um botão

Assis

Editou a mensagem de nº 2 e creio que retirou o link para o arquivo.

Verifique por favor, obrigado


Noob

Noobezinho

Editei a MSG Nº 2 só nesta linha a parte a vermelho.

strArquivo = "Nome a sair no PDF" & "_" & Format$(Date, "dd-mm-yyyy")

Não retirei link

É só copiar o código e colar num botão.

Ótimo irmão

Tinha entendido que seria um arquivo.

É que nosso idioma é tão "diferente"

Grande abraço

Noob