[Resolvido]Enviar Relatorio Para uma Impressora

Boa Noite,
Estou com um problema para enviar um relatório para a impressora.
Estou usando o seguinte código

Código:

Private Sub Comando13_Click()
DoCmd.PrintOut
End Sub


O problema com este código é que envia diretamente para a impressora
O que pretendo que antes de imprimir ter acesso as propriedades da impressora para poder:
Selecionar a impressora
Qualidade de Impressão


Obrigado

Boa noite, 
teste no botão de impressão:

Código:

    DoCmd.OpenReport "NomeDoSeuRelatorio", acViewPreview
    DoCmd.RunCommand acCmdPrint
    DoCmd.Close acReport, "NomeDoSeuRelatorio"

Bom dia, Marcelo David
Obrigado pela ajuda
Utilizei o código que enviaste da seguinte forma já que o botão esta no relatório

Código:

DoCmd.RunCommand acCmdPrint

E funciona perfeitamente só que quando cancelo a impressão da um erro





Tentei da seguinte forma:
Abrir em PDF com o seguinte código:
Com este código consigo guardar em PDF (que não é o mas viável)

Código:

DoCmd.OutputTo acOutputReport, "NomeRelatorio", acFormatPDF, strLocal

Tentei abrir em PDF com o seguinte código mas não consegui:

Código:

DoCmd.OutputTo acOutputReport, "NomeRelatorio", acFormatPDF, acViewPreview

Esta seria outra forma de resolver ja que ao abrir em PDF conseguia ter acesso as opçoes da impressora
Obrigado

Bom dia.
Para para não exibir o erro, basta fazer assim:

Código:

On Error Resume Next
DoCmd.RunCommand acCmdPrint

Obrigado Marcelo David
Esta resolvida
Só por curiosidade no código para abrir em PDF que esta errado

Código:

DoCmd.OutputTo acOutputReport, "NomeRelatorio", acFormatPDF, acViewPreview

Já que posere ussar mas a frente

Já coloco como resolvido

E Muito Obrigado pela tua ajuda

Resolvido