MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 27 Out 2016, 14:18

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 27 Out 2016, 16:10

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

    [Você precisa estar registrado e conectado para ver esta imagem.]

    DoCmd.PrintOut acPages, , , acMedium, 3


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 27 Out 2016, 16:41

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

    [Você precisa estar registrado e conectado para ver este link.]

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 27 Out 2016, 18:23

    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.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8
    Registrado : 19/10/2016

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

    Mensagem  afraimundo em Qui 27 Out 2016, 18:25

    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?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 27 Out 2016, 19:17

    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!

    [Você precisa estar registrado e conectado para ver este link.]


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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 13 Jul 2017, 13:33

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

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Qua 23 Ago 2017, 01:46