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

    [Resolvido]Enviar Relatorio Para uma Impressora

    Compartilhe
    avatar
    roselito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 16/08/2011

    [Resolvido]Enviar Relatorio Para uma Impressora

    Mensagem  roselito em 11/1/2019, 22:08

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2598
    Registrado : 21/04/2011

    Re: [Resolvido]Enviar Relatorio Para uma Impressora

    Mensagem  Marcelo David em 12/1/2019, 00:42

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


    Código:
        DoCmd.OpenReport "NomeDoSeuRelatorio", acViewPreview
        DoCmd.RunCommand acCmdPrint
        DoCmd.Close acReport, "NomeDoSeuRelatorio"


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    roselito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 16/08/2011

    Enviar Relatorio Para uma Impressora

    Mensagem  roselito em 12/1/2019, 12:00

    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


    Última edição por roselito em 12/1/2019, 12:20, editado 1 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2598
    Registrado : 21/04/2011

    Re: [Resolvido]Enviar Relatorio Para uma Impressora

    Mensagem  Marcelo David em 12/1/2019, 12:18

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

    Código:
    On Error Resume Next
    DoCmd.RunCommand acCmdPrint


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    roselito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 16/08/2011

    Enviar Relatorio Para uma Impressora

    Mensagem  roselito em 12/1/2019, 12:27

    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


    Última edição por roselito em 12/1/2019, 12:35, editado 1 vez(es)
    avatar
    roselito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 16/08/2011

    [Resolvido]Caixa de Validação

    Mensagem  roselito em 12/1/2019, 12:29

    Resolvido

      Data/hora atual: 22/2/2019, 17:00