Botão para imprimir 3 cópias de relatório enviado para pdf creator

Boa tarde,

Tenho um relatorio baseado numa consulta e queria que imprimisse 3 cópias e que utilizasse como impressora o PDF Creator para gerar um documento PDF.

Neste momento com o código que tenho no botão, ele gera apenas uma cópia nos relatórios que só têm uma página e gera as 3 cópias nos relatórios com mais do que uma página.

É possível colocar no código que ele utilize o PDF.Creator para imprimir, mesmo não sendo essa a impressora pré-definida no PC? È que em alguns PC´s o access abre o pdf creator para imprimir e noutros manda directos para a impressora, com o mesmo ficheiro e em nenhum dos PC´s está o PSF creator pre-definido como impressora.

Eis o código que tenho neste momento:

Private Sub Comando67_Click()
On Error GoTo Err_Comando67_Click

   Dim stDocName As String

   DoCmd.Echo False
   stDocName = "RELATORIO_SVI"
   DoCmd.OpenReport stDocName, acViewPreview
   DoCmd.PrintOut acPages, 1, 1, acMedium, 3
   DoCmd.Close
   DoCmd.Echo True

Exit_Comando67_Click:
   Exit Sub

Err_Comando67_Click:
   MsgBox Err.Description
   Resume Exit_Comando67_Click

End Sub

Amigão, basta remover os números de Paginas (1,1) pq aqui esta dizendo para Imprimir somente da pagina 1 até a 1.



DoCmd.PrintOut acPages, , , acMedium, 3

Quanto a Definir o Nome da Impressora a ser impresso... Veja esse Topico aqui... Siga a dica do Mestre Avelino Sampaio.

https://www.maximoaccess.com/t6693-resolvidoimprimir-ficha-de-cadastro-em-impressora-nao-padrao#54314

Obs: Terá que dar o mesmo Nome a Impressora em todas as Maquinas!



Recomendo também ver essas dicas aqui (copiar e colar no browser):

usandoaccess.com.br/tutoriais/tuto47.asp?id=1#inicio

Não percebi esse código para aplicar o PDF Creator como impressora padrão para imprimir os relatórios do Access.

Podem-me ajudar melhor? Não tenho muita experiência em VBA.

Já coloquei o código

DoCmd.PrintOut acPages, , , acMedium, 3

E testando usando o PDF CReator como impressora predefinida no PC, ele gera apenas a pagina 1/1 e deveria gerar a página 1/3, tendo em conta que são 3 cópias, certo?

Amigo, testei aqui de tudo quanto foi jeito e funcionaram tudo direitinho.
Office 2013.

Segue exemplo de impressão de Relatório:

Imprime 2 Vias;
Relatório com 1 Pagina;
Relatório com Mais de uma página.


A impressora é a do PDF V7. Essa impressora é a que gera o relatório em PDF. Estou mandando em anexo o Programa que instala a Impressota, e também os relatório impressos para vc ver que aqui esta funcionando direitinho!

https://www.dropbox.com/s/30s39ejpjax798a/Definir%20Impressora%20%20imprimir%20RELATORIO%20VBA.zip?dl=0


Obs: Basta trocar o Nome do Relatório e o Nome da Impressora a ser impresso!

E então amigo, como ficou seu Tópico?

Os leitores e eu gostaríamos de saber se a dica funciona ou não!