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

    Relatório de impressão

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 18/04/2018

    Relatório de impressão Empty Relatório de impressão

    Mensagem  fernando rodrigo zanchini 6/5/2019, 15:17

    Bom dia pessoal
    queria montar uma folha de relatório e  na hora que fosse imprimir sai-se 2 x na mesma folha para que manda-se uma via cliente e uma via empresa
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Relatório de impressão Empty Re: Relatório de impressão

    Mensagem  crysostomo 6/5/2019, 15:47

    Código:
    Private Sub NomeBotão_Click()
    On Error GoTo Err_imprimir_Click
    Dim bytVias, bytLoop As Byte

     bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
     If bytVias <> "" And bytVias <= 4 Then
       For bytLoop = 1 To bytVias
         If bytLoop = 1 Then MsrVersao = "ORIGINAL"
         If bytLoop = 2 Then MsrVersao = "DUPLICADO"
         If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
         If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
         DoCmd.OpenReport "NomeRelatório", , , "[ID]= Forms!NomeFormulário!ID"
       Next
     End If

    ou
    Código:
    DoCmd.PrintOut , 1, 1, , 2
    aqui a pagina 1 ate a 1 imprime 2 copias, pode mudar quanta copias e de quantas paginas


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    Relatório de impressão Empty Re: Relatório de impressão

    Mensagem  Alexandre Fim 6/5/2019, 16:58

    Olá Fernando,

    Pelo que eu entendi, você quer que saiam 2 vias em uma mesma folha, correto?
    O tamanho da folha seria A4?
    É necessário analisar o relatório para saber se nele há a seção "Detalhes" e se esta seção varia de tamanho.
    Um exemplo disso seria o "Orçamento de Vendas", onde na seção "Detalhes" varia de tamanho de acordo com os produtos selecionados.
    Se houver muitos produtos, parte do relatório vai sem impresso em uma 2a. folha.

    Se possível, mande um modelo de lay-out do relatório pretendido e seu banco de dados (somente partes envolvidas) para que o fórum possa analisar.

    Um abraço.

    Conteúdo patrocinado


    Relatório de impressão Empty Re: Relatório de impressão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:17