[Resolvido]Limitar registro em um relatório.

Olá pessoal!

Preciso que o meu relatório imprima uma quantidade de registro pre definido pelo usuário do sistema.

Explico:

No meu formulário, clico no botão 'Imprimir' aí ele aciona uma imputbox que solicita o número de registros que desejo que seja impresso; coloco a quantidade e o relatório me dar a quantidade solicitada de registros.

Sei que usando 'top' na instrução de uma consulta, o access faz isso, mas como poderia fazer isso pelo vba?


grato

no repositório VBA te esse exemplos "imprimir quantidades de copias"

Boa tarde;

Segue m anexo um exemplo.

Amigos, a ideia não é quantidade de cópias a serem impressas, mas sim quantidade de registros a serem exibidos no relatório para impressão.

Exatamente DamascenoJr!!

Tópico movido por tratar-se de dúvida relacionada mais a relatórios do que formulários.

No evento "ao Abrir" do relatório.

Código:

Private Sub Report_Open(Cancel As Integer)

    Dim strValor As String
   
    Do
       
        strValor = InputBox("Quantos registros você quer?", "Quantidade")
       
        If StrPtr(strValor) = 0 Then 'clicou em cancelar
            Cancel = True 'cancela abertura do relatório
            Exit Sub
        ElseIf IsNumeric(strValor) Then
            'montando a fonte do registro do relatório
            Me.RecordSource = "SELECT top " & strValor & " cpCampo1, cpCampo2 FROM tblTabela ORDER BY cpCampo1;"
            Exit Do 'sai do loop para dar continuação ao código
        Else
            Call MsgBox("Informe um número.")
        End If
   
    Loop

End Sub

Boas DamascenoJr, à primeira vista, acredito ser isso a solução. Estarei retornando com o resultado...

Tudo certo. Dentro do que esperava.

O fórum agradece o retorno. Sucesso.