MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 4
    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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 : 4
    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 : 4
    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?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    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!

      Data/hora atual: Sab 03 Dez 2016, 19:38