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

    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 Empty [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
    [Resolvido]Enviar Relatorio Para uma Impressora Print10

    Obrigado
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Enviar Relatorio Para uma Impressora Empty 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

    [Resolvido]Enviar Relatorio Para uma Impressora Empty 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
    [Resolvido]Enviar Relatorio Para uma Impressora 113
    [Resolvido]Enviar Relatorio Para uma Impressora 213
    [Resolvido]Enviar Relatorio Para uma Impressora 313


    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 : 2685
    Registrado : 21/04/2011

    [Resolvido]Enviar Relatorio Para uma Impressora Empty 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

    [Resolvido]Enviar Relatorio Para uma Impressora Empty 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]Enviar Relatorio Para uma Impressora Empty [Resolvido]Caixa de Validação

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

    Resolvido

      Data/hora atual: 26/4/2019, 01:19