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]Visualizar impressão

    avatar
    ajatho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 01/11/2014

    [Resolvido]Visualizar impressão Empty [Resolvido]Visualizar impressão

    Mensagem  ajatho 1/11/2014, 02:10

    Boa noite a todos.
    Tenho o código abaixo que consegui aqui no fórum,
    que imprime ao selecionar uma caixa de seleção.
    Gostaria de visualizar a impressão antes de imprimir.
    Alguém poderia me ajudar a adaptar este código.
    Muito obrigado.

    Private Sub OS_Click()
    On Error GoTo Err_Codigo_Click

    If IsNull(Me.Codigo) Then

    MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

    Else

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "RelOSagendadas"

    stLinkCriteria = "[Codigo]=" & Me![Codigo]
    DoCmd.OpenReport stDocName, , , stLinkCriteria

    End If

    Exit_Codigo_Click:
    Exit Sub

    Err_Codigo_Click:
    MsgBox Err.Description
    Resume Exit_Codigo_Click
    End Sub
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Visualizar impressão Empty Re: [Resolvido]Visualizar impressão

    Mensagem  Avelino Sampaio 1/11/2014, 07:16

    Olá!

    DoCmd.OpenReport stDocName,acViewPreview , , stLinkCriteria

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    ajatho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 01/11/2014

    [Resolvido]Visualizar impressão Empty Resolvido

    Mensagem  ajatho 1/11/2014, 09:25

    Valeu Avelino, funcionou perfeitamente.
    Obrigado.


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