[Resolvido]Código para imprimir/gerar em PDF

Pessoal; bom dia
Gostaria de saber se é possível alterar o código para que ao invés de imprimir ele abra a caixa de "salvar como" e que eu possa salvar como PDF.
Abaixo segue o código que utilizo em um botão de um formulário para imprimir uma parte de um relatório.
Obrigado!

Dim strWhere As String
On Error GoTo 1

If Me.Dirty Then
Me.Dirty = False
End If

If Me.NewRecord Then
MsgBox "Selecione uma Ficha de Processo"
Else

strWhere = "[xyzzz] = " & Chr(34) & Me!XYZZZ & Chr(34)
DoCmd.OpenReport "IMPRESSÃO", acViewPreview, , strWhere, , stronde
DoCmd.PrintOut
DoCmd.Close

End If

Exit Sub

1:
If Err.Number = 2501 Then
Exit Sub
End If

End Sub

Tente assim amigo..

Código:

Dim strWhere As String
On Error GoTo 1

If Me.Dirty Then
Me.Dirty = False
End If

If Me.NewRecord Then
MsgBox "Selecione uma Ficha de Processo"
Else

strWhere = "[xyzzz] = " & Chr(34) & Me!XYZZZ & Chr(34)
DoCmd.OpenReport "IMPRESSÃO", acViewPreview, , strWhere, , stronde
DoCmd.OutputTo acOutputReport, "Nome_Do_Relatório", acFormatPDF, "C:\Nome_Do_Relatório.pdf", False
DoCmd.Close

End If

Exit Sub

1:
If Err.Number = 2501 Then
Exit Sub
End If

End Sub

Nao deu,
ele abre o preview de impressão mas não manda salvar como...

Ok, vou analisar.

Pessoal, quem puder me ajudar.
O código do Fernando não abriu "salvar como" só foi até a visualização de impressão...

Pessoal, consegui com o código:

Private Sub Comando602_Click()


Dim strWhere As String
On Error GoTo 1

If Me.Dirty Then
Me.Dirty = False
End If

If Me.NewRecord Then
MsgBox "Selecione uma Ficha de Processo"
Else

strWhere = "[xyzzz] = " & Chr(34) & Me!XYZZZ & Chr(34)
DoCmd.OpenReport "IMPRESSÃO", acViewPreview, , strWhere, , stronde
DoCmd.OutputTo acOutputReport, "", acFormatPDF, MyPath & MyFilename, True
DoCmd.Close
End If

Exit Sub

1:
If Err.Number = 2501 Then
Exit Sub
End If


End Sub

Que bom que deu tudo certo amigo..

Agradecemos o retorno e bons estudos!