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]Botão Imprimir

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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?
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 651
    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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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 29 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.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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 21 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.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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: Ter 25 Jul 2017, 09:46