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

    [Resolvido]Botão Imprimir

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Qui 27 Mar 2014, 23:59

    Boa noite a todos.

    Qual código coloco dentro de um botão para verificar se existe impressora instalada e se a mesma está definida como padrão?

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: [Resolvido]Botão Imprimir

    Mensagem  gilberlanio em Sex 28 Mar 2014, 00:47

    Já viu esse exemplo:

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


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Sex 28 Mar 2014, 00:57

    Vi sim Gilberlanio porem, aqui ao clicar para alterar a impressora padrão ele apenas desmarcou a padrão e não selecionou outra. Neutral
    E parabéns pelo seu sistema muito bom.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno em Sab 29 Mar 2014, 00:27

    Tenho esse exemplo guardado ve se serve pra você.
    Anexos
    Imprimir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (147 Kb) Baixado 28 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Sab 29 Mar 2014, 00:46

    Fernando por exemplo não tem nenhuma impressora definida como padrão então enviaria uma msg dizendo que não há impressora como padrão / instalado.
    Este exemplo que enviou faz isso, só não estou conseguindo separar a só a parte que faz a verificação. Teria como me dar uma força para isolar só esta parte do código?.

    No botão ok ele verifica se há impressora instalada pois eu retirei já para emular o caso de não ter.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno em Sab 29 Mar 2014, 00:59

    Vou dar uma olhada no codigo depois te dou um alô ok.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Sab 29 Mar 2014, 01:00

    Tranquilo  Very Happy 
    Brigadão pela ajuda Fernando.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno em Sab 29 Mar 2014, 01:01

    Tem esse aqui também...
    Anexos
    Impressoras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (135 Kb) Baixado 19 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Sab 29 Mar 2014, 01:32

    Estou na busca aqui caso tenha sucesso lhe digo.
    Vai o código como está no meu programa.

    Código:
    Private Sub btnPgarHoje_Click()

    On Error GoTo 1

    DoCmd.RunCommand acCmdPrint

    'Código para verificar se a impressora está definida como padrão aqui.

    DoCmd.OpenForm "rltLembraFor"
    Me.btnCadastro.SetFocus
    Call RelatorioInvisivel

    1:
    MsgBox ("Impressão Cancelada ou Impressora Indisponível no Momento"), vbExclamation, "Controle de Estoque e Vendas"

    End Sub

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x em Sab 29 Mar 2014, 03:31

    Resolvido aqui.
    Muito agradecido e fica o código para caso alguém um dia necessite.

    Muito obrigado pela ajuda pessoal.

    Olha como ficou Fernando Very Happy
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Código:
    Private Sub btnVendaDia_Click()



    On Error GoTo 1

    DoCmd.OpenReport "R_VendaDiaria", acViewReport
    DoCmd.RunCommand acCmdPrint
    DoCmd.Close acReport, "R_VendaDiaria", acSaveYes

    1:

    If Err.Number = 2501 Then
            DoCmd.Close acReport, "R_VendaDiaria", acSaveYes
            MsgBox "Impressão cancelada.....", vbOKOnly, "Controle de Estoque e Vendas"
    Me.btnCadastro.SetFocus
    Call RelatorioInvisivel


            Exit Sub
    End If
    Me.btnCadastro.SetFocus
    Call RelatorioInvisivel

    End Sub

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno em Sab 29 Mar 2014, 16:34

    Que bom que tenha resolvido seu problema..

    Agradecemos o retorno.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 14:13