[Resolvido]Texto de botões de mensagem

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!

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

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!

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

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

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

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