MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Texto de botões de mensagem

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 em Qui 5 Jun 2014 - 16:58

    Olá pessoal,
    Existe uma forma de alterar o texto dos botões disso:

    If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then

    Para isso:

    If MsgBox("Qual é o formato de sua impressão?", vbNormalDuplexCancel, "Impressão") = vbYes Then

    =====Código=====
    Private Sub Comando34_Click()
    If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
    dt = Empty
       DoCmd.OpenReport "rlt_Hospitais", acNormal, "", "", , acNormal
    Else
       DoCmd.Close
    End If
    End Sub
    ==============

    Já agradeço, Luz e Paz!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho em Qui 5 Jun 2014 - 18:15

    Olá Paulo

    Tudo bem contigo. amigo?

    Bom, se você digitar a palavra msgbox, clicar sobre ela e apertar a tecla F1, irá aparecer a janela da ajuda com os dados desse palavra.

    E poderá ver, que são palavras reservadas do access, com seu valor e que portanto, não tem como fazer isso numa caixa de mensagem.

    Mas temos uma saída:
    Fazer um formulário que imite a caixa de mensagem e então colocamos o botão que quisermos.
    Se ainda quiser ajuda pra isso, explica o que pretende.

    Abraço

    Noob


    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 em Qui 5 Jun 2014 - 18:50

    Poxa cara... eu vi isso que você falou...
    Então a idéia agora é essa:

    http://maximoaccess.forumeiros.com/t19062-form-janela-de-impressao-com-duplex#141367

    Talvez vc possa me ajudar...

    Obrigado, Luz e Paz!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho em Qui 5 Jun 2014 - 20:22

    Estou um tanto confuso sobre o que você realmente deseja

    Pode explicar melhor?

    Entendo que quer imprimir frente e verso numa folha de papel.

    Você usou o termo "Duplex", que deve ser a opção para imprimir nas duas faces de uma folha.

    Se for isso, será que não é uma opção da impressora?

    No aguardo...

    Noob
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 em Sex 6 Jun 2014 - 14:24

    Olá Noobezinho, tudo bem?
    É sim uma opção da impressora, por isso quero colocar esta opção NÃO padrão, mas sim um caixa de seleção para, caso a impressora tenha esta função, o usuário escolher imprimir DUPLEX (nos dois lados).

    O código abaixo como evento de um botão, faz impressão duplex:
    =====Código=====
    Private Sub BotaoPrint_Click()
    Dim rpt As Report
    DoCmd.OpenReport "rlt_Hospitais", acViewPreview, , , acHidden
    Set rpt = Reports!rlt_Hospitais
    With rpt.Printer
    .Copies = 1
    '.Duplex = acPRDPVertical
    .Duplex = acPRDPHorizontal
    End With
    DoCmd.OpenReport "rlt_Hospitais", acViewNormal
    DoCmd.Close acReport, "rlt_Hospitais", acSaveNo
    End Sub
    ==============
    mas não consigo inserí-la em http://maximoaccess.forumeiros.com/t18128-resolvidobotao-imprimir?highlight=bot%C3%A3o+personalizado+msg
    no exemplo na Mensagem nº 4
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho em Sex 6 Jun 2014 - 14:39

    Paulo

    Como não tenho uma impressora desse tipo, não posso te ajudar mais diretamente.

    Mas toda impressora tem comandos chamado de "sequência de escape", o quais são uma combinação de teclas usando a expressão
    ESC (não confundir com a tecla ESC) os quais podem ser utilizados com o código vba.
    A lista desses comandos devem estar no manual da impressora.
    E provavelmente deve ter um comando para ativar/desativar o duplex.

    Abraços

    Noob
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 em Dom 2 Ago 2020 - 17:39

    Duplex não era mais necessário, por isso retirei esta opção.

      Data/hora atual: Seg 21 Set 2020 - 13:10