MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Relatório de impressão

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

    Respeito às Regras 100%

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

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

    Mensagem  fernando rodrigo zanchini em 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
    VIP
    VIP

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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


    .................................................................................
    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 100%

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

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

    Mensagem  Alexandre Fim em 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: 15/12/2019, 23:10