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

    [Resolvido]Menu de selecção de Impressora

    avatar
    Burita
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 117
    Registrado : 03/04/2013

    [Resolvido]Menu de selecção de Impressora Empty [Resolvido]Menu de selecção de Impressora

    Mensagem  Burita 18/11/2014, 15:47

    Boas.
    Estou com uma dúvida. Quero imprimir um relatório, mas quero poder escolher a impressora onde quero imprimir (que apareca o menu de impressão). Estou a utilizar o comando DoCmd.RunCommand acCmdPrintSelection mas aparece sempre o erro:
    Run-time error "2046"
    O comando ou acção "ImprimirSelecção" não está disponível agora.

    Há alguma solução para isto?

    Cumprimentos,
    Burita
    avatar
    Burita
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 117
    Registrado : 03/04/2013

    [Resolvido]Menu de selecção de Impressora Empty Re: [Resolvido]Menu de selecção de Impressora

    Mensagem  Burita 18/11/2014, 16:13

    Olá outra vez.
    Consegui remediar o problema com o SendKeys "^{p}" 'Ctrl+p

    Agora estou com uma outra dúvida. No meu formulário quero imprimir um certo registo, mas primeiro quero visualizá-lo num relatório. Utilizado o código:
    DoCmd.OpenReport "nomerelatorio", acPreview, "", "[NumeroID]=[Forms]![nomeformulario]![NumeroID]", acWindowNormal

    O que queria depois é que, depois do relatório abrir, passados, por exemplo, 3 segundos, executasse o código do SendKeys.
    Estou a utilizar um exemplo do JPaulo:
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Public Sub Pausa(ByVal Segundos As Single)
    Call Sleep(Int(Segundos * 1000#))
    End Sub

    Agora onde coloco o código?:
    Pausa (3)
    SendKey "^{p}"

    Cumprimentos,
    Burita

    avatar
    Burita
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 117
    Registrado : 03/04/2013

    [Resolvido]Menu de selecção de Impressora Empty Re: [Resolvido]Menu de selecção de Impressora

    Mensagem  Burita 7/1/2015, 21:25

    Já consegui remediar.
    Obrigado.

      Data/hora atual: 13/4/2021, 14:45