Numerar relatório com base no número de cópias a ser impresso

Moderador: Avelino Sampaio

ribasrrg
Mensagens: 1
Registrado em: 16 Jun 2017, 02:33

Numerar relatório com base no número de cópias a ser impresso

Mensagempor ribasrrg » 14 Nov 2017, 15:05

Boa tarde pessoal!!!

Tenho um relatório no access que deve ser impresso em 5 vias. Gostaria de saber se é possível, via código, automatizar a numeração das vias pelo número de cópias que digito na caixa de diálogo da impressora. Caso positivo. Como posso fazer isso?

Desde já agradeço a todos.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Numerar relatório com base no número de cópias a ser impresso

Mensagempor Avelino Sampaio » 16 Nov 2017, 10:05

Ribas

sugiro uma caixa de texto, informando o número de vias. E no botão de imprimir, utilize o código abaixo:

Código:
Private Sub btImprimir_Click()
Dim j As Byte
For j = 1 To Nz(Me!nVias, 0)
DoCmd.OpenReport "NomeDoRelário", acViewNormal, OpenArgs:= j & "ª Via"
Next
End Sub


Observe que eu utilizei o argumento OpenArgs para passar o número da via para o relatório. Lá no relatório, capture o número da via para o campo que irá informar a via:

Código:
Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Me!Via = Me.OpenArgs
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================


Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante