MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Botão Imprimir

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty [Resolvido]Botão Imprimir

    Mensagem  formiga10x 27/3/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
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  gilberlanio 28/3/2014, 00:47

    Já viu esse exemplo:

    http://maximoaccess.forumeiros.com/t953-altera-impressora-padrao?highlight=selecionar+impressora
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x 28/3/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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno 29/3/2014, 00:27

    Tenho esse exemplo guardado ve se serve pra você.


    .................................................................................
    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
    [Resolvido]Botão Imprimir 16rzeq
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x 29/3/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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno 29/3/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
    [Resolvido]Botão Imprimir 16rzeq
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x 29/3/2014, 01:00

    Tranquilo  Very Happy 
    Brigadão pela ajuda Fernando.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno 29/3/2014, 01:01

    Tem esse aqui também...


    .................................................................................
    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
    [Resolvido]Botão Imprimir 16rzeq
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x 29/3/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
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  formiga10x 29/3/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
    [Resolvido]Botão Imprimir 02gp

    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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  Fernando Bueno 29/3/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
    [Resolvido]Botão Imprimir 16rzeq

    Conteúdo patrocinado


    [Resolvido]Botão Imprimir Empty Re: [Resolvido]Botão Imprimir

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:05